MACHINE TYPE 2025 MODEL 000 

MASTER CONTROL 

EC # 128266 SUM CHECK #63CC 



CORE LOAD 1952360 *E60 



** SEE *E6Q BCHK ** 



MES/FCSI # 



FEATURES PRESENT 

2542057 MEM48K 

2539256 BURSTCH 

0854017 NATV2311 



«/ 



2539229 FLTPJ_ \r 
0854031 TIMER ^ 
0854095 MULCHSET L^ 



EC # TAPE USED 128267 



0854021 _STGPROT 
0854019 NATV2540 



7/130 F2 



SERIAL # 10302- 
MACHINE STATUS E 
DATE PREPARED 07/13/71 



2539257 PFR <^ 
0854015 NATV1403 



FEATURES NOT PRESENT 

2542054 MEM16K 

2 54205 5 MEM24K 

2470709 2560EM40 

0882447 RPQHSC 

08 82376 RPQHWL 

08 822 2 5 RPQGAM 



2542056 MEM32K 



0854025 EXTINT 



2470710 CS1400 
0727736 RPQPR6 



0882377 RPOBUR 



2539255 BYTECH 



0854030 TIMER50 

0882211 RPOMII 

088 2470 RPOSUM 

0882214 RPQFAF 



0854023 D1RCTRL 



2532200 COMBASIC 

0882424 RPOMSC 

0882469 RPQAAR 

0882219 RPOFAC 



ADDR 



WORD 



SEQUENCE NO. 


1 


*E60 


001 


T 


*E60 


005 


* 


*E60 


006 


* 


*E60 


008 


* 


*E60 


0C9 


* 


*E60 


010 


* 


*E60 


030 


* 


*E60 


044 


* 


♦ 660 


046 


* 


*E60 


050 


* 


*E60 


051 


* 


*E60 


052 


* 


*E60 


053 


* 


*E60 


054 


* 


*E60 


055 


* 


*E60 


056 


* 


*E60 


057 


* 


*E60 


058 


* 


*E60 


05 9 


4c 


*E60 


060 


* 


*E60 


061 


* 


*E60 


063 


* 


*E60 


064 


* 


*E60 


066 


* 


*E60 


068 


# 


*E60 


069 


* 


*E60 


070 


* 


*E60 


071 


* 


*E60 


072 


# 


*E60 


074 


* 


*E60 


075 


* 


*E60 


076 


* 


*E60 


077 


* 


*E60 


078 


* 


*E60 


079 


# 


*E60 


080 


* 


*E60 


081 


* 


*E6G 


082 


* 


*E60 


083 


# 


*E60 


084 


* 


*E60 


085 


* 


*E60 


086 


* 


*E60 


088 


♦ 


*E60 


090 


* 


*E60 


091 


* 


*E60 


093 


# 


*E60 


095 


* 


*E60 


096 


* 


*E60 


09 8 


# 


#E60 


100 


* 


*E60 


102 


* 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CLOAD=*E60, 
COMMENTS 



EC LEVEL* 128266 PAGE 



SYSTEM 360/25 EMULATOR 



AAAB 
AAAC 
AAAO 
AAAF 
AAAG 
ALDP 
BCHK 
BCPL 
BDIA 
BMCK 
BPSW 
BSTP 
BSWI 
RSYS 
BWRP 
CBIN 
CBRC 
CCOM 
COMD 
CDVO 
CFAO 
CFCO 
CFCY 
CFDV 
CFHA 
CFLS 
CFMD 
CFMU 
CICY 
CLOG 
CLST 
CMLT 
CMPU 
CNVR 
CSFT 
CSAS 
CSTS 
CTRT 
DCHN 
DCLA 
DCLB 
OCLC 
OCLD 
OCLE 
DCLH 
OCLL 
DCLR 
DCLT 
DCOM 
DMCS 



WORDS 



OUT-INSTRUCTION 
ROUTINE 



ADDRESS 



LOCAL STORAGE MAP CPU 

EXTERNAL MNEMONIC DEFINITIONS 

BIT SIGNIFICANCE CHARTS FOR CONTROL 

MPTF ENTRY SHEETS 

ALTER DISPLAY ROUTINE 

CHECK SUN 
RESIDENT CHANNEL CORE LOAD ROUTINE 
BASIC DIAGNOSTIC. ..RESIDENT CPU DIAGNOSTIC 
MACHINE CK TRAP ROUTINE 
PSW STORE AND LOADING 
INSTRUCTION STEP TYPE 
EXCEPTIONAL CONDITION 
SYSTEM RESET ROUTINE 
WRAP TRAP ROUTINES 
BINARY ARITH.-ADD-SUB-COMPARE 
BRANCH INSTRUCTIONS 
CPU COMMON ROUTINES 

DECIMAL MULT DIVD 
BINARY DIVIDE ROUTINE 
FLOATING POINT ADD, SUBTRACT, COMPARE 

COMMON ROUTINES 

INSTRUCTION CYCLES 

DEVIDE 

HALVE 

LOADS AND STORE 

MULT 01 V PREPARATION 

MULTIPLY 



FLOATING 
FLOATING 
FLOATING 
FLOATING 
FLOATING 
FLOATING 
FLOATING 



POINT 

POINT 

POINT 

POINT 

POINT 

POINT 

POINT 
INSTRUCTION CYCLES 
LOGICAL OPERATIONS 
LOAD AND STORE OPERATIONS 
BINARY MULTIPLY ROUTINE 
PACK UNPACK AND MOVE WITH OFFSET 
CONVERT TO DECIMAL AND BINARY 
SHIFT ROUTINES 

DECIMAL ADD SUB COMPARE ZERO AND ADD 
STATUS SWITCHING INSTRUCTIONS 
TRANSLATE TRANS TEST EDIT EDIT AND MARK 

CHANNEL INTERRUPT ROUTINE H.BERKEBILE 

I/O INSTRUCTIONS 

CCW FETCH AND CHECK 

CHANNEL INITIAL SELECTION 

CHANNEL OATA LOOP 

CHANNEL LOW PRIORITY TRAP-STATUS ROUTINE 

CHANNEL HALT I/O 

INITIAL PROGRAM LOAD 

CHANNEL ERROR ROUTINE 

CHANNEL TEST I/O AND I/O INTERRUPT 

COMMON I/O ROUTINES 
1403 MULTIPLE CHARACTER SET ROUTINE 



ADOR 



QUENC 


:e NO. 


LABEL NEXTSEQ NEXTLABEL 


STATEMENT 


*E60 


104 


* 


OPTC 


1403 BUFFER SC 


*E60 


105 


* 


OPTQ 


1403 REQUEST A 


*E60 


107 


* 


DPTR 


1403 READ AND 


*E60 


108 


* 


DPTS 


1403 START I/O 


*E60 


109 


* 


OPTT 


1403 TEST I/O, 


*E60 


112 


* 


DUMP 


RESIOENT CORE 


*E60 


114 


* 


DYPE 


1052 TYPE ROUT 


*E60 


116 


* 


ECOL 


PUNCH COLUMN 


*E60 


117 


* 


EPCH 


PUNCH SIO CMD 


*E60 


118 


* 


EPXF 


PUNCH TRANSFER 


*E60 


119 


* 


ERCX 


XFER FROM COLU 


*E6 


120 


* 


ERDR 


READER START I 


*E60 


122 


* 


ERRQ 


READER REQUEST 


*E60 


123 


* 


ETRP* 


NATIVE PUNCH T 


*E60 


124 


* 


ETTR 


NATIVE READER 


*E60 


126 


* 


EXFR 


READER XFER OF 


*F60 


135 


* 


FILE 


2311 FEAT., EN 


*E60 


137 


* 


FILT 


2311 FEAT., TR 


*E60 


139 


* 


FILX 


2311 FEAT., OP 


*E60 


140 


* 


FINT 


2311 FEAT., IN 


*E60 


257 


* 


OVLY 


CUSTOMER ROUTI 



CL0AD=*E60, 
COMMENTS 



EC LEVEL=128266 PAGE 



AN ROUTINE 
NO INTERRUPT BUF 
WRITE-CHANNEL EN 
-NO ACT-NO SEC+S 
HALT I/O, START I 
DUMP ON NATIVE 1 
INES 

BINARY AND DATA 
DECODE fi CHAININ 
-EBCDIC TO ROW F 
MN FORM BUFFFR-R 
/O COMMAND OECOD 

MODE AT 10 
RAP ROUTINE! PUNC 
TRAP ROUTINEIREA 

ROW IMAGE TO CO 
TRY FOR SIO, TIO 
AP ROUTINE 

VERIVICATION £ 
TERRUPT ROUTINE 
NE TO CORRECT BA 



FER ROUTINE 
D AND CARR.CTRL 
ENSE COMM 
/O-SEC. ON 
40 3 

CHAIN 

G 

ORM -6 CHAINING 

0-TO CCW ADDRESS 

E AND CHAINING 

H CHECK ANALYSIS) 
DER CHECK ANALYSIS) 
LUMN BINARY FORM 
, HIO 

EXECUTION 

D MODULE ZERO WORDS 



* AAAB * 



AUX ST3RAGE -- MODULE 



C123456789ABCDEF 



OX * G.P. REG 

IX * G.P. REG 1 

2X * G.P. REG 2 

3X * G.P. REG 3 

AX * G.P. REG 4 

5X * G.P. REG 5 

6X * G.P, REG 6 * 



* FLOATING POINT REG. 

* . 

* H 

* . . 

* FLOATING POINT REG. 2 
# 

* J 



* 2311 

* * FLOATING POINT REG. 4 

* 1052 * 

* * K 

* ALTER/DISPLAY * 



7X * G.P. REG 7 

8X * G.P. REG 8 

9X * G.P. REG 9 
* 

AX * G.P. REG A 



* 



MESSAGE 



* FLOATING POINT REG. 6 

* 

* L 



* OX 
-* 

* IX 

• * 

* 2X 

• * 

* 3X 

• * 

* 4X 
-* 

* 5X 

■ * 

* 6X 

■ * 

* 7X 



************************************************** 

* -R- * KO * Kl * K2 * K3 * 8X 

* ~R- *■ K4 *■ K5 * K6 * K7 * 9X 

* * K8 * K9 * KA * KB * AX 

# * -_. * * # * 

BX * G.P. REG B. * A * B * C * D * KC ■* KD * KE * KF * BX 

CX * G.P. REG C * p * M * * 1403 UCW * CX 

* * -_* — — — * 

DX * G.P. REG * * * M * * 2 540 RDR UCW * OX 

* * — * «. — __.— * 

EX * G.P. REG E * * * M * * 2540 PCH UCW * EX 

* * * * 

FX * G.P. REG F * E * N * M * G * 1052 UCW * FX 

**************************************************************** 

0123 4 56789ABCDEF 



A 1403 UNIT ADDRESS 

B READER UNIT ADDRESS 

C PUNCH UNIT ADDRESS 

D 1052 UNIT ADDRESS 

E HI SAVE 

G 1052 SENSE 

N 2311 ADDRESS 



H MULT/DVD TABLE (XI) AND 

ALT/DIS REGS BACKUP 
J MULT/DVD TABLE (X4) AND 

ALT/DIS BACKUP + FLPT SAVE 

K MULT/DVD TABLE (X161 

L MULT/DVD TABLE (X64),FLPT SAVE 

M NATIVE KEY KKKKOOOO 

P COMMU. Q-EXIT POINTER 

P BURST CHANNEL BUFFERED 

DEVICE ADDRESSES. 



CL0AD=*E60, EC LEVEL=128266 PAGE 3 

* AAAB * 

K-ADDRESSABLE AREA 

K0-88- CHANNEL 1 INTERRUPT BUFFER 

K1-8A- STANDARD INTERFACE, NEXT CCW ADDRESS 

K2-8C- CHANNEL UNIT ADDRESS BUFFER 

K3-8E- STATUS/ACTIVE BYTE FOR 2311 OR CHANNEL 1 

K4-98- 2311 NEXT CCW ADDRESS 

K5-9A- 2311 SENSE OR PREVIOUS OP AND MASK 

K6-9C- 2311 SENSE OR FILE ADDRESS 

K7-9E- DIAGNOSTICS, ALTER /DISPLAY BAL BACKUP 

K8-A8- SYSTEM MASK -A9- CPU KEY AND AMWP 

K9-AA- EXECUTE INSTRUCTION COUNTER 1 REGISTER 

BACKUP 

KA-AC- U REGISTER BACKUP Q FLTPT SAVE 
DURING INSTRUCTIONS 

KB-AE- G REGISTER BACKUP 

KC-B8- P REGISTER BACKUP 

KD-BA- CHANNEL INTERRUPT BUFFER 

KE-BC- ADDRESS OF STRAIGHT MULT/DVD , FLPT SAVE 
2540 REGS BACKUP 

KF-BE- ADDRESS OF SKEWED MULT/DVD , FLTPT SAVE OR CAW 
KEY. 2540 REGS BACKUP 

********** STANDARD DEVICE ADDRESSES *************** 

* NATIVE LOC * BURST CHANNEL LOC* 

* 1403 OE B4 * 1443 OR 1445 OB 84 * 

* 2540 RDR OC 85 * 2540 RDR OC 85 * 

* 2540 PCH OD 86 * 2540 PCH OD 86 * 

* 1052 IF B7 * 1403 OE 87 * 

* 2311 9X F5 * 1404 OR 2ND 1403 OF 94 * 

* * 2520 15 95 * 

* * 

* THE TEXT PRECEEDING THE -BCPL- ROUTINE CONTAINS * 

* INFORMATION ON PUNCHING CARDS TO RECONF IGURATE THE * 

* SYSTEM TO OTHER THAN THE STANDARD ASSIGNMENTS * 



AUXILIARY STORAGE ASSIGNMENTS 



CLQAD=*E60t EC LEVEL=i28266 PAGE 



4 8 C F 

********************************** 

Q * * 

* CPU AREA * 

* * 

F *-< -* 

* * 

* PUNCH ROW IMAGE (1X00-1X77) * 

* * 

* * i 

* * 

* PFR ROW IMAGE (1X78-1XEF) * 

* * * 

F *C D B E A * READ ERROR LOGOUT * 

* * * — _ 

* * 

* MPX UCWS * 2 

p * * 

o * * 

* READER TRANSLATE TABLE * 3 

* * 

f * * 

* * 

* PUNCH CHECK C4X9C-4X84) * 

* PFR READ (4X00-4X9F! * 4 

* , — .. * 

* READER ROW IMAGE {4XA0-5X17) * 

p *_____ ___________________ * 

* * 

* * 

* . * 

* READER READOUT {5X18-5X87) * 5 

* * 

* *> 

* 1052 TRANSLATE TABLE (5X88-5XF5) * 
F * * PUNCH ERROR LOGOUT * 

*-. , , , , , , . * , __#_. 

* * 

* PUNCH TRANSLATE TABLE * 6 

* * 

f * . , , & 

* * 

* PRINTER TRANSLATE TABLE * 7 

* * 

f ************************************************** 



MODULE 



MODULE 



MODULE 1 



MODULE 2 



MODULE 3 



MODULE A 



MODULE 5 



MODULE 6 



MODULE 7 



DEFINED IN AAA8 ROUTINE 



C AND D NOTED IN TABLE ARE DEFINED 
IN COMMENTS PRECEEDING THE ERDR 
ROUTINE. C AT 10F0 D AT 10F1 
8, E, AND A NOTED IN TABLE ARE DEFINED 
IN TEXT PRECEEDING THE EPCH ROUTINE. 
B AT 10F2, E AT 10F4, A AT 10F5 



DEFINED IN FE MAINTENANCE MANUAL 



DEFINED AT END OF THE ERCX ROUTINE. 



WORKING AREA 



1052 TRANSLATE TABLE DEFINED AT END 
OF THE DYPE ROUTINE. 



DEFINED AT END OF THE EPXF ROUTINE. 
PUNCH TRANSLATE FOR 24K IN MODULE 8. 



DEFINED AT END OF THE DPTR ROUTINE 
FOR NO MCS FEATURE. PRINTER TRANSLATE 
TABLE FOR 24K IN MODULE 9. PCCL AND 
BLOCK DATA CHK IN 7X00 OR 9X00. 



* AAAC * 



360 MODE 



LOCAL STORAGE 



ZONES AND ASSIGNMENTS 
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* AAAC * 



* * * ZONE ** ZONE 1 ** ZONE 4 ** ZONE 5 ** ZONE 6 ** ZONE 7 * 

* AS/BS * NAME * CPU ** 2311 ** SACK -UPS ** COMMUNICATIONS ** 2540 ** CHANNEL * 

* FIELD * * ** ** ** ** ** * 

###### #*###&*###*#######*#######&# $$£$$*£$$*$$$$*$$$*$*$$$ $$$$$$$$$$$$ $$$$ ##* #J$:3$e#3}c#3te£>)e #* ## ## >^$ $$$$$$*$ ##*# $$#$i$e$$$ $*$$**** ** 



0000 * uo 

0001 * Ul 

-# 

0010 * vo 
_* 

0011 * VI 

0100 * GO 

-* 

0101 * Gl 

* 

OHO * 

*«. 

0111 * 

*. 



DO 
Dl 



* 1ST OPERAND ** 

* STORAGE ADDR. ** 

.* ** 

.** 

#* 

.#* 



* 2ND OPERAND 

* STORAGE ADDR 

* 

* OP CODE 

* 

* 2ND BYTE INST. 

* 

* DATA 
# •••••.....^ jfcjfc 

* HIGH 8 OF 24 BIT** ** 

* 2ND OPERAND ADDR** ** 

^calc^^c^^ ^a^^^c^:^^^ ^c^ ^ca^c ^c a$t: >$c ^e 9$c ^e ^e^ ^c^c a^r^ ^c^^^e ^^^ca^c 3§c^c 3$c^c ^e 3§c ^e ^e a$c 3$e 3<c ^e «c^ 3§t^ £Q[\JE 4 THRU 7 ** 
afcjjcaje j^sje ### j$c^c^j}c# ## sjc^ ^sjc^^c^ci^ jjo$t $$$$$?$c$$ $$$$$$ $$$$$$$$$$:$$$$-.—• — — — — — — -.„. — -. — _afc jjc 



**- 



LEVEL 1 
BACK-UP 

LEVEL 2 
BACK-UP 

LEVEL 3 
BACK-UP 



** ** READER ROW 

** LCW ADDR HIGH ** FORM 
** ** BUFFER 

** LCW ADDR LOW ** ADDRESS 

** ** 

** CHAR POINT HI ** PUNCH IMAGE 
** ** BUFFER 

** CHAR POINT LOW ** ADDRESS 



** 
-**- 



COUNT 
COUNT 



* 
* 

-* 
* 

-* 



** • 

** LCW 
** 

** LCW+1 

** 



-**- 



** MACHINE CHECK** LCW+2 

** LCW+3 

*$ 



BACK-UP 



** DATA ADDRESS * 

** * 

** DATA ADDRESS * 

._** * 

** PCH TRAP COUNT ** CHANNEL STATUS * 

** ** — -* 

** WORKING REG ** OP FLAG BYTE * 

** #* * 

** INDICATORS ** CHANNEL IDENT. * 

** RDR TRAP COUNT ** NOTE 1 * 

3$c# — — — — — — — — ^- — ajc a§c — — — — ^ — . _—.«. —— -» — -.—;* 



* 
*-■ 

* 



1000 * 
*. 

1001 * 
*. 

1010 * 

._, *- 

1011 * 
#. 

1100 * 

1101 * 

*. 

1110 * 

1111 * 



10 

II 

TO 
Tl 
PO 

PI 

HO 
HI 



* INST CTR HIGH 
.*-_, 

* INST CTR LOW 

.* -. — 



** CCW COUNT HIGH ** CPU BAL 
.$$ ** 

** CCW COUNT LOW ** 

* *fi nl* "*** ** "* , *■*" ,,,,, ► ■"*• ***■ •*■• "*■• ■"■■ , ' *■*■' *■■* *** ■*••■ '■*■* ■*■■* *■■■' ^j* Tf» ^ 

** DATA ADDR HIGH ** 



**- 



* r y p REG ADDRESS 

.*_, ' 



** DATA ADDR LOW 

.** . 



* CONDITION CODE ** GEN. PURPOSE 






BACK-UP 
SPARE 
SPARE 
LEVEL 1 



**, 

** 

**■ 

-#* 

** 

*^ 



NOTE 1— FOR BURST CHANNEL, THIS 
REGISTER CONTAINS THE 
UNIT ADDRESS. 



* PROG MASK, AMWP ** GEN. PURPOSE 

* DATA ** CCW ADDR HIGH ** 

•HIGH 8 OF 24 BIT ** CCW ADDR LOW 

■* INST CTR OR 1ST ** 

* OPERAND ADDR. ** 



** WORKING AREA ** 
** 

LEVEL 1 ** 

.## ## 

** WORKING AREA ** 



THIS AREA OF 
ZONE 4 IS 
COMMON TO ZONES 
5,6, AND 7. 



FOR BYTE CHANNELt THIS 
REGISTER CONTAINS THE 
UCW ADDRESS. 



**- 



*• 



3^ca|t 3$c^c^ca|s:^c3$c^?ec3^:35c3^3§c^c^t: a^ca^c ^ca$c^cagC3#c>^a^:^c 3$ea^e^e9ie3^^c^9|e 3#es|c3|c3$c3$c3$c^C39ca$e3$c^c^e ^a$e?|c3|c ^cj^t 3$e3$c 3tc^e3$c>^ 3gca§c^ca9c^c^C3§c3$c^c^3^ca5caftc 
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PAGE 6 


EXTERNAL 












DISPLAYABLE 


SWITCH 


SWITCH 


ACCESSED BY 


* AAAD 


MNEMONIC 


DEFINITION 












FACILITY 


C 


D 


SET/RESET 
WORD ONLY 




BA 


BRANCH CONDITIONS 


ALL MODES 


EXT 


TO 


CPU 


YES 





7 






63 


SOFT STOP BRANCH CONDITIONS 


CPU f 


-10 DE 


EXT 


TO 


CPU 


YES 


CPU 


F 






BC 


EXTERNAL FACILITY 


ALL 1 


-IODES 

















YES 




CADR 


COMM ADAPTER DIAGNOSTIC REG 


COMM 


MODE 


CPU 


TO 


EXT 















CCTRL 


START-STOP CONTROL 


COMM 


MODE 

















YES 




CHI 


COUNTER 1 HIGH IN- DIAGNOSTIC 


2311 


MODE 


EXT 


TO 


CPU 


YES 


2311 


8 






CLI 


COUNTER 1 LOW IN - DIAGNOSTIC 


2311 


MODE 


EXT 


TO 


CPU 


YES 


2 311 


9 






CPF 


READ DIRECT ENABLE 


CPU ! 


-IODE 

















YES 




CSETF 


START STOP/SYNC 


COMM 


MODE 

















YES 




DAIN 


DATA IN 


COMM 


MODE 


EXT 


TO 


CPU 


YES 


COMM 


A 






OAOUT 


DATA OUT 


COMM 


MODE 


CPU 


TO 


EXT 















DAS I 


DISK ATTACHMENT STATUS IN 


2311 


MODE 


EXT 


TO 


CPU 


YES 


2311 


5 






DIAB 


DIAGNOSTIC REG 


2311 


MODE 

















YES 




01 AC 


DIAGNOSTIC REG 


2311 


MODE 

















YES 




DILIN 


DIAL IN 


COMM 


MODE 


EXT 


TO 


CPU 


YES 


COMM 


E 






DILOUT 


DIAL OUT 


COMM 


MODE 


CPU 


TO 


EXT 















DR 


DIAGNOSTIC REGISTER 


ALL f 


-IODES 








YES 


CPU 


C 


NOTE 1 




DS 


DISK STATUS 


2311 


MODE 


EXT 


TO 


CPU 


YES 


2311 


E 






OYN 


DYNAMIC CONDITION REGISTER 


ALL MODES 








YES 





4 






FBI 


FILE BUS IN 


2311 


MODE 


EXT 


TO 


CPU 


YES 


2311 


1 






F80 


FILE BUS OUT 


2311 


MODE 


CPU 


TO 


EXT 















FFBO 


FILE 1400 EMULATOR BUS OUT 


2311 


MODE 


CPU 


TO 


EXT 















FFI 


FILE FLAGS IN 


2311 


MODE 


EXT 


TO 


CPU 


YES 


2311 


D 






FFO 


FILE FLAGS OUT 


2311 


MODE 


CPU 


TO 


EXT 















FGA 


FILE GATED ATTENTION 


2311 


MODE 


EXT 


TO 


CPU 


YES 


2311 


C 






FIA 


FILE INFORMATION 


2311 


MODE 

















YES 




FIB 


FILE INFORMATION! 


2311 


MODE 

















YES 




FIC 


FILE INFORMATION 


2311 


MODE 

















YES 




FOB 


FILE OUT BUS-DIAGNOSTIC 


2311 


MODE 


EXT 


TO 


CPU 


YFS 


2311 


3 






FOP 


FILE OP REGISTER 


2311 


MODE 








YES 


2311 


F 






GA 


CHANNEL SIGNALS 


CHAN 


MODE 

















YES 




GB 


CHANNEL SIGNALS 


CHAN 


MODE 

















YES 




G8/IN 


CHANNEL BUS IN 


CHAN 


MODE 


EXT 


TO 


CPU 


YES 


CHNL 


F 






GB/CUT 


CHANNEL BUS OUT 


CHAN 


MODE 


CPU 


TO 


EXT 















GC 


CHANNEL SIGNALS 


CHAN 


MODE 
















YES 




GO 


CHANNEL DIAGNOSTIC REGISTER 


CHAN 


MODE 


EXT 


TO 


CPU 


YES 


CHNL 


E 






GS 


CHANNEL BRANCH CONDITIONS 


CHAN 


MODE 


EXT 


TO 


CPU 


YES 


CHNL 


C 






GST AT 


GENERAL STATUS 


COMM 


MODE 


EXT 


TO 


CPU 


YES 


COMM 


F 






GT 


CHANNEL BRANCH CONDITIONS 


CHAN 


MODE 


EXT 


TO 


CPU 


YES 


CHNL 


D 






JA 


DIRECT CONTROL-2 TIMING 


CPU MODE 


CPU 


TO 


EXT 















JI 


DIRECT CONTROL IN 


CPU 1 


*0 DE 


EXT 


TO 


CPU 


YES 


CPU 


8 






JO 


DIRECT CONTROL-1 


CPU MODE 


CPU 


TO 


EXT 














LACON 


LINE ADAPTER CONDITIONS 


COMM 


MODE 


EXT 


TO 


CPU 


YES 


COMM 


C 






LADR 


LINE ADAPTER DIAG REGISTER 


COMM 


MODE 


CPU 


TO 


EXT 















LAIN 


LINE ADDRESS IN 


COMM 


MODE 


EXT 


TO 


CPU 


YES 


COMM 


8 






LAOUT 


LINE ADDRESS OUT 


COMM 


MODE 


CPU 


TO 


EXT 















LAS TAT 


LINE ADAPTER STATUS 


COMM 


MODE 


EXT 


TO 


CPU 


YES 


COMM 


D 







CL0AD=*E60, EC LEVEL=128266 PAGE 



EXTERNAL 












DISPLAYABLE 


SWITCH 


SWITCH 


ACCESSED BY 


MNEMONIC 




DEFINITION 






FACILITY 


C 


D 


SET/RESET 






















WORD ONLY 


MC 


ERROR REGISTER 


CPU 1 


MODE 


EXT 


TO 


CPU 


YES 


CPU 


E 




MMSK 


MICROPROGRAM MASK REGISTER 


ALL MODES 






YES (0-7) 





6 


NOTE 2 


MODE 


MODE REG (LS ANO EXT ADDR CTRL) ALL MODES 












NOTE 3 


MS 


MODULE SELECT REGISTER 


2311 


MODE 


CPU 


TO 


EXT 













MW 


MACH CHK, WAIT STATE LATCHES 


CPU 1 


MODE 


CPU 


TO 


EXT 













P 


PUNCH SIGNALS 


2540 


MODE 

















YES 


PARCK 


COMMUNICATIONS PARITY CHECK 


COMM 


MODE 


CPU 


TO 


EXT 












PCCL 


PRINT CHAR COUNTER LENGTH 


1403 


MODE 


CPU 


TO 


EXT 













PO 


PUNCH DATA OUT (READER) 


2540 


MODE 


CPU 


TO 


EXT 













PR 


1403 PLBAR DATA OUT 


1403 


MODE 


CPU 


TO 


EXT 













PR A 


PRINTER SIGNALS 


1403 


MODE 

















YES 


PRB 


PRINTER SIGNALS 


1403 


MODE 

















YES 


PRC 


14C3 CARRIAGE DATA OUT 


1403 


MODE 


CPU 


TO 


EXT 













PRO 


1403 DIAGNOSTIC CONDITIONS 


1403 


MODE 


EXT 


TO 


CPU 


YES 


1403 


F 




PRI 


1403 PLB DATA IN 


1403 


MODE 


EXT 


TO 


CPU 


YES 


1403 


8 




DRO 


14C3 PLB DATA OUT 


1403 


MOOE 


CPU 


TO 


EXT 













PRS 


SENSE/STATUS CONDITIONS 


1403 


MODE 


EXT 


TO 


CPU 


YES 


1403 


E 




PRT 


PLBAR DATA IN 


1403 


MODE 


EXT 


TO 


CPU 


YES 


1403 


A 




PS 


PUNCH BRANCH CONDITIONS 


2540 


MODE 


EXT 


TO 


CPU 


YES 


2540 


F 




R 


READER SIGNALS 


2540 


MODE 

















YES 


RP 


2540 SIGNALS 


2540 


MODE 

















YES 


RP1 


READER/PUNCH DATA IN 1 


2540 


MODE 


EXT 


TO 


CPU 


YES 


2540 


B 




RP2 


READER/PUNCH DATA IN 2 


2540 


MODE 


EXT 


TO 


CPU 


YES 


2540 


A 




RPD 


2540 SIGNALS DIAG 


2540 


MODE 

















YES 


RPD1 


DIAGNOSTIC R/P CONDITIONS 1 


2540 


MODE 


EXT 


TO 


CPU 


YES 


2 540 


8 




RP02 


DIAGNOSTIC R/P CONDITIONS 2 


2540 


MODE 


EXT 


TO 


CPU 


YES 


2 540 


9 




RPS 


READER/PUNCH BR CONDITIONS 


2540 


MODE 


EXT 


TO 


CPU 


YES 


2540 


E 




RS 


READER BRANCH CONDITIONS 


2540 


MODE 


EXT 


TO 


CPU 


YES 


2540 


D 




S 


STATUS REGISTER 


ALL MODES 








YES NOT 


2311 


5 


NOTE 4 


SOI 


SERIALIZES/DESERIALIZER IN DIAG 


2311 


MODE 


EXT 


TO 


CPU 


YES 


2311 


B 




SM 


SYSTEM MASK 


CPU ! 


MODE 


CPU 


TO 


EXT 













STPO 


STORAGE PROTECT KEY 


ALL ! 


MODES 








YES 


SEE 


NOTE 5 




STP1 


STORAGE PROTECT STACK 


ALL 1 


MODESINOT 


2311) 


YES 


SEE 


NOTE 5 




SWAB 


CONSOLE ADDRESS SWITCHES A-B 


CPU 1 


MODE 


EXT 


TO 


CPU 













SWCD 


CONSOLE ADDRESS SWITCHES C-D 


CPU 1 


MODE 


EXT 


TO 


CPU 













TA 


1052 SIGNALS 


1052 


MODE 

















YES 


TC 


TERMINATING CONDITIONS 


2311 


MODE 


EXT 


TO 


CPU 


YES 


2311 


A 




TO 


PRKB DIAGNOSTIC REGISTER 


1052 


MODE 


EXT 


TO 


CPU 


YES 


PRKB 


D 




TE 


PRKB DATA OUT 


1052 


MODE 


CPU 


TO 


EXT 













TGRI 


TAG REGISTER IN 


2311 


MODE 


EXT 


TO 


CPU 


YES 


2311 







TGRO 


TAG REGISTER OUT 


2311 


MOOE 


CPU 


TO 


EXT 













TI 


1052 DATA IN 


1052 


MODE 


EXT 


TO 


CPU 


YES 


PRKB 


A 




TIM 


TIMER COUNT 


CPU I 


10 DE 


EXT 


TO 


CPU 


YES 


CPU 


A 




TR 


1052 TILT/ROTATE REGISTER 


1052 


MODE 


EXT 


TO 


CPU 


YES 


PRKB 


B 




TT 


PRKB BRANCH CONDITIONS 


1052 


MODE 


EXT 


TO 


CPU 


YES 


PRKB 


E 




TU 


PRKB BRANCH CONDITIONS 


1052 


MODE 


EXT 


TO 


CPU 


YES 


PRKB 


F 




XI NT 


EXTERNAL INTERRUPT 


CPU I 


10 DE 


EXT 


TO 


CPU 


YES 


CPU 


9 





* AAAD * 



NOTE 1 THE DR REGISTER IS SET BY THE SET/RESET 
WORD. EXECUTION OF A BRANCH WORD OR A 
RETURN WORD, WITH OR BIT 7 ON, SETS 
THE DIAGNOSTIC BRANCH LATCH. 



NOTE 2 THE MMSK REGISTER 0-9 IS SET OR RESET 
BY THE SET/RESET WORD. 
FOR OTHER WORD ACCESSES AND DISPLAY, 
ONLY BITS 0-7 CAN BE ADDRESSED. 



NOTE 3 


THE MODE REGIST 




SLT/RESET WORD 




STRUCTURE OF T 




ALWAYS WHAT IS 




INDICATORS LAB 




MODE BIT DECOD 




3,4, AND THE L 




DISPLAYED IN B 




BE THE FORCED 




BIT BEING SET. 




** REFER TO D 




IM THE -F 


NOTE 4 


THE S-REGISTER 



ER IS SET BY THE 

. THE ACTUAL BIT 

HE MODE REGISTER IS NOT 

DISPLAYED IN THE CONSOLE 
ELED MODE/ZONE REG. THE 
E IS DISPLAYED IN BITS 2, 
S ZONE BIT DECODE IS 
ITS 5,6, AND 7. THESE COULD 
DECODES CAUSED BY AN MMSK 

IAGRAMS 4-14 AND 4-32 
EMDM- FOR DISPLAY DETAILS. 



RESET BY THE 
ALSO BE ACCESSED 



IS SET OR 
SET/RESET WORD. IT CAN 
BY A BRANCH WORD. 

BITS 0-6 CAN BE DISPLAYED DIRECTLY BUT 
BIT 7 OF THE DISPLAY INDICATES THE STATUS 
OF THE S7 BRANCH CONDITION LINE. TO 
DISPLAY THE ACTUAL CONDITION OF THE S7 
LATCH, THE BA FACILITY MUST BE DISPLAYED 
AND BIT WILL INDICATE THE S7 LATCH 
STATUS. 





CL0AD=*E60, EC LEVEL=128266 PAGE 8 




* AAAD 


NOTE 5 


TO DISPLAY STP1 FOR MPX OPERATION — 




1. SET CONSOLE SWITCHES A,B,C, AND D TO 




THE AUXILIARY STORAGE ADDRESS OF THE 




MPX UCW ASSOCIATED WITH THE I/O DEVICE 




2. SET MODE SWITCH TO AS DATA. 




3. PRESS AND RELEASE THE DISPLAY KEY. 




(M-REG SET TO AODRESS IN SW,S ABCD). 




4. SET MODE SWITCH TO ALU/EXT. 




5. SET CONSOLE SWITCHES CD TO 03. 




6. PRESS AND HOLD THE DISPLAY KEY. 




THE ASSOCIATED I/O PROTECT KEY IS 




DISPLAYED IN THE BYTE 1 INDICATORS. 



TO DISPLAY STP1 FOR SELECTOR CHANNEL KEY 
1. SET CONSOLE SWITCHES A,B,C, AND D TO 
AUX ADDRESS XX88. THE REST OF THE 
DISPLAY PROCEEDURE IS THE SAME AS THE 
MPX STP1. 

TO DISPLAY STP1 FOR CPU STORAGE KEY 

1. SET CONSOLE SWITCHES A,B,C, AND D TO 
A MAIN STORAGE ADDRESS ASSOCIATED WITH 
A PARTICULAR STORAGE KEY. 

2. SET MODE SWITCH TO MS DATA. THE REST 
OF THE DISPLAY PROCEEDURE IS THE SAME 
AS THE MPX STP1. 

TO DISPLAY THE FILE STORAGE KEY (WHICH IS 
NOT IN THE STP1 STACK J DO THE FOLLOWING — 

1. SET SWITCHES CD TO 12. 

2. SET MODE SWITCH TO ALU/EXT. 

3. PRESS AND HOLD THE DISPLAY KEY. 

THE FILE KEY IS DISPLAYED IN THE 
BYTE 1 INDICATORS. 



TO DISPLAY STPO 

1. SET SWITCH C TO MODE DESIRED— 

C=0=CPU MODE (Q REG) 
C=l=2 311 MODE (FQ REG) 
C=5=C0MM MODE IHQ REG) 
C=7=CHAN MODE I GQ REG) 

2. SET SWITCH D TO 2. 

3. SET MODE SWITCH TO ALU/EXT. 

4. PRESS AND HOLD THE DISPLAY KEY. 



**** 

* w 

* T 

**** 

* C 
**** 

* 

* 
* 

* 
* 

* 
* 

* 

* 

* 

* 

* 
* 

** ** 



**** 
ORD 

YPF 
**** 

1 

**** 



************ 

* * 

* * 

************ 

* 2 * 

** ****** 3^t 3§C ** 



******************************** 

SET/RST SOURCE FIELD 
4 5 6 7 



* 



= RST 

1 = SET 



* 

* 
* 
* 



WHEN THE 
WORD BIT 
LINK OR R 



******** 

K * 

HIGH * 

******** 

3 * 

******** 

* 
K HIGH * 
BIT * 
* 
* 
* 

* 
* 
* 

* 

* 

* 
* 

* 

* 

* 
* 



MMSK REGISTER 
11=0 INDICATES A 
FTURN FUNCTION. 



0000= S REGISTER 
0010= MMSK REGISTER 
0100= MODE REGISTER 
0110= BC FACILITY 
1000= OR REGISTER 



1001 = 
0001 = 
1011 = 
1011 = 
0011 = 
1101 = 
1101 = 
1101 = 
1101 = 
1101 = 



11 
11 
11 
11 
11 
11 
11 
11 



10= 

11= 
11= 
11 = 
11= 
11= 
11= 
11= 



RPD 

DIAB 

R 

GA 

DIAC 

PRA 

FIA 

RP 

CSETF 

GB 

FIB 

CPF 

PRB 

TA 

FIC 

P 

CCTRL 

GC 



FACILITY 
FACILITY 
FACILITY 
FACILITY 
FACILITY 
FACILITY 
FACILITY 
FACILITY 
FACILITY 
FACILITY 
FACILITY 
FACILITY 
FACILITY 
FACILITY 
FACILITY 
FACILITY 
FACILITY 
FACILITY 



ALL 
ALL 
ALL 
ALL 
ALL 

2540 

2311 

25 40 

CHNL 

2311 

1403 

2311 

2540 

CO MM 

CHNL 

2311 

CPU 

1403 

1052 

2311 

2540 

COMM 

CHNL 



MODES 
MODES 
MODES 
MODES 
MODES 

MODE 
MODE 
MODE 
MODE 
MODE 
MODE 
MODE 
MODE 
MODE 
MODE 
MODE 
MODE 
MODE 
MODE 
MODE 
MODE 
MODE 
MODE 



************ 

* B SOURCE 
************ 

* 8 
************ 

* 

WHEN MMSK 

OR RETUR 

B SOURCE 

LOCAL 



CLO 

******************** 

OR K LOW FIELD 
******************** 

9 10 11 

******************** 



ADDRESSED FOR A 
N FUNCTION, THE 

DECODES ARE FOR 
STORAGE 



REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 



IS ADDRESSED BY THE SET 
LINK OR RETURN FUNCTION 



* 
* 

* 

* 0000= u 

* 0010= V 

* 0100= G 

* 0110= D 

* 1000= I 

* 1010= T 

* 1100= P 

* 1110= H 
* 
* 
* 

* BIT 8 = 

* BIT 9 = 

* BIT 10= 

* BIT 11= 
* 

# 
* 

* 

/RST SOURCE FIELD, CONTROL 
, BIT 11=1 INDICATES NO 



WHEN USED AS THE K FIELD 



K LOW BIT 
K LOW BIT 1 
K LOW BIT 2 
K LOW BIT 3 



AD=*E60, 
******** 

* 

* K 

™ ™ T* ^T *^ ^F ^ ^ 

♦ 1 

******** 

* 

LINK * 

* 1 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 

* 
* 
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*************************** 

* 

HIGH FIELD * 

*************************** 

2 13 14 * 15 

*************************** 

* 

* 
BIT 2 BIT 3 BIT * 



********************************************************************************************************************* 



** 

* 

** 
* 

* 
* 

* 

* 
* 
* 
* 
* 
* 
* 

* 
* 

* 
* 

* 
* 
* 
* 

* 



BIT SIGNIFICANCE CHART FOR THE SET/RST WORD (WORD TYPE 0> 



**************************************** 


* WORD * 


FUNCTION 




* 




* TYPE * 


DECODE 




* 


A- 


** ** * 9$C$3$C ******************************** 


* 1 * 


2 


3 


* 


4 


**************************************** 


* * 






* 




* D * 








* 


0000 


* * 








* 


0001 


* * 








* 


0010 


* * 








* 


0011 


* * 








* 


0100 


* * 








* 


0101 


* * 








* 


0110 


♦ * 


c 





* 


0111 


ak ate — 






— — * 


1000 


^r ^~ 






— — ^ 


* * 







* 


1001 


* * 







* 


1010 


# * 


o 




* 


1011 


* * 


o 




* 


1100 


* * 


o 




* 


1101 


* * 


c 




* 


1110 


* * 


c 




# 


1111 


* * 







* 




jfe A*. 






— <-.* 




* * 







* 




* * 







* 




* * 







* 




* * 







* 




* * 







* 


THE 


* * 




G 


* 


COMBINA 


* * 







* 


BITS 2, 


* * 







* 




& *— 






— •»& 




* * 




1 


* 


THE 


* * 




1 


* 


FORMULA 


* * 




1 


* 


AND 14 


* * 




1 


* 


STORAGE 


* * 




1 


* 


UNDER T 


* * 




1 


* 




* * 




1 


* 




* * 




1 


* 




****************#*********************** 



* 

SOURCE FIELD * K 

************************************ 

5 6 7*8 9 

************************************ 

* 
= UO * 

= Ul * 

= vo * 

a VI * 

= GO * 

= Gl * 

= DO * 

= Dl * 

= 10 * 

= 11 * 

= TO * 

= Tl * 

- pc * 

= PI * 

= HO * 

= HI * 

* 



FUNCTION DECODE IS A 

TION OF CONTROL WORD 

3, 12, 13, AND 14. 



-A- SYMBOL IN THE 

S UNDER COLUMNS 12, 13, 

CAN BE ANY OF THE LOCAL 

BYTE SOURCES LISTED 
HE A-SOURCE FIELD. 



CLOAD=*E60, EC 

**************************** 

FIELD * 

**************************** 

10 11 * 12 

**************************** 

* 

0000 * 000 - 

0001 * 001 - 

0010 * 010 - 

0011 * Oil - 
010C * 100 - 
0101 * 101 - 

0110 * 110 - 

0111 * 111 - 

1000 * 

1001 * 

1010 * 

1011 * 

1100 * 

1101 * 
1110 * 

1111 * 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 000 

* 001 

* 010 

* on 

* 100 

* 101 

* 110 

* ill 



LEVEL=128266 
************ 

FUNCTION 

DECODE 
************ 

13 1 

************ 

Z=A ♦- KL 

Z=A,A-,KL 

Z=A,A-,KH 

Z=A,A-,KK 

Z=A ♦ KH 

Z=A,OE,KL 

Z=A,OE t KH 

Z=A,OE,KK 



000 








001 


- 


A=A f A- f KL 




010 


- 


A=A*A- f KH 




Oil 


- 


A=AtA- f KK 




100 








101 


- 


A=A f OE f KL 




110 


• 


A^AtOEtKH 




111 


— 


A=A f OEf KK 




000 


- 


A^O - KL 




001 


- 


A=0t0R f KL 




010 


- 


A«0tOR f KH 




Oil 


- 


A=0tOR f KK 




100 








101 


- 


A=A + KL 




110 


- 


A=A 4- KH 




HI 


— 


A=A ♦ KK 





************ **************************************************** 



A=A,OR f KL 

A=AtORtKH 

A=AfOR f KK 

A=0 - KH 

A^A - KL 

A=A - KH 

A~A - KK 
************ 



PAGE 10 
************* 

* WORD * 

* TYPE * 
************* 

4 * 15 * 

************* 

* * 

* 1 * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

******* ****** 



BIT SIGNIFICANCE CHART FOR THE ARITH CONSTANT WORD (WORD TYPE 1) 



******** 

* WORD 

* TYPE 
******** 

* 1 

* 1 

* 
* 

* 



************ 

* STOR 

* CO NT 

******** 3gc$a$c$ 

* 2 

aje # # # a$c # * & # # # * 
* 

OQ=READ 

C1=READ 

PR 
10=STORE 
ll^STORE 

OR PRO 



**************** 

AGE * 

ROL * DATA 

**************** 

3*4 

* 
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****************************************** *************************************************** 

* * * W QRO * 

REGISTER ADDRESS * ADDRESS REGISTER OR K FIELD * MODIFIER CONTROL * TYPE * 

**************************************************************************** *********** ****** 

5 6 7*8 9 10 11 * 12 13 14 * 15 * 

********************************************************************************************* 



* 
* 
* 
* 



CONTROL* 



BIT 1 
THE AU 

AREA 
STORAG 
FOR RI 
01 AND 
TRUE W 
ADORES 



WHEN 
STORAG 
THE MO 
FIELD, 
1N0ICA 
VALUE. 

BITS 
2,3 

OC 
01 
1C 

11 



1 DETERMINES 
XILIARY STOR 
R THE PROGRA 
E AREA IS AC 
T 2,3 DECODF 
11. THIS I 
HEN INDIRECT 
SING. 



AUX OR 
OGRAM 

CNTL 

AUX 
GRAM 



IF 

AGE 
M 

CESSED 
S OF 
S ONLY 
LY 



THIS F 
ST0RA3E 
BYTE SE 
IS LIMI 

HALFWOR 
EVEN AD 

EXTER 
IS ALWA 
THEREFO 
ODD ADD 



TED 

OL 

3 



BY 



* 
* 

* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 

* 
* 
* 
* 
* 
* 

* 
* 

* * * * * * * * ** * * *****'*********** 

SIG 



NO ACESS TO 
E IS OESIGNA 
DIFIER CONTR 

BITS 2 AND 
TE THE UPDAT 



VALUE 



+ OR - 
+ OR - 
+ OR - 




1 
2 
2 



ALL E 
AS ADO 
FIELD 
BITS 8 



IELD MAY 
FOR A B 
LECTION 
TED TO T 
D SELECT 
DRESSES. 

NAL FACI 
YS DONE 
R ONLY T 
RESSES C 

LOCAL 

0000 - 

0001 - 

0010 - 

0011 - 

0100 - 

0101 - 

0110 - 

0111 - 
100C - 
1001 - 

1010 - 

1011 - 

1100 - 

1101 - 

1110 - 

1111 - 

VEN ADDR 
RESS REG 
DE SI GNAT 
,9, 10, AN 



ADDRESS LOCAL 
YTE OR HALFWORD. 
OF LOCAL STORAGE 
HE ODD ADDRESSES. 
ION IS LIMITED TO 



LITY ADDRESSING 
IN BYTE MODE, 
HE EXTERNALS WITH 
AN BE ACCESSED. 



TORAGE 

UO 

Ul 

VO 

VI 

GO 

Gl 

DO 

Dl 

10 

II 

TO 

Tl 
• PO 

PI 

HO 

HI 



DECODES 



FOR INDIRECT ADDRESSING 

THE ADDRESS REGISTER SELECTED 
BY THIS FIELD IS A HALFWORD 
LOCAL STORAGE REGISTER 

BIT 11 DOES NOT ENTER INTO 
THE ADDRESSING OF THE LOCAL 
STORAGE REGISTER, BUT DOES 
INDICATE THE FOLLOWING 



BIT 
11 


1 


1 



BITS 
2,3 

01 
01 

11 
11 



MEANING 



READ AUXILIARY 
READ PROGRAM 
STORE AUXILIARY 
STORE PROGRAM 



000 - 

001 - 
010 - 

Oil - 

100 - 



101 - 



110 - 



111 - 



* 
NO UPDATE * 

DIRECT ADDRESSING* 
NO ACCESS, PLUS * 
UPDATE. * 

NO ACCESS, MINUS * 
UPDATE. * 

LOCAL STORAGE * 

DATE REG, ACCESS,* 
PLUS UPDATE- * 

LOCAL STORAGE * 

DATE REG, ACCESS,* 



FOR DIRECT ADDRESSING 



THIS FIELD CONTAINS BIT 
CODES THAT FORCE THE ADDRESS 
REGISTER Ml TO SPECIFIC VALUES* 

THESE VALUES ARE- * 

* 

FORCED Ml * 



BITS 
8,9,10 

0000 
0001 
0010 
0011 
0100 
0101 
0110 
0111 
1000 
1001 
1010 
1011 
1100 
1101 
1110 
1111 



11 



VALUES 

88 
8A 
8C 
8E 
98 
9A 
9C 
9E 
A8 
AA 
AC 
AE 
B8 
BA 
BC 
BE 



* 
* 

* 

* 

* 
* 

* 

* 

* 
* 
* 

* 

* * 

********************************** 

* 
WHEN DIRECT ADDRESSING 
CONTROL STORAGE, MO IS 
SET TO X3. 



MINUS UPDATE. 
EXTERNAL DATA 
REG, ACCESS, 
PLUS UPDATE. 
EXTERNAL DATA 
REG, ACCESS, 

MINUS UPDATE. 



* 
* 

* 

* 
* 

* 

* 



NOTE- 



WHEN DIRECT ADDRESSING 
AUXILIARY STORAGE, MO 
SET TO 00. 



IS 



wjfr ^fr ^p *fi mfo -^j* .^js «j^ 

NIFICANC 



ESSES CAN BE USED 
ISTERS IN THE 
ED BY CONTROL WORD* 
11. * 

* 
* 

* 

* 

****%z*** ******>^^ * ****** *i^<****** ******** *^x*** ***************************************** 

E CHART FOR THE STORAGE WORD CWORD TYPE 2) 



* 
* 

* 

* 
* 



















CLOAD- 


=*E60, EC 


; LEVEL«128266 P 


AGE 


12 


$*******$****#***^**$******^ 


* WORD * 


FUNCTION 




* 




* 








* 






FUNCTION 


* 


WORD * 


* TYPE * 


DECODE 




* 


A SOURCE FIELD * B SOURCE FIELD 






* 






DECODE 


* 


TYPE * 


3*C#^*###£ $$$$$$$$$$$#$$$$*$$$$$$$$$$$$$$$ $$$$$$$$$#$$#$$$$$$$#$$*$$**$*#$$$$$$ 


* 1 * 


2 


3 


* 


4 5 


6 7*8 9 10 




11 


* 


12 




13 14 


* 


15 * 


agcaec aec3§e3$C3$ca$e^e ^e<ca$e3$c3ec^3<ca$c3»c>fc >$c 3$c a$c aec aQc a^ a^c 3^e s«c a^c i«e 3|c 3$e ^c a$e a<^ a$e 3|e ^^ ^^ 9^j^ a^^ ^^c XcaOe 3^^e aQc^e a$e a(e34c3^ ^aQe aQe a«c 3$c Xc a^ 3«c ?9e a^e 3«e 3«c aQe a^e ^e a$e a$c 3«e s$e a$c a<c a^c <c 3$e <e <c >$c s^ 3§c ^ 2jc a$c ^3^^c^3^^c39cafie9ec3ec>9c^:^3$c3(}c3$e3e(:a|cXca$c^ a^ ^c ^t ?gc a«c a^ ^c a«e sQc 3$c aQc 4e ^e 3^e ^4e ^t^c a«e aflc a^e 


* * 






* 




* 








* 








* 


* 


* i * 








* 


OOOO = 


UO * 0000 


= UO 






* 


000 






* 


1 * 


# * 








* 


0001 = 


Ul * 0001 


= Ul 






* 


C01 


- 


B^AXH ♦ BL 


♦ 


* 


* * 








* 


0010 = 


VO * 0010 


= VO 






* 


010 


- 


B^AXLtORfBH 


* 


* 


Jfc * 








* 


0011 = 


VI * 0011 


= VI 






* 


Oil 






* 


* 


* # 








* 


0100 = 


GO * 0100 


= GO 






* 


100 


- 


B=A ♦ B 


* 


* 


* * 








* 


0101 = 


Gl * 0101 


= Gl 






* 


101 


- 


B=AH ♦ BL 


* 


# 


ajc * 


c 





* 


0110 * 


DO * 0110 


= DO 






* 


110 


- 


B=AL ♦ BH 


* 


* 


* * 








* 


0111 = 


Dl * 0111 


= Dl 






* 


111 


- 


EXT=B 


* 


* 


* #- 






— * 


1000 = 


10 * 1000 


= 10 






&_ _ 








_ _* 


* 


^r ^* 








«■»* ^ 


# * 







* 


1001 = 


U * 1001 


= 11 






♦ 


000 


- 


B=AX 


* 


* 


* # 







* 


1010 = 


TO * 1010 


» TO 






* 


001 


- 


8=AXH 


* 


* 


* * 







* 


1011 * 


Tl * 1011 


= Tl 






£ 


010 


- 


B = AXL 


* 


* 


& # 


n 




* 


1100 = 


PO * 1100 


* PO 






♦ 


Oil 


- 


B=0 (STOP) 


* 


* 


* * 







* 


1101 = 


PI * 1101 


= PI 






^ 


100 


- 


B=A 


* 


* 


* # 







* 


1110 = 


HO * 1110 


= HO 






X 


101 


- 


B = AH 


* 


* 


* * 


c 




* 


1111 = 


HI * 1111 


= HI 






^ 


110 


- 


B=AL 


* 


* 


* # 







* 




* 








^ 


111 


- 


B = EXT 


* 


* 


* *- 






— * 












X 








— * 


* 


* * 







* 


THE FUNCTION DECODE IS A COMBINATION OF CONTROL WORD 






ft 


000 


- 


A=AtOE f B 


* 


* 


# * 







* 


BITS 2,3,12,13, AND 14. 








♦ 


001 


- 


A = A ♦ B 


* 


* 


* * 







* 












♦ 


010 


- 


A=A f OR,B 


* 


* 


* # 







* 


IF THE FUNCTION DECODE IS EQUAL TO 00111, 


THE A-SOURCE 


FIELD 


♦ 


Oil 


- 


A-A f A,B 


* 


* 


* * 







* 


ADDRESSES AN EXTERNAL FACILITY. 








* 


100 


- 


AC^A + B+l 


# 


* 


* * 







* 


IF THE FUNCTION DECODE IS EQUAL TO 01111, 


THE A-SOURCE 


FIELD 


^ 


1C1 


- 


AC=A + B 


* 


* 


* 3& 







* 


ADDRESSES AN EXTERNAL FACILITY. 








£ 


110 


- 


AC=A ♦ B+C 


* 


* 


# * 







* 












K 


111 


- 


AC=AL + 8+C 


* 


* 


afc a&— 






— — fc 


THE SYMBOL 
TO ANY OF THE 


-A- USED IN THE FUNCTION DECODE 
LOCAL STORAGE SYMBOLS UNDER THE 


FORMULAS, 
A-SOURCE 


REFERS 
FIELD. 


afc — — 








«._& 


* 


# * 






*» «• ^ 

* 


* 


000 


- 


A=A - B+i 




* * 






* 


THE SYMBOL 


-B- USED IN THE FUNCTION DECODE 


FORMULAS, 


REFERS 


* 


001 


- 


A=A - B 


* 


♦ 


* * 






* 


TO ANY OF THE 


LOCAL STORAGE SYMBOLS UNDER THE 


B- SOURCE 


FIELD. 


# 


10 






* 


* 


* * 






* 












* 


C 11 






* 


* 


* * 






* 


THE SYMBOL 


-C- REFERS TO THE ADDER CARRY (S3 LATCH) 






* 


100 


- 


AC=A - B+C 


* 


* 


* * 






* 












* 


101 


- 


AC=0 - B+C 


* 


* 


* * 






* 


THE SYMBOL 


-%- REFERS TO A BINARY +- OPERATION UNDER 


SO 


CTRL. 


# 


110 


- 


A=A % B+C 


* 


# 


* * 






* 


THE SYMBOL 


-3- REFERS TO A DECIMAL +- OPERATION UNDER SO CTRL 


.* 


111 


- 


AC=A 3 B+C 


* 


# 


$*$$$$ £$$$$$ ^^^^^^^^^^H«^^*^^^**#^*^^^^#^^^^*3|c^^^ ###$>$:####### $$$$^^$$$$$:$$$$$&$^$$$$$$$$$$$^ 



BIT SIGNIFICANCE CHART FOR THE MOVE/ARITHMETIC WORD 



(WORD TYPE 3) 
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**** ****#***#**###*********#**************** ******** 3«c4c3«c4cA>«c>9c4c «^ ^^ ^ Xe^4e^^ # ^ «^^4c 3«c4e3«c9$cX< >JC3te 4e ^ ^4c # 3jc^ Xc^«e Xc^^4c>9c>0t <c3«c 4e Jfc^catt 3«c]4e4ca4c 3«c4e](c3tc ^c^citc^c jgcstc^c^c^c^c^ogc a*c4e «c 3|c4c 

* WORD * * * * 

* TYPE * REPLACEMENT BITS FOR THE MO-REGISTER * REPLACEMENT BITS FOR THE MI-REGISTER * * 

************3C<* **************************************** ****** ******************************************* * ****************** ******* 

*01*2 3 4 5 6 7*8 9 10 11 12 13 14 * 15 * 

********************************************************************************************************************************* 

* 

BITS 2 THRU 7 OF THIS CONTROL WORD CONTAIN * BITS 8 THRU 14 CONTAIN THE VALUES THAT ARE GATED TO 

THE VALUES THAT ARE GATED TO BITS 2 THRU 7 OF * BITS THRU 6 OF THE MI-REGISTER WHEN THIS WORD IS 

THE MC-REGISTER WHEN THIS WORD IS EXECUTED. * EXECUTED. 

* 

WHEN THIS WORD IS GATED INTO THE CONTROL * 

REGISTER, BIT 5 OF THE CONTROL REGISTER IS * 

FORCED TO A 1. THE REPLACEMENT VALUE FOR THE * 
MO-REGISTER BIT 5 POSITION IS GATED FROM THE * 

STORAGE DATA BUS BIT 5 POSITION. * 

* 
* 
WHEN THIS WORD IS EXECUTED, THE ADDRESS OF THE NEXT SEQUENTIAL 
CONTROL WORO IS STORED IN THE I-REGISTER OF LOCAL STORAGE ZONE 4. 
************************************************************************************ ***********^ 

BIT SIGNIFICANCE CHAR FOR THE BRANCH UNCONDITIONAL WORD (WORD TYPE 4) 



sfe 






* 


* 


1 


c 


* 


fc 






* 


* 






* 


# 






* 


* 






# 


* 






* 


# 






* 


* 






* 


♦ 






* 


* 






* 


* 






* 


* 






* 


# 






* 



* * 

* * 

* * 

* * 

* * 

* * 

* * 
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^c^e^^^c^c^^c^a^a^^^c^a^^^e^c^^ ^ ^ ^ ^ ^ ^^^ ^^^ ^ ^ ^^ a$c ^3$e ^e^c; ^ea9c a^e^c a$ea9e^c a^e ^ca§e 9$c^c ^e^^^^^r^^alc^aSc^ca^^^c^^^^^e a$c a$c a$c 3$c a^c a$c 3«c 3$e ^t a$e a«c 39c 3$c ^e Xc ^ ^ ^c ^ a^ ^c ^e ^ a$e ^t^e^e^: a^ a^e 3$e 3$c ^e a$c a0c s^e j^ a^t a$e >$c a«e ^e a«e ^c 3«e ^c 9^ 4c <c afc 4e 3fit ^e^e s»c aQc a$e 

* WORD * BRANCH * * * REPLACEMENT BITS FOR * REPLACEMENT BITS FOR * WORD * 

* TYPE * CONTROL * A SOURCE FIELD * * MI-REGISTER * MO-REGISTER. * TYPE * 
***************************************************************************^^ 

* 1 * 2 3*4 5 6 7*8*9 10 11 * 12 13 14 * 15 * 
*********************************** ***********************************^ 

BITS 12 f 13, AND 14 * * 
CONTAIN THE REPLACEMENT* 1 * 
VALUES FOR BITS 5 f 6, * * 
AND 7 OF THE MO REG* * * 

* * 

* * 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

********************************************************************************************************************************* 

BIT SIGNIFICANCE CHART FOR BRANCH ON MASK WORD (WORD TYPE 5) 



* 


* 










* 






* 


* 


BIT 9 CONTAINS THE 


* 


* 1 


* 


00= 


4 


WAY 


BR. 


* 


BIT 5=0 


MEANS STRAIGHT 


* = LS 


♦ 


REPLACEMENT VALUE FOR 


* 


* 


* 


01 = 


8 


WAY 


BR 


* 


A-RES GATING. 


* 1=EXT 


♦ 


BIT 1 OF THE 


* 


* 


* 


10= 


2 


WAY 


BR 


* 


BIT 5=1 


MEANS CROSS 


* 


* 


MI-REGISTER. 


* 


* 

* 


* 

* 


(A 


SC 

N01 

It 


HJRCE 

7 con % 


* 


A-REG OUTPUT 


* 


♦ 
♦ 

♦ 


BIT 10 CONTAINS THE 
REPLACEMENT VALUE FOR 


* 
* 
* 


* 


* 


11 = 


L £ r\ 

> WAY 


U 1 

BR 




WHEN THIS CONTROL WORD IS READ 


* 


* 


* 










* 


INTO THE CONTROL 


REGISTER, BIT 5 


* 


♦ 


BIT 2 OF THE Ml 


* 


* 


* 










* 


IS FORCED TO 1. 


THIS RESTRICTS 


* 


♦ 


REGISTER. 


* 


* 


* 










* 


THE FACILITIES THAT CAN BE 


* 


♦ 




* 


* 












* 


ADDRESSED BY THE 


A-SOURCE FIELD 


♦ 


♦ 


BIT 11 CONTAINS THE 


* 


* 












* 


TO THOSE THAT HAVE AT LEAST BIT 


* 


♦ 


REPLACEMENT VALUE FOR 


* 


* 












* 


5=1 IN THEIR A-SOURCE OECODES. 


* 


♦ 


BIT OF THE Ml 


* 


* 












* 


BECAUSE BIT 5 


IS FORCED IN THE 


♦ 


♦ 


REGISTER 


* 


* 












* 


CONTROL REGISTER 


, THE TRUE STATUS* 


♦ 




* 


* 












* 


OF BIT 5 IS TAKEN FROM THE 


* 


♦ 




* 


* 












* 


STORAGE DATA BUS 


OUT, FOR A-REG 


.* 


* 




* 


* 












* 


GATING. 




* 


♦ 




* 


* 












* 






♦ 








& 












* 


EITHER DECODE 


LOCAL 


* 








* 












* 


IN CONTROL 


STORAGE 


* 








* 












* 

ft 


STORAGE. 


REGISTER 


* 








* 












* 


' 0000 OR 0100 


GO 


* 








* 












* 


0001 OR 0101 


Gl 


♦ 








* 












* 


0010 OR 0110 


DO 


* 








* 












* 


0011 OR 0111 


01 


* 








* 












* 


1000 OR 1100 


PO 


>fe 








*r 












* 


1001 OR 1101 


PI 


* 








* 












* 


1010 OR 1110 


HO 


* 








3«c 












* 


1011 OR 1111 


HI 


* 








* 












* 






* 








* 












* 


EXTERNAL FACILITIES HAVE THE 


* 








* 












* 


SAME ADDRESSING 


RESTRICTIONS. 


♦ 








* 












* 






* 
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**************************************************************** *****************^ 

* WORD * BIT * * * * WORD * 

* TYPE * CONTROL # A-SOURCE FIELD * * REPLACEMENT BITS FOR THE MI-REGISTER * TYPE * 
****************************************** ***************************************^ 

* 1 * 2 3*4 5 6 7*8*9 10 11 12 13 14 * 15 * 

********************** *** ***************************************************** *************************************************** 

* * 

BITS 9 — 14 CONTAIN THE REPLACEMENT VALUES * * 
FOR BITS 1 — 6 OF THE MI-REGISTER. * TEST * 

* FOR * 

* * 

* * 

* I * 

* TEST * 

* FOR * 

* 1 ♦ 

* * 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 

******************* ************************************************************************************** ************************* 

BIT SIGNIFICANCE CHART FOR BRANCH ON CONDITION WORD (WORD TYPE 6 OR 7) 



* 


* 












* 






* 


* 


* 1 


1 * 


00 = 


BIT 





OR 


4 


* 


BIT 5=0 MEANS STRAIGHT 


* = LS 


* 


* 


* 


01 = 


BIT 


1 


OR 


5 


* 


A-REG GATING. 


* 1=EXT 


* 


* 


* 


10 = 


BIT 


2 


OR 


6 


* 


BIT 5=1 MEANS CROSS 


* 


* 


* 
* 
* 


* 

ix 


11= 


BIT 


3 


OR 


7 


* 
* 
* 


A-REG OUTPUT, 


* 
* 


* 














WHEN THIS CONTROL WORD IS READ 


* 




* 














* 


INTO THE CONTROL 


REGISTER, BIT 5 


* 




* 














* 


IS FORCED TO 1. 


THIS RESTRICTS 


* 




* 














* 


THE FACILITIES THAT CAN BE 


* 




* 














* 


ADDRESS EO BY THE 


A-SOURCE FIELD 


* 




* 














* 


TO THOSE THAT HAVE AT LEAST BIT 


* 




* 














* 


5=1 IN THEIR A-SOURCE DECODES. 


* 




* 














* 


BECAUSE BIT 5 1 


[S FORCED IN THE 


* 




* 














* 


CONTROL REGISTERi 


> THE TRUE STATUS* 




* 














* 


OF BIT 5 IS TAKEN FROM THE 


* 




* 














* 


STORAGE DATA BUS 


OUT t FOR A-REG 


* 




* 














* 


GATING. 




* 




* 














* 






* * 




* 














* 


EITHER DECODE 


LOCAL 


* 




* 














* 


IN CONTROL 


STORAGE 


* 




* 














* 


STORAGE 


REGISTER 


* 




* 














* 






* 




* 














* 


0000 OR 0100 


GO 


* 




* 














* 


0001 OR 0101 


Gl 


* 




* 














* 


0010 OR 0110 


DO 


* 




* 














* 


0011 OR Gill 


Dl 


* 




* 














* 


1000 OR 1100 


PO 


* 




* 














* 


1001 OR 1101 


PI 


* 




* 














* 


1010 OR 1110 


HO 


* 




* 














* 


1011 OR 1111 


HI 


* 




* 














* 






* 




* 














* 


EXTERNAL FACILITIES HAVE THE 


* 




* 














* 


SAME ADDRESSING 


RESTRICTIONS. 


* 




* 














* 






* 





MPTF NO, 



RETEST PROCEDURE 



PROBLEM DEF IFITION 



EC LEVEL AFFECTED 



MICROPROGRAM TEMPORARY FIX RECORD 
PICKUP EC 
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ADDR * 


WORD * LABLE 


* 


BR 


* STATEMENT 


* COMMENTS 


* SEQUENCE 


NO** 


* 

....»•!((<. 


— * — — — 


*LABLE 

. — *k — 


-&—--——-—-—— — — . — — — — — — . 


„——————— a*e — — — — — — —— — — — —— — ————— — —— — — — —— — 


* 

————————————————— ———&—— ———— ———— 


. — — — * 


* 

* - 




* 
— * — 




—&—————————— — — — ———— — « 


* 

— ————— — — — Jk — — — — — — — — — —«— — — — — — — — — — — — — — — — 


* 

. — — — — — — — — .———— — — ———— — — — ijc — — — — — — — — — 


-— — — $ 


— "-»— »—• — — 7£ — 

4c -. 


. — — — — — &— — — — — — — 


. — i!e — 




, — A— — — — — — — — — ——————. 


..— ———— — — — sk- — — — — — — — — — — — — — — — — — — — — — — — — — — — — 


. —————————————— — — .— — jk— — — — — — • 




— — — — — -mmjf — 
* 


* 

* — 


Tit 




A— — — — — — — — — — — . 


— — — — —— — — — j& — — — — — ———————— —— — — — —— — — — —— — — — — 


,— ————— — — ———— — ——— — — — — jfc——— ————,. 


.——sk 




sic 

^ — — 






' ■" » a r "• —•——•■—•-• — — — — — — — — — — . 

* 

,_ ,£«».-,«—— .— .— — .— — — — — — ——— — — . 


— — — — — — — ^c — — — —— — — ————— — — —— — ———— — — — — — — — — — 


,— — — — —————— — — — ———.——-— — $ — — ——— — —« 


-— — — sk 


— — — — — mmjfr <m, 


.————— J£mm — — — — — — 

. — — — — — sk — — — — — — — 


* 




* 

, — *— — — —————— — ——————, 


* 

— — — — — —■& — — — — — — — — — ——— — .——.— —— ——— — — — — — — — — 


.———— — ——— — — — — —— — ———— — *———— ————.. 


# 

-— — — 4c 






* 
^ — 




.— .& — — — — — — — — — — — — — — — « 


——————— — — & ———————————————————————— — — — — 


* 

, ———— — — — — — — — — — — — — — — — — — 3k— — — — — — — - 


. — — — * 




'1* 

.— — — -de — — — — — 


* 




. — 5&— — — — — — — ——— —— — — —— — — , 


-— — — — — — — j{c — — — ————— — — — .———— — — ———— — — — — — — — 


* 

.———— — — ———————————— — — * — ——— — — — — * 


•— — — $ 




.— — — — — )£c- —— — — — — 


. — # — 




* 

. — »k— — — — — — — — — — — — —■———. 


* 

———— — — ———^c — — — — — —— ——— — — —— — — — — — — —— —— — - 


.————————— — ——— — — .— — #——— — .— — — — « 


* 
_ — — $ 




* 


* 

.-*- 




* 


* 


* 

. * , 





ORIGINAL CHECK SUM 



NEW CHECK SUM 



NO. OF STOP WORDS REMOVED 



ROUT. SEG.*ORIG. WORD 
* 






WORDS OVERLAYED BY PATCH 
ROUT. SEQ.*ORIG. WORD 

*. 






ROUT. SEQ.*QRIG. WORD 

* . 

, * 

, — ik 



MPTF NO. 

RETEST PROCEDURE 



EC LEVEL AFFECTED 



MICROPROGRAM TEMPORARY FIX RECORD 
PICKUP EC 
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PROBLEM DEFIFITION 



# 

* ADDR 


* 


WORD * LABLE 


* 


BR 


* STATEMENT 


* COMMENTS 


* SEQUENCE 


NO.* 


* 

#————— 


* 


. — — — — — 3}:— . — — — — — — 


*LABLE 

, — & — — 


— &------—-- — — .— — — — — — . 


— — — — — — ———#—— — — — ———————————————————————— .— 


* 

————————————————————— -A—— — — — — — - 


* 
. — — — * 


* 

a^c 




.— — — — $ — — — — — — 


* 




* 

— #— — — — . — ——— — ————————, 


* 

———————— — $ — ———————— — — ————————————————— 


* 

.———————————— — — — — — — — — — *— — — — — — — — „ 


-— — — 4c 


^ 
&————— 




.— — —#——————— 






* 


* 

————————— #— — —————— — — —————— — — — — — — — —— — — — — 


———————————— ———— ————*—— —————— — « 


„— — . — dc 


* 

a^c — — — — — 


# - 


. — — — — ^— — — — — — — 


* 

.— 3$C — 




* 

. — # — — —— — — — — — — — — — — — — — .- 


—————— — — — # — — ——————— — — — — ——————— —————— — — — 


* 

. — — — — —————————————— *————— ————. 


. — — — dc 




* 
#- 


* 

— — — — 3£ —————— — 


.— j£ — 




,— # —————————— — — — — — — — — , 


-.— ————— — — # — — — — — ————— — — — — — — — — — ————————— 


* 

. — — —————————————— ————*—— ———————<. 


-.— — — )fc 


}fc — — — — — 




. — —.— — — sfc — — — — — — 






.*«.. — .— — — — — — . — —————— , 


* 

— — — — — — — — — J&— — — — — — — — — — ———————— — — — — — — — — — — 


* 

. — — —— — ——— —— — —— — — ———— — — A — —— ———— — 




* 

&————— 




.— — — — — # — — — — — — — 


# — 




— .aje ———————— — — — — — — — — « 


* 

—————— — — — # — — — —————————— — — — — ——— — — ——————— 


. — — — — — — — — — — .— ••**«i.»»^.* — — .———.— — «■ 

. — — —— — — —————— — — — — — — — — & — — — — — — - 


* 


3$C — — — — 


— -ate - 


. — — — — —* — ——— — «. 






* 
— afc — — —— — ——— — — — — — — — . 


* 

—————————#——— — —————— — ——— — — — — — . — — — — 


.— — —————— — ——— ————— — — j8c — — — — 


# 


a8c — — — — . — 


~3JC - 


* 

.— — — — — & — — — — — — — 


$ — 




* 

. — # — — .—— — ————— ————————. 


— — . — — — — — — 3$C — — — — — — — — — — — — — — — —— — — — — — — —— — 


.— — — — — —— — —— — — — ——— — — — — A — — 


* 
Mr 




* 

-*- 


* 

aSc . - 


* 




* 
-# 


# , 


.———————— — — — — — — — — — — — — — ^— — ► — — .— — -mm ~m 

* 





ORIGINAL CHFCK SUM 



NEW CHECK SUM 



NO* OF STOP WORDS REMOVED 



POUT. SEQ.*ORIG. WORD 

^ 

* 
#— 



WORDS OVERLAYED BY PATCH 
ROUT. SEQ.*ORIG. WORD 

^c 

* 

, # , — 

; «c 



ROUT.SEQ.^ORIG*WORD 

*-. 

~ * 

* 
* , 



MPTF NO. 

RETEST PROCEDURE 



EC LEVEL AFFECTED 



MICROPROGRAM TEMPORARY FIX RECORD 
PICKUP EC 
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PROBLEM DEFIFITION 






ADDR * 



WORD 



LABLE 



* BR 
*LABLE 



STATEMENT 



* COMMENTS 



* 



SEQUENCE 



NO.* 



* 


















* 
* 
* 





















* 












* 



* 





















* 
* 


















L CHECK SUM 


NEW CHECK SUM 






■— —————.— — -.— — — —.— INU * Ur o lur WUI\Uo KCnUVCU 




ROUT. SEQ.*ORIS. WORD 
* 


WORDS OVERLAYED BY PATCH 
ROUT. SEQ.*ORIG. WORD 
* 

-, * 

* 

. *_ , . — 

* 

__, # . — 


ROUT. SEQ.*ORIG. WORD 
* 

-.—. — «.— — _«. .„. #—— — — — — — — . 


* 

«..»..«.«.«» «.-—.«»&—.•.«••. ——__-. 


————————— * — — — — — — — — — 


. * . 





ALDP -- CONSOLE PRINTER-KEYBOARD ALTER/DISPLAY 
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ADDITIONAL INFORMATION REFERENCE — 
FEMDM DIAGRAMS 5-77 THROUGH 5-79 

DESCRIPTION 

THIS ROUTINE ALLOWS MANUAL 1052 ALTER OR DISPLAY OF 
AUXILIARY STORAGE, CONTROL STORAGE, AND PROGRAM STORAGE. 
ANY NUMBER 0<= BYTES CAN BE ALTERED. DISPLAYING, HOWEVER, 
IS ALWAYS IN MULTIPLES OF EIGHT BYTES. 



WHE 

PR-KB 

AS FO 

1 



2ND 



B OR D, B 
AFT 
ADDRE 
OPERA 
TO TY 
OISPL 
TYP I N 
A HAL 
OPERA 
SEQUE 
ALTER 



N THF 

ALTER 
LLOWS 
ST CHA 
A = 
D = 
CHA 
A = 
C = 
P = 
= DISP 
ER THE 
SS. T 
TION I 
PE IN 
AY, TH 
G OUT 
T. IF 
TOR CA 
NTIAL 
OR DI 



•PROCEED* LIGHT COMES ON AFTER PRESSING THE 
DISPLAY BUTTON, TYPE THE FIRST TWO CHARACTERS 



RACTER — 

ALTER 

DISPLAY 
RACTER — A, 

AUXILIARY S 

CONTROL STD 

PROGRAM STD 
1403 BUFFER! 

FIRST TWO C 
HE ROUTINE T 
S ALTER, THE 
THE DATA TO 
E ROUTINE ST 
THE FIRST EI 

THE DISPLAY 
N PRESS THE 
BYTES WILL B 
SPLAY, SHOUL 



A OR D 



MODE ONLY 



D=COR 
TYPE 
A LIN 



C, OR P 
TORAGE 
RAGE — CE 
RAGE 

REF. DPTC) 
HARACTERS, 
HEN FORCES 

ROUTINE WAITS F 
BE ALTERED. IF 
ARTS RIGHT AFTER 
GHT BYTES OF DAT 

OF MORE DATA IS 
•SPACE* BAR, AND 
E DISPLAYED. EI 
D BE TERMINATED 



E DUMP 

A FOUR 

E FEED 

OR THE 

THE OP 

THE L 

A THEN 

DESIR 

THE N 

THER 

BY AN 



{REF. DUMP J 
-HEX-DIGIT 
. IF THE 

OPERATOR 
ERATION IS 
INE FEED, 

COMING TO 
ED, THE 
EXT EIGHT 
PE RATION, 
EOB. 



DESCRIPTION CONTINUED 

AT ANY POINT DURING THE PROCESS, THE OPERATOR CAN PRESS 
THE •CANCEL* KEY TO TERMINATE THE OPERATION EXCEPT WHILE 
DATA IS BEING TYPED FOR A 01 SPLAY OPERATION IN WHICH CASE 
THE KEYBOARD IS LOCKED. WHEN A 'CANCEL' IS ENCOUNTERED, 
THE OPERATION RETURNS TO THE BEGINNING OF THE ROUTINE 
GIVING THE OPERATOR A CHANCE TO TRY AGAIN. 

EXCEPT THE FIRST TWO CHARACTERS, ALL THE OTHERS SHOULD 
BE HEX DIGITS ONLY. BOTH UPPER OR LOWER CASE ARE ALLOWED 
FOR ALPHABETICAL CHARACTERS. THE FOLLOWING CONDITIONS 
ARE RECOGNIZED AS ERRORS. 

1. A NON-HEX DIGIT TYPED ON THE KEYBOARD. 

2. FIRST CHARACTER OTHER THAN A OR C. 

3. SECOND CHARACTER OTHER THAN A, C, OR P. THE C IS 
VALID ONLY IN CE MODE. 

4. INVALID STORAGE ADDRESS. 

THE ROUTINE SENDS A MESSAGE OF 'INVALID CHAR' OR 
•INVALID ADDR», THEN RETURNS TO THE BEGINNING TO GIVE 
THE OPERATOR ANOTHER TRY. 



THIS 
ODD. 



ROUTINE PROVIDES OFFSETTING WHEN THE ADDRESS IS 



WHEN ONE PASS OF THE OPERATION IS COMPLETED, THE 
ROUTINE ALWAYS GOES BACK TO THE BEGINNING. THUS, THE 
OPERATOR CAN DO ADDITIONAL ALTER OR DISPLAY OPERATIONS 
WITHOUT PRESSING THE ALTER-D I SPLAY BUTTON AGAIN, OR 
CAN PRESS THE 'START' BUTTON ON THE CONSOLE IF HE WISHES 
TO GO BACK TO THE INTERRUPTED CPU PROCESS. 



A DDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



COMMENTS 



ALDP 


001 


T 


ALDP 


00 2 


* 


ALDP 


00 3 


* 


ALDP 


004 


* 


A LOP 


005 


* 


ALDP 


006 


* 


ALDP 


00 7 


* 


ALDP 


00 B 


* 


ALDP 


009 


* 


ALDP 


010 


* 


ALDP 


Oil 


* 


ALDP 


012 


* 


ALDP 


013 


* 


ALDP 


014 


* 


ALDP 


015 


* 


ALDP 


016 


* 



1052 DOCUMENTARY 
THE WORD LABELED 
ADDRESS OF 
AA 
AC 
AP 
DA 
DC 
DP 



ALTER DISPLAY R. C. HUANG 10/24/67 

AS 'DOIT' IN BCPL ROUTINE WITH FIXED CONTROL STORAGE 
039C VARIES ACCORDING TO THE TYPE OF ALDP OPERATION 



ALTER AUX. 
ALTER CONTROL 
ALTER PROGRAM 
DISPLAY AUX. 
DISPLAY CONTROL 
DISPLAY PROGRAM 



STB 


HI AS,U+1 


STB 


HI CS,U+1 


STB 


HI U+l 


RDH 


H AS,U+2 


RDH 


H CS,U+2 


RDH 


H U+2 



THE REGISTER USAGES IN THIS ROUTINE ARE - 
U0,UI - ADDRESS 

VO - COUNTER OF NUMBER OF HALF WORDS 
VI - OUTPUT DATA 
GO - INPUT DATA 



7F08 
6F08 
7F18 
5E08 
4E08 
5E18 



ADDR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 
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COMMENTS 



1A0C 
1A0E 
1A10 
1A12 
1A14 
1A16 
1A18 
1A1A 
1A1C 
1A1E 
1A20 
1A22 
1A24 
1A26 
1A28 
1A2A 
1A2C 
1A2E 
1A30 
1A32 
1A34 
1A36 
1A38 
1A3A 
1A3C 
1A3E 



26A3 
2 783 
8 8BC 
8 8C4 
3643 
43 
FOB 3 
88BC 
24B3 
2577 
534A 
8 8CE 
D121 
DOCD 
7543 
F520 

2 4F3 
F320 
9A28 
044B 
FOBD 
041B 
F09A 

3 6D9 
8 8C6 
3 64 5 



ALDP 
ALDP 
ALOP 
ALDP 
ALDP 
ALOP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 



017 

018 
019 
020 
03 5 
037 
03 8 
039 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
0*52 
053 
054 
055 
056 
057 
058 
059 
060 
061 
062 
063 
064 
065 
066 
067 

06 8 
069 
070 
071 
072 
073 
074 

07 5 
076 
07 7 
078 
079 
080 
081 
082 



* 
* 

ASEQ 
START 



Gl - COLUMN COUNTER 

D0,D1 - CONTROL WORD AND FLAGS 

H0,H1 - DATA 



ALO7=0C 



BADCHR 
BAD ADR 

RDMORE 



CHGROW 



IS3X 



AORD 



* 
* 
* 

* 

* 
* 

* 
* 

* 
* 



241 
246 



05 6 
241 



252 
047 
03 7 



047 

051 

061 
044 
247 



LINEFO 
REDCH1 



IS3X 

LINEFD 



TYPCHR 
RDMORE 
START 



047 RDMORE 



RDMORE 
CHGROW 

AORO 

BADCHR 

READCH 



D0=0$K0A 

D1=0$K08 

BAL 

BAL 

D0=D0$K04 

Z=G0<K30 

BR IF HZ=0 

BAL 

GO=0$KOB 

G1=0$K77 

RDB VI AS,G-1 

BAL 

BR IF Gl 

BR IF GO 

G1=G1-G0 

BR IF Gl 

GO=0$KOF 

BR IF Dl 

BR 

Z=G0<K04 

BR IF LZ=0 

Z=G0<K01 

BR IF LZNZ 

DO=0-KDO 

BAL 

D0=DC$K40 



BIT5=1 
BIT5=1 

BIT3=0 

BIT7=0 



SET ALLOW STAR 
DEFINE ADDR TO 
LINE FEED 
READ 1ST CHARA 
DISABLE START 
MASK 3X IN PTT 
BR IF 1ST CH. 
INVALID CHARAC 
NEGATIVE G0=F4 
SET G=0B77 TO 
READ OUT MESSA 
TYPE MESSAGE 
BR IF NOT TO C 
8R IF MESSAGE 
CHANGE ROW BY 
BR IF TO PRINT 
NEGATIVE GO=FO 
BR IF TO PRINT 
GO TO SUBTRACT 
MASK FOR »D' - 
BR IF 1ST CH. 
MASK FOR «A» - 
BR IF 1ST CH. 
MAKE 2F CONTRO 
READ 2ND CHARA 
D0=4E FOR DSPL 



T KEY FLAG 




BE IN U REG 1 


•S 


CTER 




KEY 




CODE 




IS 3X 




TER MESSAGE 




AODR MESSAGE 




GE FROM AUX. 





UT 




HANGE RDW 




COMPLETED 




ADDING F4 OR 


FO 


2ND OR 4TH ROW 


, & SET DONE 


FLAG 


•CHAR' 




ONE ROW 




DISPLAY 




IS «D» 




ALTER 




IS NOT 'A' 




L WORD FOR ALTER 


CTER 




Y, D0=6F FOR 


ALTER 



D REG'S ARE USED HERE 
ARE ALSO USED IN THIS 
IS AS FOLLOWS - 

EXPECTING 



TO SET UP THE VARIABLE CONTROL WORO . THEY 
ROUTINE AS FLAGS. THE USAGE OF EACH FLAG 



BIT 
DO 



BIT 



BAL ROUTINE 



NOT CONTROL 



01 BIT 



- EXPECTING EOB IN 'READCH' BAL ROUTINE 

1 - CHAR. READ REQUIRES PACKING IN 'READCH' 

2 - OPERATION IS ALTER 

3 - OPERATION IS IN AUX OR PROGRAM STORAGE - 

4 - NOT FROM 'READCH' BAL ROUTINE 

5 - DISABLE 'START' KEY IN THE SOFT STOP LOOP - BSWI 

6 - VALID CHARACTER IN 'READCH' BAL ROUTINE 

7 - NOT USED, 1 FOR ALTER, FOR DISPLAY 

- ODD ADDRESS 

1 - LOOPING CONTROL 1 

2 - LOOPING CONTROL 2 

3 - OPERATION IS IN PROGRAM STORAGE 

4 - THE OPERATION IS NOT FROM 'BSTP' ROUTINE FOR 

INSTRUCTION ADDRESS TYPE OUT NOR LOG-OUT 

5 - 16TH CHARACTER 

6 - LOG OUT FOR MACHINE CK OR CE TRAP 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CL0A0=*E6G, 

COMMENTS 
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ALDP 


08 3 


* 






7 - TO PRINT THE 






A LDP 


084 


* 










1A40 


042D 


ALDP 


085 








Z=G0<K20 




1A42 


EOCA 


ALDP 


086 




090 


HIN0T2 


BR IF HZNZ 




1A44 


3715 


ALDP 


087 








D1 = D1$K10 




1A46 


047B 


ALDP 


088 








Z=G0<K07 




1A48 


9A5E 


ALDP 


089 




115 


BRBAD 


BR 




1A4A 


043F 


ALDP 


090 


HIN0T2 






Z=G0<K33 




1A4C 


E09A 


ALDP 


091 




044 


BADCHR 


BR IF HZNZ 




1A4E 


FOD4 


ALDP 


09 5 




100 


POSBUF 


BR IF LZNZ 




1A50 


E66C 


ALDP 


097 




126 


ALLSET 


BR IF DO BIT2= 


=0 


1A52 


C9ED 


ALDP 


098 




126 


ALLSET 


BR IF TD BIT4= 


= 1 


1A54 


C42B 


ALDP 


100 


POSBUF 






Z=G0<K02 




1A56 


FODC 


ALDP 


101 




105 


POSAUX 


BR IF LZNZ 




1A58 


E61B 


ALDP 


10 2 




044 


BADCHR 


BR IF D02=l 




1A5A 


AF78 


ALDP 


103 




OPTC 059 


START 


BR 




1A5C 


041B 


ALDP 


105 


POSAUX 






Z=G0<K01 




1A5E 


FOE4 


ALDP 


115 


BRBAD 


121 


POSDUM 


BR IF LZNZ 




1A60 


3615 


ALDP 


117 








O0=D0$K10 




1A62 


9A6C 


ALDP 


120 




126 


ALLSET 


BR 




1A64 


044B 


ALDP 


121 


POSDUM 






Z=G0<K04 




1A66 


F09A 


ALDP 


122 




044 


BADCHR 


BR IF LZNZ 




1A68 


2715 


ALDP 


123 








D1=0$K10 




1A6A 


3625 


ALDP 


124 








D0=DC$K20 




1A6C 


6662 


ALDP 


126 


ALLSET 






STH D DC,9C 




1A6E 


88CC 


ALDP 


127 




251 


SPACE 


BAL 




1A70 


8 8C6 


ALDP 


128 




247 


REAOCH 


BAL 




1A72 


5403 


ALDP 


129 








UO=GCXH 




1A74 


8 8C6 


ALDP 


130 




247 


READCH 


BAL 




1A76 


4400 


ALDP 


131 








U0=GCL+UCH 




1A78 


8 8C6 


ALDP 


132 




247 


READCH 


BAL 




1A7A 


5 413 


ALDP 


133 








Ui = G0XH 




1A7C 


88C6 


ALDP 


134 




247 


READCH 


BAL 




1A7E 


441D 


ALDP 


135 








U1=G0L+U1H 




1A80 


88BC 


ALDP 


136 




241 


LINEFD 


BAL 




1A82 


C310 


ALDP 


139 




150 


ONEMOR 


BR IF Dl 8IT4= 


=0 


1A84 


FOOC 


ALDP 


141 




145 


HWDCNT 


BR IF GO BIT7= 


=0 


1A86 


88CC 


ALDP 


142 




251 


SPACE 


BAL 




1A88 


88CC 


ALDP 


143 




251 


SPACE 


BAL 




IA8A 


17AD 


ALDP 


144 








D1 = DKKA0 




1A8C 


2243 


ALDP 


145 


HWDCNT 






V0=0$K04 




1A8E 


2515 


ALDP 


146 


COLCNT 






G1=Q$K10 




1A90 


F73D 


ALDP 


150 


ONEMOR 


20 2 


PROGRM 


BR IF Dl BIT3= 


-1 


1A92 


F61F 


ALDP 


154 




167 


EXPEOB 


BR IF DO BIT3= 


=1 


1A94 


00C9 


ALDP 


158 








Z=UO+KCO 




1A96 


F49E 


ALDP 


160 


ADDRCK 


167 


EXPEOB 


BR IF AC=0 




1A98 


3 713 


ALDP 


161 


ADRCHK 






D1=01$K01 




1A9A 


9A1C 


ALDP 


162 




045 


BADADR 


BR 




1A9C 


B3B2 


ALDP 


165 


GODUMP 


DUMP .00 2 


START 


BR 




1A9E 


3685 


ALDP 


167 


EXPEOB 






DQ=D0$K80 




1AAO 


E640 


ALDP 


168 




206 


DISPLY 


BR IF DO BIT2= 


=0 



MASK 2ND CHAR FO 
BR IF NOT 2X 
SET CONTROL WORD 
MASK FOR «P» - 2 
GO TO CHECK ON • 
MASK 2ND CH. FOR 
BR IF NOT 3X - I 
GO CHECK IF DISP 
2ND CHAR IS 'C«, 
ALTER CTRL, BR I 
MASK FOR DISP PR 
BR IF 2'ND CHARA 
BR IF 1ST CHAR A 
2»ND CHAR B,DISP 
MASK FOR A(31) - 
BR IF 2ND CH. NO 
SET CTRL WORD FO 



R 2X IN PTT CODE 

FOR PROG. STORE 
7 
7« 

CC33) OR A(31l 
NVALID 2ND CHAR 

BUFFER OR AUX 

BR IF DSPY CTRL 
F IN CE MODE 
T BUFF 
CTER NOT B 
— INVAL AB 

PRT BUFFER 

AUX STORAGE 
T A OR P 
R AUX OR PROG 



TEST FOR 2ND CH. D, 
BR IF 2ND CH. NOT D 
SET UP DUMP FLAGS 



DUMP 



** STORE THE CTRL 
FORCE A SPAC 
READ THE 1ST 
PUT IT IN UO 
READ THE 2ND 
PUT IT IN UO 
READ THE 3RD 
PUT IT IN Ul 
READ THE 4TH 
PUT IT IN Ul 
FORCE A LINE 
BR IF CORE D 
BR IF ADDR I 
ADDR IS ODD, 

ONE BYTE 
FLIP LOOP CT 
SET COUNTER 
SET COLUMN C 
BR IF PROG S 
48K T BR IF A 
MASK FOR ADD 
BR IF ADDR V 
TO TYPE 'INV 
ADDR OUT OF 



WD IN «DOITM039C} 
E 

ADDR HEX DIGIT 

HIGH 

ADDR HEX DIGIT 

LOW 

ADDR HEX DIGIT 

HIGH 

ADDR HEX DIGIT 

LOW 

FEED 
UMP 
S EVEN 

OFFSET BY 

RL € ODD ADDR FLAGS 

TO 4 HW'S 

OUNT TO 16 

TO RAGE 

UX, ALL MODULE VALID 

R HIGHER THAN 3FFF 

ALIO 

ALIO ADDR* 

BOUNDARY 



SET 'EXPECTING EOB" FLAG 
BR IF DISPLAY 



ADOR 



WORD SEQUENCE NO, 



LABEL 



N6XTSEQ 



NEXTLABEL STATEMENT 



CL0AD=*E60t 
COMMENTS 
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1AA2 
1AA4 
1AA6 
1AA8 
1AAA 
1AAC 
1AAF 
1ABO 
1AB2 
1AB4 
1AB6 
1AB8 
IA8A 
1ABC 
1ABE 
1ACO 
1AC2 
1AC4 
1AC6 
1AC8 
1ACA 
1ACC 
1ACE 
1ADO 
1AD2 
1AD4 
IAD6 
1AD8 
1ADA 
1ADC 
1AOE 
1AEO 
IAE2 
1AE4 
1AE6 
1AE8 
IAEA 
1AEC 
1AEE 
1AFO 
1AF2 
1AF4 
1AF6 
1AF8 

08 BC 

088E 
08C0 
08C2 
08C4 
08C6 



C31C 
88C6 
5 4F3 

8 8C6 
44F0 
1720 
839C 
E711 
88CC 
25FF 
C490 
88BC 
9A8E 
0049 
9A96 
839C 
1645 
C74A 
178 5 
5FE9 
5F35 

2 3FD 
361 
F4D6 
237B 
23CD 
88CF 
0761 
5E3D 
176 
9ACC 
1740 
E749 
22FF 
C482 

3 743 
8 8CE 
1743 
C375 
88BC 
88D2 
2243 
88C4 
9AB4 

2315 
3353 

3F00 
C4CE 
2F20 
3F02 



ALDP 
ALDP 
ALDP 
ALOP 

ALOP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALOP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALOP 



171 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
202 
204 
206 
20 7 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
246 
247 



16 5 
247 



GODUMP 
READCH 



247 READCH 



GOSPCE 
DECONT 



PROGRM 
DISPLY 



SCBYTE 

ENTRY 
SECHEX 



BCHK 330 
150 
251 

150 
241 
146 

160 
BCHK 330 



DONUPK 



D0NE1 



MGBSTP 



AEND 
LINEFD 



RE0CH1 
READCH 



252 
222 



212 

210 

180 

252 

237 
241 
254 

246 
181 



DOIT 

ONEMOR 

SPACE 

ONEMOR 
LINEFD 
COLCNT 

ADDRCK 
DOIT 



211 ENTRY 



217 DONUPK 



TYPCHR 
D0NE1 



SECHEX 
SCBYTE 
G OS PC E 

TYPCHR 

NOBSTP 
LINEFD 
NOGO 

REDCH1 
DECONT 



252 TYPCHR 



BR IF Dl BIT4=0 

BAL 

H1=G0XH 

BAL 

H1=GCL+H1H 

D1=DKK20 

BAL 

BR IF Dl BIT2=1 

BAL 

G1=G1+KFF 

BR IF ZNZ 

BAL 

BR 

Z=U0+K40 **48K, 

BR 

BAL 

D0=DC*-K40 

BR IF Dl BITO=0 

D1=D1*-K80 

H0=H1 

V1=HCXL 

V1=V1+KF0 

Z=V1+K06 

BR IF AC=0 

V1=V1+K07 

V1=V1+KC0 

BAL 

8R IF 01 BITl=i 

V1=H0L 

D1 = DKK60 

BR 

D1 = DKK40 

BR IF Dl BIT2=1 

VO=VO+KFF 

BR IF ZNZ 

D1=D1$K04 

BAL 

D1=D1*-K04 

BR IF Dl BIT4=1 

BAL 

BR 

V0=0$K04 

BAL 

BR 

V1=0$K10 
V1=V1$K05 
SET TA K=80 
BR IF ZNZ 
SET TA K=02 
SET TA K=90 



BR IF CORE DUMP 
ALTER, READ 1ST HEX 
PUT IT IN HI HIGH 
READ 2ND HEX 
PUT IT IN HI LOW 
INVERT LOOPING CONTROL FLAG 
STORE THE BYTE 
BR IF NO SPACING REQUIRED 
FORCE A SPACE 

DECREMENT COLUMN COUNT BY ONE 
BR IF NOT 16 COLUMNS YET 
END OF ONE LINE, FORCE LINE FEED 
GO TO RESTORE COL. COUNTER 
MASK FOR PROG ADDR HIGHER THAN B 



READ HALFWORQ 
ALLOW ANY CHAR 
BR IF ADDR IS 
ODD ADDR, RST 
MOVE IN THE OT 
MOVE HIGH HEX 
UNPACK HEX TO 
TEST FOR DIGIT 
BR IF DIGIT IS 
DIGIT IS A THR 
IT TO CI THRU 
TYPE IT OUT 
BR IF DONE ONE 
MOVE IN L0WI2N 
INVERT LOOPING 
GO TYPE THE 2N 
INVERT LOOPING 
BR IF JUST FIN 
DECREMENT THE 
BR IF COUNTER 
SET 16 TH CHAR 
GO TO TYPE OUT 
RST THE 16TH C 
BR IF NOT BSTP 
FORCE A LINE F 
DONE INST. STE 
RESTORE HW COU 
**DONE 8 BYTES, GO G 
NOT EOB, DISPL 



FOR 'SPACE* 
EVEN 

ODD ADDR FLAG 
HER (ODD) BYTE 
DIGIT INTO VI 
EBCDIC, ADD FO 

HIGHER THAN 9 

THRU 9 
U F, CHANGE 

C6 

BYTE, LOOPING CTRL 
D OR 4THJHEX DIGIT 

CONTROL BITS 
D OR 4TH HEX DIGIT 

CONTROL 1 
I SHED 1ST BYTE 
4 HW COUNT BY 1 
NOT ZERO YET 

FLAG 

THE LAST CHAR 
HAR FLAG 

NOR LOGOUT 
EED 

P OR LOG OUT 
NTER TO 4 

ET EOB OR ANY CHAR 
AY 8 MORE BYTES 



LINE FEED SUBROUTINE 

SET VI TO LINE FEED CHARACTER 

ALLOW KEYBOARD RESTORE 

UNCONDITIONAL BR 

INITIALIZE PRINTER 

SET READ LATCH, 6 ALDP ACTIVE 



AODR 

08C8 
08CA 
08CC 
08CE 
08D0 
0802 
0804 
0806 
0808 
089A 
089C 
08 9 E 
OSAC 
08A2 
08A4 
08A6 
08 A8 
08AA 
08AC 
08AE 
08B0 
08B2 
08B4 
08B6 
08B8 
08BA 
26B8 
26BA 
26BC 
26BE 
26C0 
26C? 
26C4 
26C6 
26C8 
2 6CA 
26CC 
26CE 
2600 
26D2 
26D4 
2606 
2698 
269A 
269C 
269E 
26A0 
26A2 
26A4 
26A6 
26A8 



WORD SEQUENCE NO, 



1683 
C4D0 
2345 
2F0A 
EEA2 
1F2A 
E31A 
FA9B 
9302 
2400 
AAB1 
0610 
AB20 
3BE9 
76AA 
7 2AA 
74AA 
70A0 
2B2D 
7EA0 
2 440 
7872 
2400 
E33B 
1600 
AB20 
3BF9 
56AA 
52AA 
54AA 
42AF 
C218 
D349 
4F3F 
2440 
5 87 2 

2 404 
5 0A0 
2B20 
5EA0 
1F2 8 
128E 
5A4F 

3 68 3 
CAAF 
14C5 
DAB2 
04AB 
C4AF 
162 3 
045B 



ALDP 
ALDP 
ALOP 
ALOP 

ALOP 
ALOP 
ALDP 
ALOP 
ALDP 
ALOP 
ALOP 
ALOP 
ALOP 
ALOP 
ALOP 
ALDP 
ALDP 
ALOP 
ALDP 
ALOP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALOP 
ALDP 
ALDP 
ALDo 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALDP 
ALOP 
ALOP 
ALDP 
ALOP 
ALDP 



248 
249 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 

28 8 
289 
290 
291 
292 

29 3 
294 
295 
296 
297 
298 
299 



LABEL 



SPACE 
TYPCHR 
INTVCK 
NOGO 



ADDED 



NIOMCK 
STRAOR 



NEXTSEQ 
25 3 



RESET 



SOBSWI 
RTTYP 



262 STRADR 



258 

258 

BCHK 069 

261 

BSWI 107 



274 
BSWI 107 



291 
283 



8AKM0D 



RDCHRT 



302 

304 
30 2 



ADDED 
ADDED 
ENTRY 

NOMCK N 

RESTRH 



NEXTLABEL STATEMENT 

D0=D0*-K08 

INTVCK BR IF ZNZ 
V1=0$K40 
SET TA K = 50 
BR IF TT BIT2=0 
RST TA K=D2 
BR IF 01 BIT6=0 
BR IF TT BIT7=1 
BR 

SET MODE K=00 
BR IF MC=NZ 
RST BC K=01 
BR 

T1=0-KEO 
STH AS,T-2 
STH V AS,T-2 
STH G AS»T-2 
STH U AS,T+0 
T1=T1+K20 
STH H AStT+O 
SET MODE K=04 
STH I 0A t 9E 
SET MODE K=00 

GOBSWI BR IF Dl BIT6=1 
RST BC K=80 

RESTRH BR 

T1=0-KE0 
RDH D AS,T-2 
RDH V AStT-2 
RDH G AS,T-2 
STP0=T0 

RDCHRT BR IF DO BIT4=0 

BAKMOO BR IF 01 BIT5=1 

TE=V1 

SET MODE K=04 
RDH I DA,9E 
SET MODE K=20 
RDH U AS,T+0 
T1=T1+K20 
RDH H AS,T+0 
RST TA K=C2 
RTN 
G0=TI 
DO=00$K08 

RSTLCH BR IF TT BIT4=1 

G0=G0*-KC0 

N0E08C BR IF TT BIT5=0 

Z=GO<KOA 

RSTLCH BR IF 1=0 

D0=DC*-K02 
Z=G0<K05 



CLQA0=*E60, 

COMMENTS 



EC LEVEL=128266 PAGE 23 



SET READ CHA 
UNCONDITIONA 
SPACE SUBROU 
TYPE CHAR RO 
BR IF NO INT 
RST RD, WT, 
BR IF NORMAL 
BR IF LOGOUT 
CK SUM LOGOU 
SET CPU MODE 
BR IF LOGOUT 
RST LOGOUT L 
GO TO SOFT S 
T=001F 

STORE DICTRL 
VIHW COUNT £ 
STORE G ICOL 
STORE ULADDR 
T=0039 

STORE HIDATA 
SET TO BACK 
STORE THE BA 
SET TO CPU M 
BR IF FROM » 
SET SOFT STO 
GO TO SOFT S 
T=001F 

RESTORE OICT 
**RESTORE V(HW CO 
RESTORE GICO 
DISABLE STOR 
BR IF IT WAS 
BR IF IT WAS 
SEND CHAR TO 
SET TO BACK 
RESTORE BAL 
SET BACK TO 
RESTORE U(AD 
T=0039 

RESTORE HI DA 
RST READ, WR 



R SU 
L BR 
TINE 
UTIN 
ERVE 
ACTI 

ALD 

LAT 
T DO 

TO 

TO 
ATCH 
TOP 



BROUTINE FLAG 

, V1=BLANK 

E f SET WRITE LTH 

NTION REQUIRED 

VE & SHARE 

P 

CH ON 

NE 

BR ON MC REG 

BE DONE YET 



WORD OR FLAGS I IE- IF 

WRITE DATAIIN 1C-1D 

LUMN COUNT) IN 1A-1B 

REG'S) IN 0018-0019 

REG'S) IN 0038-0039 
UP ZONE 

L RETURN ADDR IN K-7 
ODE £ ZONE 
BMCK' ROUTINE 
P LATCH 
TOP 

RL WORD OR FLAGS) 
UNTER £ WRITE DATA) 
L. COUNT) 
AGE PROTECT 

FROM 'READCH* 

THE 16TH CHAR 

BUS OUT 
UP MODE 
RETURN ADDR 
1052 MODE 
DR REG'S) 



TA REG'S) 
ITE LATCH, 



SHARE REQ 



GET CHAR. FROM BUS IN 

RST 'READCH' BAL ROUTINE FLAG 

BR IF KEY BOARD CK 

ALLOW BOTH UPPER £ LOWER CASES 

BR IF NOT ALTERNATE CODE 

MASK FOR 'CANCEL' 

BR IF 'CANCEL' 

SET INVALID CHAR. FLAG 

MASK FOR EOB 



ADOR 


WORD 


SEQUENC 


:e NO. 


LABEL 


next: 


SEQ 


NEXTLABEL 


STATEMENT 


26AA 


C4B2 


ALDP 


300 






304 


N0E08C 


BR IF ZNZ 


26AC 


C63 2 


ALOP 


301 






304 


N0E08C 


BR IF DO BITO=0 


26AE 


1F2 8 


ALOP 


302 


RSTLCH 








RST TA K=C2 


26B0 


9A0C 


ALOP 


30 3 






03 7 


START 


BR 


26B2 


957A 


ALDP 


304 


NOEOBC 


DYPE 


242 


STTRSL 


BAL 


26B4 


E201 


ALDP 


30 5 






307 


NOIVLD 


BR IF DO BIT6=1 


26B6 


9A1A 


ALOP 


30 6 


SOBAD 




044 


BADCHR 


BR 


2680 


0648 


ALDP 


30 7 


NOIVLD 




283 


BAKMOD 


BR IF DO BIT1=0 


2682 


CFFD 


ALDP 


30 8 










Z=HKKFO 


2684 


E09 5 


ALDP 


309 






317 


DONPCK 


BR IF HZ=0 


2686 


1FCD 


ALOP 


310 










H1 = HKKC0 


2688 


E08F 


ALDP 


311 






314 


ALPHA 


BR IF HZ=0 


268A 


1F40 


ALOP 


312 










H1 = HKK40 


268C 


E0B6 


ALDP 


313 






306 


GOBAD 


BR IF HZNZ 


268E 


F0B7 


ALOP 


314 


ALPHA 




30 6 


GOBAD 


BR IF LZ=0 


2690 


2F9B 


ALDP 


315 










H1=H1+K09 


2692 


E0B6 


ALDP 


316 






306 


GOBAD 


BR IF HZNZ 


2694 


5F40 


ALOP 


317 


DONPCK 








G0=H1L 


2696 


A6C8 


ALOP 


318 






283 


BAKMOD 


BR 






ALOP 


319 


ATABLE 


ADDR=G044 






0044 


D9C4 


ALDP 
ALDP 


320 
321 


C 
AEND 








CAUX'RDDA* 






ALOP 


322 


ATABLE 


ADDR=0054 






0054 


09C1 


ALOP 
ALOP 


323 
324 


C 
AEND 








CAUX'RAHC 1 






ALDP 


325 


ATABLE 


ADDR=0064 






0064 


40C4 


ALOP 
ALDP 


326 
32.7 


C 
AEND 








CAUX' OIL* 






ALOP 


328 


ATABLE 


ADDR=0074 






0074 


C1E5 


ALOP 
ALOP 


329 

330 


C 
AEND 








CAUX'AVNI* 



CL0AD=*E60, 
COMMENTS 
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BR IF NOT EOB 

BR IF NOT EXPECTING EOB 

RST READ, WRITE LATCH, SHARE REO 

RESTART ANOTHER PASS 

GO TO X'LATE CHAR IN HI 

BR IF INVALID CH. FLAG IS NOT ON 

CHAR. TYPED IS INVALID 

BR IF PACKING IS NOT REQUIRED 

MASK FOR NUMERIC 

BR IF CH. IS NUMERIC 

INVERT HIGH TWO BITS 

BR IF CX 

MASK FOR 8X 

BR IF CHAR IS 

BR IF CHAR IS 

ADJUST 

BR IF CH. IS NOT 

DONE PACKING 



NOT CX NOR 
CO OR 80 - 



8X 
INVALID 



A THRU F 



ALDP 


037 


ALDP 


050 


ALDP 


303 


DYPE 


019 


ALDP 


044 


ALDP 


059 


ALDP 


091 


ALDP 


102 ALDP 


ALDP 


045 


ALOP 


162 










ALDP 


047 


ALDP 


049 


ALDP 


05 2 


ALDP 


054 


ALDP 


051 


ALOP 


055 










ALDP 


056 


ALDP 


04 3 










ALDP 


061 


ALDP 


057 










ALOP 


090 


ALDP 


086 










ALDP 


100 


ALDP 


095 










ALDP 


105 


ALDP 


101 










ALDP 


115 


ALDP 


089 










ALDP 


121 


ALDP 


115 










ALOP 


126 


ALDP 


09 7 


ALDP 


09 8 


ALDP 


120 


ALDP 


145 


ALOP 


141 


BCHK 


06 8 






ALDP 


146 


ALDP 


184 


BMCK 


133 






ALDP 


150 


ALDP 


139 


ALDP 


179 


ALDP 


182 


ALDP 


160 


ALDP 


204 











* CROSS REFERENCE FOR CSECT ALDP * 

lie 9^T 3&C 1$K 3$C 3§C 3&C 9SC 3& 9^C 3$C 5lJC 3§C 5^C 3&I 3fiC 3^ 3$C 9JC !!& 3$C Sfe 30C Sit 3iC 3$C 1>|C 3j|C 3$S 3JC 3$C 3&T 3$C ^C 

122 ALDP 306 



* CROSS REFERENCE FOR CSECT ALDP * 
********************************** 
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ALDP 


165 


ALDP 


171 


















ALDP 


167 


ALDP 


154 


ALDP 


160 














ALDP 


180 


ALDP 


225 


















ALDP 


181 


ALDP 


239 


















ALDP 


20? 


ALDP 


150 


















ALDP 


206 


ALDP 


168 


















ALDP 


210 


ALDP 


223 


















ALDP 


211 


ALDP 


20 8 


BSTP 


025 














ALDP 


212 


ALDP 


221 


















ALDP 


217 


ALDP 


214 


















ALDP 


222 


ALDP 


218 


















ALDP 


237 


ALDP 


234 


















ALDP 


241 


ALDP 


039 


ALDP 


044 


ALDP 


136 


ALDP 


183 


ALDP 


235 


ALDP 


246 


ALDP 


040 


ALDP 


23 8 














ALDP 


247 


ALDP 


061 


ALDP 


12 8 


ALDP 


130 


ALDP 


132 


ALDP 


134 


ALDP 


251 


ALDP 


127 


ALDP 


142 


ALDP 


143 


ALDP 


180 


DPTC 


08 7 


ALDP 


252 


ALDP 


048 


ALDP 


217 


ALDP 


232 


ALDP 


244 


DPTC 


081 


ALDP 


253 


ALOP 


249 


















ALDP 


254 


ALDP 


236 


















ALDP 


258 


ALDP 


255 


ALDP 


256 














ALDP 


261 


ALDP 


259 


















ALDP 


262 


ALDP 


253 


















ALDP 


271 


BSWI 


175 


















ALDP 


274 


ALDP 


27 2 


















ALDP 


275 


DYPE 


020 


















ALDP 


283 


ALDP 


281 


ALDP 


30? 


ALOP 


318 










ALDP 


291 


ALDP 


280 


















ALDP 


30? 


ALDP 


293 


ALDP 


297 


DPTC 


095 










ALDP 


304 


ALDP 


295 


ALOP 


330 


ALDP 


301 










ALDP 


306 


ALDP 


313 


ALDP 


314 


ALDP 


316 










ALDP 


307 


ALDP 


305 


















ALDP 


314 


ALDP 


311 


















ALDP 


317 


ALDP 


30 9 



















BMCK 132 DPTC 063 



ALDP 173 ALDP 175 



BCHK DESCRIPTIVE TEXT 
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THE 
OF THE 
ARE EXE 
ARE PRE 
THE C 
CONTENT 
002-00 

LOCA 
VALUES 
IS PERF 
AREA AN 
THE ARE 
CHECK S 
ZERO. 

THE 



CHECK SUM ROUTINE -BCHK-, IS ENTERED UPON COMPLETION 

RESIDENT CPU MICRODIAGNOST IG -B0IA-. THESE ROUTINES 

CUTED WHENEVER THE CSLt SYSTEM RESET, OR LOAD KEYS 

SSED. 

HECK SUM ROUTINE PERFORMS AN EXCLUSIVE OR ON THE 

S OF CONTROL STORAGE WITH THE EXCEPTION OF LOCATIONS 

OD AND 0280-02BF. 

TIONS 0002-0000 CONTAIN THE HANDLOADEO CHECK SUM 

OF THE INDIVIDUAL CORE LOADS. WHEN A CSL OPERATION 

ORMED, THE CHECK SUM VALUE IS SELECTED FROM THIS 

D PLACED IN LOCATION 0EC4, WHERE IT BECOMES PART OF 

A THAT IS SUBJECTED TO THE EXCLUSIVE OR. THIS 

UM VALUE SHOULD CAUSE THE EXCLUSIVE OR RESULT TO BE 

HANDLOADEO AREAS ARE - 



* 3 * TEST LOGOUT- *0N 



ADDRESS 

000 2 
0004 
0006 
000 3 
OOOA 
OOOC 



CHECK SUM VALUE FOR 

*E60/*E61 (MODEL 2 5 MODE) 

*E62 

*E63 

*E40 (1401/1460 MODE) 

*E50 (1440 MODE) 

*E20 (MODEL 20 MODE) 



* A CSL OPERATION HAD BEEN 

PERFORMED. SET UP THE LOGOUT AREA 
WITH CHECK SUM INFORMATION. 
OECO — EC LEVEL 
0EC2 — LABEL OF CORE LOAD 

BEING USED. 
CEC4 — VALUE FROM HANDLOAD 

AREA. 
0EC6 — CORRECTION FACTOR, 
ALWAYS ZERO ON 
INITIAL LOGOUT. 
ROUTINE TO LOGOUT 

RETURN IS MADE 
* ENTRY *. 
AFTER A 
OPERATION 
GO TO -BCHK- 



GO TO -ALDP- 
THIS INFORMATION. 
TO -BCHK- AT LABEL 
LOGOUT *OFF* ENTRY WAS MADE 

SYSTEM RESET OR LOAD 
HAD BEEN PERFORMED. 
LABEL * ENTRY *. 

* 4 * PERFORM EXCLUSIVE OR OF CONTROL STORAGE. SKIP 

LOCATIONS 0002-000D AND 0280-02BF. 

* 5 * CHECK SUM OK - BRANCH TO -BSYS- LABEL * SYSRST * 

CHECK SUM BAD -SET UP ADDRESS OF CORRECTION FACTOR 

PRIOR TO CE KEY TEST. GO TO STEP 6, 



THE CHECK SUM ROUTINE IS EXECUTED IN THE FOLLOWING 
SEQUENCE- 

* 1 * ENTRY IS MADE FROM THE BO I A ROUTINE TO LABEL -START- 

* 2 * SET 1052 MODE AND INITIAL IZE CERTAIN DIRECT 

ADDRESSABLE CONTROL STORAGE LOCATIONS. 



* 6 * CF KEY ON - 



CE KEY OFF- 



STORE EXCLUSIVE OR RESULT AS 
CORRECTION FACTOR INTO ADDRESS 0EC6. 
BRANCH TO LOGOUT CHECK SUM AREA AND 
PERFORM AN EXCLUSIVE OR AGAIN. THIS 
SHOULD RESULT IN A GOOD CHECK SUM. 
TURN ON CSL CHECK LIGHT AND 
** STOP **. (HARD STOP LATCH ON) 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEO 



NEXTLABEL STATEMENT 



COMMENTS 







BCHK 


00 1 


T 






BCHK 


00 2 


* 






BCHK 


00 3 


* 






BCHK 


004 


* 


1324 


2 404 


BCHK 


Oil 


START 


1326 


4 63 2 


BCHK 


051 




1328 


6662 


BCHK 


052 




132A 


FA82 


BCHK 


053 




132C 


21C5 


BCHK 


054 


AGAIN 


132E 


2 OF 3 


BCHK 


055 




1330 


6004 


BCHK 


056 




1332 


4208 


BCHK 


057 




1334 


2A07 


BCHK 


058 




1336 


53BD 


BCHK 


059 




1338 


C4BC 


BCHK 


060 




133A 


2B1B 


BCHK 


061 




133C 


6BB3 


BCHK 


062 


CALARE 



CHECK SUM 



069 ENTRY 



062 CALARE 



SET MODE K=20 

RDH D 0C,8E 

STH D 0C,9C 

BR IF TT7=0 

U1=0$KCO 

U0=0$K0E 

U=U + 2 

RDH V CS,U+2 

T0=0 

T1=V1L 

BR IF ZNZ 

T1=T1+K01 

T1=T1+T1 



SET 
SET 



1052 
T TO 



MODE 
4E08 



STORE 4E08 INTO »DOIT» WORD 
FALL THRU IF LOGOUT ON (CSL ONLY) 
BUILD ADDRESS OF CORE 

LOAD NAME JUST LOADED 
U-REGISTER = 0EC2 
READ OUT THE NAME 

FIND OUT WHAT 

THE CSL NAME IS 

ADD 1 TO LOW DIGIT OF NAME 

DOUBLE THE LOW DIGIT OF NAME 



ADDR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E60, EC LEVEL»128266 PAGE 27 

COMMENTS 



133F 


42A0 


BCHK 


06 3 










RDH V CS,T 


1340 


620R 


BCHK 


064 










STH V CS,U+2 


1342 


610 


BCHK 


065 










RST BC K=01 


1344 


511B 


BCHK 


066 










U1=U1H 


1346 


2 723 


BCHK 


06 7 










D1=0$K02 


1348 


9A8C 


BCHK 


068 




ALDP 


145 


HWDCNT 


BR 


1302 


4252 


BCHK 


06 9 


ENTRY 








RDH V DC,9A 


1304 


4C26 


BCHK 


070 










P=V 


1306 


4 ACQ 


BCHK 


071 










RDH T CS,P 


1308 


2DEB 


BCHK 


072 










P1=P1+K0E 


130 A 


8258 


BCHK 


073 


MORE 




257 


DOFUNC 


BAL 


130C 


6CC4 


BCHK 


074 










P = P+2 


130E 


DCOA 


BCHK 


083 






073 


MORE 


BR IF P01=0 


1310 


42A6 


BCHK 


092 










V=T 


1312 


C481 


BCHK 


093 






105 


BREAK 


BR IF Z=0 


1314 


2CE3 


BCHK 


094 










PO=0$KCE 


1316 


2 DC 5 


BCHK 


Q95 










P1=0$KC0 


1318 


3D63 


BCHK 


09 6 










P1=P1$K06 


131A 


C99F 


BCHK 


09 7 






IOC 


OBOY 


BR IF TD4=1 


13 1C 


2820 


BCHK 
BCHK 


098 

099 


* 








SET DR K=02 


131E 


8258 


BCHK 


100 


OBOY 




257 


DOFUNC 


BAL 


1320 


6AC0 


BCHK 


101 










STH T CS,P 


1322 


932C 


BCHK 


102 






054 


AGAIN 


BR 


24F8 


4A52 


BCHK 


103 


OKDONE 








RDH T DC,9A 


24FA 


A28C 


BCHK 


104 




BSYS 


002 


SYSRST 


BR 


1300 


A4E6 


BCHK 


105 


BREAK 




10 7 


OKSUM 


BR 


24E6 


2 6C5 


BCHK 


107 


OKSUM 








DO=0$KCC 


24E8 


2 70 5 


BCHK 


12 7 










D1=0$K00 


24EA 


4452 


BCHK 


12 8 


SETUP 








RDH G DC9A 


24EC 


4248 


BCHK 


129 


RD 








RDH V CStG+2 


24EE 


7268 


BCHK 


130 










STH V AS,D+2 


24F0 


F06C 


BCHK 


131 






129 


RD 


BR IF GO 7=0 


24F2 


F67 9 


BCHK 


175 






103 


OKDONE 


BR IF D03=l 


24F4 


2 60 5 


BCHK 


192 










DO=0$KDO 


24F6 


A4EA 


BCHK 


210 






128 


SETUP 


BR 


0258 


0C2B 


BCHK 


25 7 


DOFUNC 








Z=P0<K02 


02 5A 


C4E4 


BCHK 


258 






26 3 


NOTCE 


BR IF ZNZ 


02 5C 


0D8D 


BCHK 


259 










Z=PKK80 


025E 


C4E4 


BCHK 


260 






26 3 


NOTCE 


BR IF ZNZ 


0260 


2DB5 


BCHK 


261 










P1=0$KB0 


0262 


2DEB 


BCHK 


262 










Pl = Pl-»-KCE 


0264 


42C0 


BCHK 


263 


NOTCE 








RDH V CS,P 


0266 


6A21 


BCHK 


264 










T0=T0<V0 


0268 


6B31 


BCHK 


265 










Tl-TKVi 


026A 


128E 


BCHK 


266 










RTN 






BCHK 


267 


RESERVE 


0280 THRU 02BC 








BCHK 


269 


ATABLE 


ADDR=02BE 






02BE 


BOEC 


BCHK 
BCHK 


270 
271 


AS NO 


OVLY 


00 2 


IXSTRT 


BR 






BCHK 


315 


RESERVE 


OECO THRU 0EC2 





** USE UPDATED NAME TO READ HANDLOAD 

STORE HANDLOAD CHECK SUM IN 0EC4 

RESET LOGOUT LATCH 

U-REG=0EC0 

SET UP FLAGS 

BRANCH TO LOGOUT OECO — 0EC6 

ZERO V-REGISTER 

ZERO P-REGISTER 

READ OUT CS LOCATION 0000 

SKIP HANDLOAD INFORMATION 

BR TO START EXCLUSIVE OR 

INCREMENT CS ADDRESS 

MOVE LAST EX OR RESULT TO V 
BR IF EX OR RESULT ZERO 
SET UP 

CORRECTION 

FACTOR ADDRESS 
BRANCH IF CE KEY ON 
TURN ON CHECK SUM LIGHT AND THE 

HARD STOP LATCH. 
GO GENERATE CORRECTION FACTOR 
STORE CORRECTION FACTOR IN 0EC6 
GO SETUP FOR CORRECTION LOGOUT 
ZERO OUT T REG 
BR TO SYSTEM RESET 
STRING BREAK BR 
SET UP AUX MOD C 

SET G TO 00 
READ CTRL AND 
STORE INTO AUX 
BR IF NOT DONE 
BR IF DONE 
SET UP AUX MOD 
BR TO STORE OTHER MOD 
BYPASS 
CE 

TRAP 

AREA 

028C-028E 



READ FROM CONTROL 
PERFORM THE 

EXCLUSIVE OR 



STORAGE 



AODR 



0EC4 



0388 



0398 



039C 



03A8 



03B8 



WORD 



0000 



OTFF 



00C8 



4E08 



0000 



2FF7 



QUENCE NO. 


LABEL 


NEXTSEQ 


8CHK 


320 


ATABLE 


ADDR=0EC4 


8CHK 


321 


C 




BCHK 


322 


AENO 




8CHK 


323 


ATABLE 


ADDR=0388 


BCHK 


324 


C 




BCHK 


325 


AEND 




BCHK 


326 


ATABLE 


ADDR=0398 


BCHK 


327 


C 




BCHK 


328 


AENO 




BCHK 


329 


ATABLE 


ADDR=039C 


BCHK 


330 


COOIT 




BCHK 


331 


AEND 




BCHK 


332 


ATABLE 


ADDR=03A8 


BCHK 


334 


C 




BCHK 


347 


AEND 




BCHK 


348 


ATABLE 


ADDR=03B8 


BCHK 


349 


C 




BCHK 


350 


AEND 





NEXTLABEL STATEMENT 



XCTL»00000000» 
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COMMENTS 



XCTL , 7FFC48A88 004E08« 



XCTL'00C80000« 



XCTL«4E08128E' 



XCTL* 0000000000000000* 



XCTL«2FF72F1BC4BC0F01' 

***** ** **** ** ***** *** ** ** ****** *** 

* CROSS REFERENCE FOR CSECT BCHK * 

2$C3$C3$CSQC3$e^C3$e^:9$C )$C2$C 3^C 3§C 3$C 3^C 3^: lijc 3§C 3^C 3j^C ^$C 3^C3J|c ?^C 3$C 9$C^C 9J^C 9^C 3^C 3^C 3$C 9$C 9$C 



BCHK 


Oil 


BDIA 


432 






BCHK 


54 


BCHK 


10 2 






BCHK 


062 


BCHK 


060 






BCHK 


069 


ALDP 


257 


BCHK 


05 3 


BCHK 


073 


BCHK 


083 






BCHK 


100 


BCHK 


097 






BCHK 


103 


BCHK 


175 






BCHK 


105 


BCHK 


09 3 






BCHK 


107 


BCHK 


10 5 






BCHK 


128 


BCHK 


210 






BCHK 


129 


BCHK 


131 






BCHK 


257 


BCHK 


073 


BCHK 


100 


BCHK 


263 


BCHK 


258 


BCHK 


260 


BCHK 


330 


ALDP 


178 


ALDP 


206 



BCPL DESCRIPTIVE TEXT 
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THE BCPL ROUTINE IS NORMALLY RESIDENT 
AND IS USED TO LOAD THE INITIAL RECORD OF 
OR NATIVE BOOTSTRAP ROUTINES. 

IF THE BCPL ROUTINE HAS BEEN ALTERED, 
HANDLOAD INF3RMATION MUST BE ENTERED TO B 
CSL OPERATION. 



IN CONTROL STORAGE, 
EITHER THE CHANNEL 



PROCEDURE FOR PUNCHING CSL CARDS 



THE APPROPRIATE 
E SURE OF CORRECT 



*** SWITCH SETTINGS FOR CSL *** 



SWITCHS 
A,B = CC 
A,B = DD 

A, B = EE 
A,B = FF 



CSL FROM CHANNEL 
CSL FROM NATIVE 
CSL FROM NATIVE 
CSL FROM NATIVE 



COLUMNS 

1-2 

3 



SWITCHES C,D SET TO ACTUAL U 
******************************************* 



CONTAIN STARTING ADDRESS TO BE LOADED 
CONTAINS CODE INFORMATION 

HEX 80 = DATA IS FOR PROGRAM STORAGE 
HEX 40 = LAST CSL CARD OF DECK 
HEX 20 = DATA IS FOR AUXILIARY STORAGE 
HEX 10 = DATA IS FOR CONTROL STORAGE 
4 CONTAINS THE NUMBER OF HALFWORDS TO BE LOADED — - 

2560 5-68 CONTAIN THE DATA 

2540 69-72 OPTIONAL, CAN BE USED FOR ANY INFORMATION. 

2311 73-77 *NNN9 WHERE N IS THE CORE LOAD ID. 

78-80 XXX 3 DIGIT NUMBER INDICATING SEQ. OF PATCHES. 
NIT ADDRESS *** WARNING- DO NOT PUNCH CARDS TO LOAD INTO AUX MODULE 1,3,4 

**************************************** **** ************ ***************************** 



RESTRICTIONS WHEN PUNCHING CSL CARDS 



COLS 1-2 ALL ADDRESSES SHOULD BE EVEN. COLS 

CONTROL STORAGE - THESE ADDRESSES SHOULD BE IN COLS 

THE RANGE OF 0000-3FFE ONLY. 
AUXILIARY STORAGE- THE 2ND HEX CHARACTER IN *** 

COLUMN 1 SHOULD BE A ZERO. 
PROGRAM STORAGE - THE ADDRESS MUST BE IN THE *** 

RANGE OF THE SYSTEM. 
COL 3 CODEO INFORMATION 

COL 4 COUNT FIELD - IF A COUNT OF IS INDICATED, 257 

HALFWORDS WILL BE LOADED. 



5-68 DATA FIELD - CAN BE ANYTHING 
69-80 SEE A80VE. 

NOT USED BY THE CSL. 
WHEN LOADING A FULL DECK WITH REPLACE CARDS, THE 
REPLACE CARDS SHOULD GO JUST BEFORE THE END CARD. 
WHEN LOADING ONLY REPLACE CARDS, IT IS NECESSARY TO 
PUT THE CONTROL STORAGE CARDS (NORMALLY 4) FOR 
MODULE 01XX IN THE DECK. 

ORDER OF THE CARDS IS - BOOTSTRAP CARDS, CONTROL 
STORAGE CARDS FOR MODULE 01XX, REPLACE CARDS, END CARD. 



********************************************************************************************************************************** 



** EXAMPLE OF PUNCHING AND LOADING A REPLACE CARD ** 



CE ADDRE 

'0 BE CHA 

FOR THE 

IN AUX I 



ON THE 



SS FOR THE 1403 
NGED TO -0A-. 

1403 ON THE BURST CHANNEL 
LIARY STORAGE MODULE 0, AT 



ASSUME THAT THE DEVI 
BURST CHANNEL NEEDED T 
THE STANDARD ADDRESS 
IS -OE- AND IS LOCATED 
ADDRESS -87-. 

THE CARD TO CHANGE THIS WOULD BE PUNCHED IN THE 
FOLLOWING MANNER- 
ESSES MODULE 0. 
THE CHANGE IS FOR ADDRESS 
EX ADDRESS REPRESENTED BY 
MUST BE EVEN. 
CATES INFORMATION IS FOR 

STORAGE. 
CATES ONE HALFWORD TO BE 



COL 


1 


(HEX 


00) 


THIS ADDR 


COL 


2 


(HEX 


86) 


ALTHOUGH 
8 7, THE H 
COLUMN 2 


COL 


3 


(HEX 


20) 


THIS INDI 
AUXILIARY 


COL 


4 


(HEX 


01) 


THIS INDI 
LOADED. 



COL 5 



(HEX OD) 



COL 6 (HEX 

COL 69-72 (0086) 

COL 73-77 (*E609) 

COL 78-80 (001) 



A CSL MUST BE PERFO 

INTO THE SYSTEM. THE 

END CARD, AND MUST B 

CSLS USING THAT PART 

*** EACH TIME A NEW E 

URATION CARDS IN 

AND INSERTED IN T 



A) 



THIS REPRESENTS THE DEVICE ADDRESS 
OF THE 2540 PUNCH THAT MUST 8E 
RELOADED BECAUSE OF THE ADDRESSING 
RESTRICTION IMPOSED BY COLUMN 2. 
THIS REPRESENTS THE DEVICE ADDRESS 
TO INDICATE START ADDR OF PATCH. 
INDICATES PATCH IS FOR *E60 CORE LD. 
INDICATES 1ST PATCH TO DECK 
REPLACING THE STANDARD ADDRESS FOR 
THE 1403 ON THE BURST CHANNEL. 
RMED TO LOAD THIS RECONFIGURATION CARD 
RECONFIGURATION CARD MUST PRECEED THE 
E PRESENT IN THAT POSITION FOR ALL 
ICULAR CORE LOAD DECK. 

C LEVEL DECK IS RECIEVED, ALL RECONFIG- 
THE DECK BEING REPLACED MUST BE REMOVED 
HE NEW DECK IN FRONT OF THE END CARD. 



PUNCHED CARD CODES 
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HEX 


PUNCHES 


• 


HEX 


PUNCHES 


• 


HEX 


PUNCHES 


• 


HEX 


PUNCHES 




• 


HEX 


PUNCHES 


• 


HEX 


PUNCHES 


• 


HEX 


PUNCHES 




00 


T-0-9- 


8-1 


• 


25 


0-9-5 




• 


4A 


T-8-2 




• 


6F 


0-8-7 




• 


94 


T-E-4 


• 


89 


T-E- 


0- 


■9 




• 


DE 


T-E- 9- 8- 6 




01 


T-9-1 




• 


26 


0-9-6 




• 


4B 


T-8-3 




• 


70 


T-E-0 




• 


95 


T-E-5 


• 


BA 


T-E- 


-0- 


•8- 


-2 


• 


OF 


T-E- 9- 8- 7 




02 


T-9-2 




• 


21 


0-9-7 




• 


4C 


T-8-4 




• 


71 


T-E-0-9- 


•1 


• 


96 


T-E-6 


• 


88 


T-E- 


•0- 


•8- 


•3 


• 


EO 


0-8-2 




03 


T-9-3 




• 


28 


0-9-8 




• 


4D 


T-8-5 




• 


72 


T-E-0-9- 


•2 


• 


97 


T-E-7 


• 


BC 


T-E- 


•0- 


■8- 


■4 


• 


El 


E-0-9-1 




04 


T-9-4 




• 


29 


0-9-8- 


1 


• 


4E 


T-8-6 




• 


73 


T-E-0-9- 


■3 


• 


98 


T-E-8 


• 


BD 


T-E- 


•0- 


•8- 


•5 


• 


E2 


0-2 




05 


T-9-5 




• 


2 A 


0-9-8- 


•2 


• 


4F 


T-8-7 




• 


74 


T-G-0-9- 


-4 


• 


99 


T-E-9 


• 


BE 


T-E- 


■0- 


■8- 


-6 


• 


E3 


0-3 




06 


T-9-6 




• 


2B 


0-9-8- 


3 


• 


50 


T 




* 


75 


T-E-0-9- 


■5 


• 


9A 


T-E- 8-2 


• 


8F 


T-E- 


•0- 


•8- 


■7 


• 


E4 


0-4 




07 


T-9-7 




• 


20 


0-9-8- 


■4 


• 


51 


T-E-9- 


•1 


• 


76 


T-E-0-9- 


•6 


• 


.B 


T-E-8-3 


• 


CO 


T-0 








• 


E5 


0-5 




08 


T-9-8 




• 


2D 


0-9-8- 


5 


• 


52 


T-E-9- 


-2 


• 


77 


T-E-0-9- 


-7 


• 


9C 


T-E -8-4 


• 


CI 


T-l 








• 


E6 


0-6 




09 


T-9-8- 


1 


• 


2E 


0-9-8- 


6 


• 


53 


T-E-9- 


•3 


• 


78 


T-E-0-9- 


-8 


• 


9D 


T-E-8-5 


• 


C2 


T-2 








• 


E7 


0-7 




OA 


T-9- 8- 


■? 


• 


2F 


0-9-8- 


•7 


• 


54 


T-E-9- 


-4 


• 


79 


8-1 




• 


9E 


T-E-8-6 


• 


C'3 


T-3 








• 


E8 


0-8 




OB 


T-9-8- 


•3 


• 


30 


T-E-O- 


•9-8-1 


• 


55 


T-E-9- 


•5 


• 


7A 


8-2 




• 


9F 


T-E- 8-7 


• 


C4 


T-4 








• 


E9 


0-9 




OC 


T-9-8- 


•4 


• 


31 


9-1 




• 


56 


T-E-9- 


•6 


• 


7B 


8-3 




• 


AC 


E-0-8-1 


• 


C5 


T-5 








• 


EA 


E-0-9- 8-2 




OD 


T-9-8- 


5 


• 


32 


9-2 




• 


57 


T-E-9- 


■7 


• 


7C 


8-4 




• 


Al 


E-O-l 


• 


C6 


T-6 








• 


EB 


E-0-9- 8- 3 




OF 


T-9-8- 


6 


• 


33 


9-3 




• 


58 


T-E-9- 


■8 


• 


7D 


8-5 




• 


A2 


E-0-2 


• 


C7 


T-7 








• 


EC 


E-0-9- 8-4 




OF 


T-9-8- 


7 


• 


34 


9-4 




• 


59 


E-8-i 




• 


7E 


8-6 




• 


A3 


E-0-3 


• 


C8 


T-8 








• 


EO 


E-0-9-8-5 




10 


T-E-9- 


8-1 


• 


35 


9-5 




• 


5A 


E-8-2 




• 


7F 


8-7 




• 


A4 


E-0-4 


• 


C9 


T-9 








• 


EE 


E-0-9- 8-6 




11 


E-9-1 




• 


36 


9-6 




• 


58 


E-8-3 




• 


80 


T-0-8-1 




• 


A5 


E-0-5 


• 


CA 


T-0- 


•9- 


•8- 


•2 


• 


EF 


E-0-9- 8-7 




12 


E-9-2 




• 


37 


9-7 




• 


5C 


E-8-4 




• 


81 


T-O-l 




• 


A6 


E-0-6 


• 


CB 


T-0- 


-9- 


•8- 


■3 


• 


FO 







13 


E-9- 3 




• 


38 


9-8 




• 


50 


E-8-5 




• 


82 


T-0-2 




• 


A7 


E-0-7 


• 


CC 


T-0- 


■9- 


■8- 


•4 


• 


Fl 


1 




14 


E-9-4 




• 


39 


9-8-1 




• 


5E 


E-8-6 




• 


83 


T-0-3 




• 


A8 


E-0-8 


• 


CD 


T-0- 


-9- 


■8- 


■5 


• 


F2 


2 




15 


E-9- 5 




• 


3A 


9-8-2 




• 


5F 


E-8-7 




• 


84 


T-0-4 




• 


A9 


E-0-9 


• 


CE 


T-0- 


•9- 


-8- 


■6 


• 


F3 


3 




16 


F-9-6 




• 


3B 


9-8-3 




• 


60 


E 




• 


85 


T-C-5 




• 


AA 


E-0-8-2 


• 


CF 


T-0- 


•9- 


-8- 


■7 


• 


F4 


4 




17 


E-9-7 




• 


3C 


9-8-4 




. 


61 


0-1 




• 


86 


T-0-6 




• 


A8 


E-0-8-3 


• 


DO 


E-0 








-• 


F5 


5 




ia 


E-9- 8 




• 


3D 


9-8-5 




• 


62 


E-0-9- 


-2 


• 


87 


T-0-7 




• 


AC 


E-0-8-4 


• 


Dl 


E-l 








* 


F6 


6 




19 


E-9-8- 


1 


• 


3E 


9-8-6 




• 


63 


E-0-9- 


-3 


• 


88 


T-0-8 




• 


AD 


E- 0-8-5 


• 


D2 


E-2 








• 


F7 


7 




IA 


E-9-8- 


■2 


• 


3F 


9-8-7 




• 


64 


E-0-9- 


■4 


• 


89 


T-0-9 




• 


AE 


E-0-8-6 


• 


D3 


E-3 








• 


F8 


8 




18 


E-9-8- 


•3 


• 


40 


NONE 




• 


65 


E-0-9- 


•5 


• 


8A 


T-0-8-2 




• 


AF 


E-0-8-7 


• 


D4 


E-4 








• 


F9 


9 




IC 


F-9-B- 


4 


• 


41 


T-0-9- 


1 


• 


66 


E-0-9- 


•6 


• 


8B 


T-0-8-3 




• 


BO 


T-E-0-8-1 


• 


D5 


E-5 








• 


FA 


T-E-0-9-8- 


-2 . 


ID 


F-9-8- 


5 


• 


42 


T-0-9- 


2 


• 


67 


E-0-9- 


-7 


• 


8C 


T-0-8-4 




• 


Bl 


T-E-O-l 


• 


D6 


F-6 








• 


FB 


T-E-0-9-8- 


•3 . 


IE 


E-9-8- 


•6 


• 


43 


T-0-9- 


•3 


• 


68 


E-0-9- 


-8 


• 


8D 


T-0-8-5 




• 


82 


T-E-0-2 


• 


D7 


E-7 








• 


FC 


T-E-0-9-8- 


-4 . 


IF 


E-9-8- 


•7 


• 


44 


T-0-9- 


•4 


• 


69 


0-8-1 




* 


8E 


T-0-8-6 




• 


B3 


T-E-0-3 


• 


08 


E-8 








• 


FD 


T-E-C-9-8- 


-5 . 


20 


F-0-9- 


•8-1 


• 


45 


T-0-9- 


■5 


• 


6A 


T-E 




• 


8F 


T-0-8-7 




• 


84 


T-E-C-4 


• 


09 


E-9 








* 


FE 


T-E- 0-9-8- 


•6 . 


21 


0-9-1 




• 


46 


T-0-9- 


6 


• 


68 


0-8-3 




• 


90 


T-E-8-1 




• 


B5 


T-E-0-5 


• 


DA 


T-E- 


■9- 


•8- 


•2 


• 


FF 


T-E-0-9-8- 


•7 . 


22 


0-9-2 




• 


47 


T-0-9- 


•7 


• 


6C 


0-8-4 




• 


91 


T-E-l 




• 


B6 


T-E-0-6 


• 


DB 


T-E- 


-9- 


■8- 


-3 


• 








23 


0-9-3 




• 


48 


T-0-9- 


■8 


• 


6D 


0-8-5 




• 


92 


T-E-2 




• 


B7 


T-E-0-7 


• 


DC 


T-E- 


■9- 


■8- 


■4 


♦ 








24 


0-9-4 




• 


49 


T-8-l 




• 


6E 


0-8-6 




• 


93 


T-E-3 




• 


B8 


T-E-0-8 


• 


DD 


T-E- 


-9- 


•8- 


-5 


• 









*** HANDLOAD ROUTINE FOR NATIVE 2540 *** 
ADDR WORD STATEMENT COMMENT 



0010 


3210 


0C12 


2610 


0014 


2C07 


0016 


2413 


0018 


8062 


0062 


2406 


0064 


2617 


0066 


2783 


0068 


3775 


006A 


2507 


006C 


4066 


006E 


5EFF 


0070 


DE6E 


007 2 


5B3F 


0074 


63 4 8 


0076 


736A 


0078 


FOEE 


007A 


161B 


00 7C 


F0E7 


007E 


8100 



SET MMSK K=81 
SET BC K=01 

P0=0 
GO=0$KOl 

BR 

SET MODE K=30 

D0=0$K11 

D1=0$K08 

D1=D1$K70 

G1=0 

U=D 

HC=RPS 

BR IF Ha 1 = 

V1=RP1 

STB VI CS,G+1 

STB VI AS, 0-1 

BR IF LZNZ 

D0=D0<K01 

BR IF LZ=0 

BR 



BLOCK TRAPS 
SET LOGOUT LA 
ZERO OUT SWIT 
START SETUP 
BRANCH TO LOC 

SET 2 540 MODE 
BUILD AUXILIA 
STORAGE ADD 
FOR COM PA 
FINISH SETUP 
SAVE COMPARE 
READ 2540 STA 
BACK ONE WORD 
GET READ BRUS 
PUT DATA IN C 
PUT DATA IN C 
GO WAIT FOR M 
INVERT FIRST 
BRANCH BACK I 
BRANCH TO BOO 



***#** THE FOLLO 


1 


PLACE 


C 


2 


PLACE 


M 


3 


PLACE 


D 


4 


PLACE 


S 


5 


DEPRF 


SS 


6 


DIAL 


sw 


7 


DEPRESS 


8 


DIAL 


NE 



WING TECHNUUE MAY BE USED TO ENTER 
E KEY IN CE MODE (IF CONTROL STORAGE 
ODE SWITCH IN MAIN STORAGE POSITION. 
IAGNOSTIC CONTROL SWITCH IN LOAD STO 
TARTING ADDRESS INTO SWITCHES ABCD i 

SYSTEM RESET AND CONTROL ADDRESS SE 
ITCHES ABCD TO DATA DESIRED IN MEMOR 

START ONCE (THIS LOADS MEMORY WITH 
XT 2 BYTES OF DATA INTO ABCD AND REP 



R POSITION. 

USE TRUE ADDRESS, 
T 

Y ADDRESS YOU CONT 
2 BYTES OF INFORMA 
EAT STEPS 768 UNTI 
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*** HANDLOAD ROUTINE FOR CHANNEL *** 



COMMENT 

BLOCK TRAPS 

SET LOGOUT LATCH 

ZERO OUT SWITCH 

START SETUP OF ADDR 0100 

SWCD EQUAL DEVICE ADDR. 

BRANCH TO LOCATION 002C 

SET CHANNEL MODE, CPU ZONE 

FINISH SETUP OF ADDR 0100 

SET SERVICE OUT 

BRANCH ON OP IN 

SEND DEVICE ADDRESS OUT 

RAISE ADDRESS OUT 

AND SELECT OUT 
WAIT FOR OP IN 
RESET ADDRESS OUT 
WAIT FOR ADDRESS IN 
BUILD READ COMMAND 
SEND OUT READ COMMAND 
RAISE COMMAND OUT 
WAIT HERE FOR STATUS 
READ STATUS 

LOOP HERE IF INVALID STAT 
SET SERVICE OUT 
WAIT FOR 

DATA 
GET DATA BYTE 
BR IF BOOTSTRAP READING 
NOT BOOT INFO,STOR IN AUX 
UNCONDITIONAL BRANCH 
PUT BOOT IN CNTRL STORAGE 
CHECK IF ALL DATA IN, 

IF NOT, GET MORE. 
BRANCH TO BOOTSTRAP 
ER/DISPLAY IS NOT AVAILABLE *** 



DO NOT USE OXXX FOR CONTROL ADDRESSES I. 

ROL ADDRESS SET TO. 

TION SET IN SWITCHES). 

L ALL DATA HAS BEEN LOADED. 





ADDR 


WORD 


STATEMENT 




0010 


3210 


SET MMSK K=81 


TCH 


0012 


2610 


SET 3C K=01 


CH 


0014 


2 CO 7 


P0=0 


F ADDR 0100 


0016 


2413 


G0=0SK01 


ATION 0C62 


0018 


51AF 


TO=SWCD 




001A 


802 C 


BR 


RY 


002C 


2486 


SET MODE K=38 


RESS 


002E 


2507 


G1=0 


RING 


0030 


2 BO 8 


SET GA K=40 


OF ADDR 0100 


0032 


C9B3 


BR IF GT4=1 


ADDRESS 


00 34 


4FAF 


GB/OUT=TO 


TUS 


00 36 


2B04 


SET GA K=20 


IF NO DATA 


0038 


2B44 


SET GA K=24 


H 1 DATA 


003A 


C9BA 


BR IF GT4=0 


ONTROL STOR 


003C 


2B40 


SET GA K=04 


OMP TABLE 


003E 


CDBE 


BR IF GTO=0 


ORE DATA 


0040 


2B23 


T1=0$K02 


TIME SWITCH 


0042 


4FBF 


GB/0UT=T1 


F FIRST TIME 


0044 


2B42 


SET GA K=14 


TSTRAP 


0046 


FDC6 


BR IF GT3=0 




0048 


5FBF 


T1=GB/IN 




004A 


C4CA 


BR IF ZNZ 




00 4C 


2B48 


SET GA K=44 




004E 


FOCF 


BR IF GT3=1 




0050 


EDCE 


BR IF GT2=0 




0052 


5FFF 


H1=GB/IN 




0054 


F05B 


BR IF G07=l 




0056 


7F48 


STB HI AS,G+1 




0058 


F05C 


BR IF G07=0 




005A 


6F48 


STB HI CS,G+1 




005C 


C55D 


Z=GKK50 




005E 


C4CC 


BR IF ZNZ 




0060 


8100 


BR 


DATA INTO SEQUENTIAL 


MEMORY 


ADDRESSES WHEN ALT 


IS TO BE CHANGED*. 







*** HANDLOAD ROUTINE FOR 2 311 



*** 



*** 
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HANDLOAD ROUTINE FOR 2560 *** 



A DOR 



WORD 



STATEMENT 



COMMENT 



ADDR 



WORD 



STATEMENT 



COMMENT 



001C 
0012 
0014 
0016 

0076 
0078 

00 7 A 
00 7 C 
007E 
0080 
0082 
0084 
00 86 
0088 

008 A 
008C 
008E 
0090 

009 2 
0094 
0096 
0098 
009A 
009C 
009E 
OOAO 
00A2 
00A4 
00 A 6 
00A8 
OOAA 



3210 
2610 
2C07 
8076 

2490 
2813 
2907 
4A86 
2F15 
2EX5 
2D23 
4D9F 
0E0 8 
0E04 
49EF 
4 EOF 
48FF 
2E63 
3E15 
4FEF 
2E43 
E598 
4EEF 
4BFF 
3D00 
E5A1 
1DC0 
50EF 
CA25 
C1A9 
81QA 



* NOTE * 



SET MMS< K=81 
SET BC K=01 
P0 = 

BR 

SET MODE K=09 

I0=G$K0l 

11 = 

T=I 

H1=0$K10 

HC=0$KXO 

P1=0$K02 

FF0=I1 

RST FIB K=40 

RST FIB K=20 

MS = HO 

PB0=P1 

TGRO=Hl 

HC=Q$K06 

H0=H0$K10 

F0P=H0 

H0=0$K04 

BP IF DA SI 2=0 

PB0=H0 

TGR0=H1 

SET FIA K=80 

BR IF DA SI 2=1 

RST FIA K=80 

HC = TGRI 

BR IF H04=l 

BP IF DA SI 4=1 

BR TO 01 OA 



BLOCK TRAPS 

SET LOGOUT LATCH 

ZERO OUT SWITCH 

BRANCH TO LOCATION 0076 

SET 2311 MODE 
SET I -REG 
TO 0100 
MOVE 0100 TO T-REGISTER 



SET UP MODULE SEL 
SET UP RETURN BIT 
SEND ZERO TO FILE 
ISSUE INITIAL RES 
ISSUE COLD-START 
LOAD MODULE SELEC 
SEND RETURN TO FI 
MOVE CONTROL BIT 
SET UP FILE OP, C 
OF ONE, DATA RE 
MOVE OP TO FILE 
SET UP SELECT HEA 
BR TO ITSELF IF N 
MOVE 04 TO FILE 3 
MOVE CNTRL BIT TO 
SET GO LATCH 
BR TO ITSELF IF G 
RESET TRAP LATCH 
GET TAG REGISTER 
BR BACK ONE WORD 
LOOP ON ITSELF IF 
BR TO BOOTSTRAP 



ECT * NOTE * 
(BIT 6) 
FLAGS OUT 

ET 

RESET 

T REGISTER 

LE BUS OUT 

TO TAG REG 

OUNT 

AD 

P REGISTER 

D 

GATED ATT. 

US OUT 
TAG REG OUT 

ATED ATTEN. 

IN 

IF NO TRAP 
ERROR 



THE X IN THE CONTROL WORD HAS THE 
FOLLOWING SIGNIFICANCE- 



0010 
0012 
0014 
0016 
0018 

00 AC 
OOAE 
OOBO 
00B2 
00B4 
00 B6 
00B8 
OOBA 
OOBC 
OOBE 
OOCO 
00C2 
00C4 
00C6 
00C8 
OOCA 
OOCC 

NOTE 



3210 
2610 
2C07 
2413 
80AC 

240E 
2F04 
2507 
5FDF 
DAB8 
ED33 
2F10 
DAC6 
CAB9 
58FF 
5AEF 
4EF3 
6F48 
2B14 
055D 
C4B4 
8100 



SET MMSK K=81 

SET BC K=01 

P0=0 

G0=0$K01 

BR 



SET M 
SET M 
G1 = 
P1 = MF 
BR IF 
BR IF 
SET M 
BR IF 
BR IF 
H1 = MF 
HO=MF 
H1=H0 
STB H 
SET M 
Z = G1< 
BR IF 
BR 



ODE K=70 
FA K=20 

D8 

MFT5=0 

P12 = l 
FA K=01 

MFT5=0 

MFT4=1 
Rl 
R2 

XH+H1L 
1 CS,G+1 
FC K=21 
K50 

ZNZ 



BLOCK ALL TRAPS 

SET LOGOUT LATCH 

ZERO HANDLOAD FLAG REGISTER 

BUILD HIGH HALF CS ADDR. 0100 

BR TO OOAC 

PUT IN MOD/20, 2560 MODE 
SELECT SEC FEED (NOTE 2) 

LOW HALF CS ADDR. G=0100 

BR TO 00B8 IF NPRO REQ 

BR IF NOT READY 

SET READ EX. 

CHECK NPRO 

BR ON NO DATA AVAIL 

READ 1/2 BYTE 

READ THE OTHER 1/2 

PUT TWO 1/2 BYTES TOGETHER 

STORE THEM 

RST NPRO, AND RD. EX. 

CHECK FOR 80 BYTES 

IF NOT 80, GO TO 00B4 

BR TO BOOTSTRAP ADDR 0100 



2 - IN ORDER TO USE THE PRIMARY FEED, REPLACE 
THIS WORD WITH 2F80. THE START KEY MUST BE 
PRESSED AT THE END TO COMPLETE CSL 
(LAST CARD). THIS PROCEDURE CAN ONLY BE USED 
FOR HANDLOADS, (BECAUSE OF CHECK SUM) , AND IS 
NOT TO BE USED TO RUN OTHER THAN *EXX DECKS. 
************* ** ** ****** #* 



* 
* 
* 



FOR BOOTSTRAP 
INFORMATION, REFER 
TO THE AKXXX LOGIC 
PAGES. 



* 
* 
# 

* 



3$C^C3§C3^^C3$C^C^C3§C)^^C^C^e3^C^C^(3^^C^C3fC3$C 9$C3$C SjS 9$C 



X = 8 
X=4 
X = 2 
X=l 



SELECT 
SELECT 
SELECT 
SELECT 



DRIVE 
DRIVE 
DRIVE 
DRIVE 



NUMBER 

NUMBER 1 

NUMBER 2 

NUMBER 3 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEO 



NEXTLABEL STATEMENT 



COMMENTS 







BCPL 


001 






BCPL 


002 


0000 


8000 


BCPL 


00 3 


0002 


OBAD 


RCPL 


004 


OOOE 


80AC 


BCPL 


005 



T CSL RESIDENT ROUTINE 

ATABLE ADDR=0000 

LOCKON 003 LOCKON BR 

C XCTL'OBADOBADOBADOBADOBADOBAD* 

N2560 099 RD2560 BR 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CL0AD=*E60t EC 

COMMENTS 



LEVEL=128266 PAGE 33 







BCPL 


006 


* 






3CPL 


007 


* 






BCPL 


008 


* 


OOIO 


3210 


BCPL 


009 




0012 


2610 


BCPL 


010 




0014 


5 0CF 


BCPL 


Oil 




0016 


51AF 


BCPL 


012 




0018 


2 413 


BCPL 


013 




001 A 


OCCF 


BCPL 


014 




00 1C 


C4A0 


BCPL 


015 




001E 


OCDF 


BCPL 


016 




0020 


C48F 


BCPL 


017 




0022 


OCEF 


BCPL 


018 




0024 


C4E3 


BCPL 


019 




0026 


OCFF 


BCPL 


021 




0028 


C4A8 


BCPL 


022 


SWIERR 


002A 


800E 


BCPL 


023 




00 2 C 


2486 


BCPL 


035 


CHANEL 


002E 


2507 


BCPL 


03 6 


AGAIN 


0030 


2B08 


BCPL 


037 




0032 


C9B3 


BCPL 


038 


OPIN 


0034 


4FAF 


BCPL 


039 




0036 


2 BO 4 


BCPL 


040 




0038 


2B44 


BCPL 


041 




003A 


C9BA 


BCPL 


04 2 


QPINOT 


003C 


2B40 


BCPL 


043 




003E 


COBE 


BCPL 


044 


ADD IN 


0040 


2B2 3 


BCPL 


045 




0042 


4FBF 


BCPL 


046 




0044 


2B42 


BCPL 


04 7 




0046 


F0C6 


BCPL 


04 8 


STATUS 


0048 


5FBF 


BCPL 


04 9 




004A 


C4CA 


PC°L 


050 


ERRORA 


004C 


2B4 8 


BCPL 


051 


STATC 


OOAE 


FOCF 


BCPL 


052 


STATB 


0050 


EDCE 


BCPL 


053 




0052 


5FFF 


BCPL 


054 




0054 


F05B 


BCPL 


055 




0056 


7F48 


BCPL 


056 




0058 


F05C 


BCPL 


057 




00 5 A 


6F48 


BCPL 


058 


FIRSTC 


00 5C 


055D 


BCPL 


059 


DECREM 


005E 


C4CC 


BCPL 


060 




0060 


8100 


BCPL 


061 


C 


0062 


2406 


BCPL 


062 


N2540 


0064 


2617 


BCPL 


063 




0066 


2783 


BCPL 


064 


CYCLE 


0068 


3775 


BCPL 


065 




006A 


2 507 


BCPL 


066 




006C 


4066 


BCPL 


06 7 




006 E 


5EEF 


BCPL 


068 


DATAIN 



THE FOLLOWING 
IS THE FIRST 
OF THE CSL 



03 5 CHANEL 

005 N2560 

06 2 N2540 

022 SWIERR 

12 8 FILE 

03 8 OPIN 

042 OPINOT 

044 ADD IN 

048 STATUS 

050 ERRORA 

05 2 STATB 

052 STATB 

058 FIRSTC 

059 DECREM 

051 STATC 



WORD 
WORD 
TRAP 

SET MMSK K=8l 

SET BC K=01 

PO=SWAB 

TO=SWCD 

G0=0$K01 

Z=PO<KCC 

BR IF Z=0 

Z=PO<KDD 

BR IF Z=0 

Z=PO<KEE 

BR IF Z=0 

Z=PO<KFF 

BR IF ZNZ 

BR 

SET MODE K=38 

G1=0 

SET GA K=40 

BR IF GT4=l 

G3/0UT=T0 

SET GA K=20 

SET GA K=24 

BR IF GT4=0 

SET GA K=04 

BR IF GT0=0 

T1=0$K02 

GB/0UT=T1 

SET GA K = 14 

BR IF GT3=0 

T1=GB/IN 

BR IF ZNZ 

SET GA K=44 

BR IF GT3=1 

BR IF GT2=0 

H1=GB/IN 

BR IF GO 7=1 

STB HI AStG+i 

BR IF GO 7=0 

STB HI CS,G+1 

Z=GKK50 

BR IF ZNZ 

XCTL'8100« 

SET MODE K=30 

D0=0$K11 

Dl=0$K08 

D1=D1$K70 

G1 = 

U=D 

HO=RPS 



BLOCK 


ALL TRAPS 




SET LOG OUT LATCH 




READ 




SWITCHES 




SET UP C S ADDRESS 


CHECK 


FOR 


CHANNEL 


CHECK 


FOR 


2560 




CHECK 


FOR 


2 540 




CHECK 


FOR 


2311 




CHAN 


PUT IN CHANNEL MODE 


CHAN 


CS ADDRESS 


CHAN 




CHAN 


BR ON OP IN 


CHAN 


SEND OUT DEVICE ADDRE 


CHAN 


RAISE ADDR. 


CHAN 


AND SEL OUT 


CHAN 


WAIT FOR OP IN 


CHAN 


RESET ADDR. OUT 


CHAN 


WAIT FOR ADDR IN 


CHAN 


BUILD READ CMND 


CHAN 


SEND OUT THE CMND 


CHAN 


RAISE COMMAND OUT 


CHAN 


WAIT FOR STATUS 


CHAN 


READ STATUS 


CHAN 


LOOP INVALID INITIAL 


CHAN 


SET SERVICE OUT 


CHAN 


STATUS LOOP 


CHAN 


SERVICE LOOP 


CHAN 


GET DATA 


CHAN 


FIRST TIME BOOTSTRAP 


CHAN 


NOT 1ST PUT IN AUX 


CHAN 


UNCONDIT BRANCH 


CHAN 


1ST TIME PUT IN C S 


CHAN 


CHECK IF ALL 


CHAN 


BYTES XFERED 


CHAN 


GO TO BOOTSTRAP 


2 540 


PUT IN 2540 MODE 


2 540 


BUILD COMPARE 


2540 


ADDRESS WHERE CARD 


2540 


IMAGE IS STORED 


2540 


ZERO REG FOR CONTROL 


2540 


SAVE COMPARE ADDRESS 


2540 


WAIT FOR 



STATS 



ADDR. 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E60t EC LEVEL=128266 PAGE 34 

COMMENTS 



0070 


DE6E 


BCPL 


069 




0072 


5B3F 


BCPL 


070 




0074 


6348 


BCPL 


071 




0076 


736A 


BCPL 


072 




0078 


FOEE 


BCPL 


073 




007A 


161B 


BCPL 


074 




007C 


F0E7 


BCPL 


075 




007E 


8 100 


BCPL 


076 


C 


0080 


6EE3 


BCPL 


077 


MOD 


0082 


6EE3 


BCPL 


078 


MOD 1 


0084 


6EE3 


BCPL 


079 


MOO 7 


0086 


0E08 


BCPL 


080 


MOO 3 


0088 


0E04 


BCPL 


081 




008A 


49EF 


BCPL 


082 




008C 


4EDF 


BCPL 


083 




008E 


4BFF 


BC°L 


084 




0090 


2E63 


BCPL 


085 




0092 


3E15 


BCPL 


086 




0094 


4FEF 


BCPL 


087 




0096 


2E43 


BCPL 


088 




0098 


F59 8 


BCPL 


089 


WAITFL 


009A 


4EEF 


BCPL 


090 




009C 


4BFF 


BCPL 


091 




009E 


3000 


BCPL 


092 




OOAO 


E5A1 


BCPL 


093 


WAIENA 


00A2 


1000 


BCPL 


094 




00A4 


50EF 


BCPL 


09 5 


WAIENB 


00A6 


CA2 5 


BCPL 


096 




00A8 


C1A9 


BCPL 


097 


ER 


00 A A 


81CA 


BCPL 


098 


C 


00 AC 


2 40F 


BCPL 


099 


RD2560 


OOAE 


2F04 


BCPL 


100 




OOBO 


2507 


BCPL 


101 




O0B2 


5F0F 


3CL 


102 


K5RDY 


Q0R4 


DABS 


BCPL 


103 


K6NP0 


00B6 


FD33 


BCPL 


104 




00B8 


2F1C 


BCPL 


105 


FEED 


00 B A 


DAC6 


BCPL 


106 




OOBC 


CAB9 


BCPL 


107 




OOBE 


58FF 


BCPL 


108 




OOCO 


5AFF 


BCPL 


109 




00C2 


4EF3 


BCPL 


110 




00C4 


6F48 


BCPL 


111 




00C6 


2B14 


BCPL 


112 


NDIT 


00C8 


55D 


BC°L 


113 




OOCA 


C4B4 


BCPL 


114 




00 CC 


8 100 


BCPL 


115 


C 


OOCE 


FFFF 


BCPL 


117 


C 


OODC 


FFFF 


BCPL 


118 


c 


OODE 


2B07 


BCPL 


128 


FILE 


OOEO 


6A02 


BCPL 


129 





06 8 


DATAIN 


BR IF H01=0 


2540 


DATA AVAILIBLE 






V1=RP1 


2540 


READ 1ST BRUSH DATA 






STB VI CS»G+1 


2540 


-STORE IN CONTROL STORE 






STB VI AS, 0-1 


2 540 


-STORE IN AUX COMPARE TBLE 


06 8 


DATAIN 


BR IF LZNZ 


2540 


STAY IN DATA LOOP FOR 1 CD 






D0=D0<K0l 


2540 


INVERT FLAG 


064 


CYCLE 


BR IF LZ=0 


2540 


CHECK FOR 2ND TRAP CYCLE 






XCTL'8100« 


2540 


GO TO BOOTSTRAP 






H0=H0+H0 


2311 


BUILD 






H0=H0+HO 


2311 


MODULE 






HO=HO+HO 


2311 


NUMBER 






RST FIB K=40 


2311 


COLD START RESET 






RST FIB K=20 


2311 


COLD START RESET 






MS = HO 


2311 


SELECT MODULE 






FB0=P1 


2311 


SET RETURN TO ZERO Pi=02 






TGR0=H1 


2311 


SET CONTROL Hl=10 






H0=0$K06 


2311 


SET READ 






H0=H0$K10 


2311 








FOP=HO 


2311 


DATA OP 






H0=0$K04 


2311 


START HEAD SELECT 


089 


WAITFL 


BR IF DASI2=0 




WAIT FOR END 






FBO=HO 


2311 


HEAD 






TGR0=H1 


2311 


SELECT 






SET FIA K=80 


2311 


GO 


093 


WAIENA 


BR IF DASI2=1 


2311 


WAIT FOR 






RST FIA K=8C 


2311 


RESET TRAP REQ 






H0=TGRI 


2311 


WAIT FOR FILE 


095 


WAIENB 


BR IF H04=l 


2311 


TRAP REQUEST 


097 


ER 


BR IF DASI4=1 


2311 


ERROR LOOP 






XCTL»810A» 


2311 


GO TO BOOTSTRAP 






SET MODE K=70 


2560 


PUT IN 20,2 560 MODE 






SET MFA K=20 


2560 


SELECT SEC FEED 






G1 = 


2560 








P1=MFD8 


2560 


CALL IN FOR RDY CHK 


105 


FEED 


BR IF MFT5=0 


2 560 


BR IF NPRO REQ 


102 


K5RDY 


BR IF P12 = l 


2560 


BR IF NOT RDY 






SET MFA K=01 


2560 


SET READ EXECUT 


112 


NDIT 


BR IF MFT5=G 


2560 


BRANCH IF NPRO 


105 


FEED 


BR IF MFT4=1 


2 560 


DATA AVAIL 






H1=MFR1 


REAC 


> 1 / 2 BYTE 






H0=MFR2 


READ OTHER HALF 






H1=H0XH+H1L 


PUT THEM TOGETHER 






STB HI CS,G+1 


2560 


STORE DATA IN C S 






SET MFC K=21 


2560 


RST RD EX AND NPRO 






Z=GKK50 


2560 




103 


K6NP0 


BR IF ZNZ 


2 560 


NOT DONE BRANCH 






XCTL'SIOO' 


2560 


GO TO BOOTSTRAP 






XCTL'FFFFFFFFFFFFFFFFFFFFFFFFFFFF» 






XCTL'FFFF' 










T1 = 


2311 


CORRECT PARITY 






STH T DC, 88 


2311 


SAVE MODULE 



ADDR 



WORD SEQUENCE NO. LABEL 



OOE2 


2490 


BCPL 


130 


00E4 


2813 


BCPL 


131 


00E6 


2907 


BCPL 


132 


00E8 


4A86 


BCPL 


133 


OOEA 


4CC2 


BCPL 


134 


CO EC 


2F15 


BCPL 


135 


OOEE 


5FE9 


BCPL 


136 


OOFO 


2 02 3 


BCPL 


137 


OOF 2 


4D9F 


BCPL 


138 


OOF4 


8 811 


BCPL 


139 


00F6 


54E8 


BCPL 


140 OVRLAY 


00F8 


6488 


BCPL 


141 


OOFA 


FA76 


BCPL 


142 


00 FC 


0608 


BCPL 


143 


OOFE 


8 8FE 


BCPL 


144 C 






BCPL 


145 AEND 



077 



140 









CL0AD=*E60, £ 


NEXTLABEL 


STATEMENT 


COMMENTS 




SET MODE K=09 


2311 


SET FILE MODE ZONE 




I0=0$K01 


2311 


BUILD COUNT AND 




11 = 


2311 


CONTROL STORAGE 




T = I 


2311 


ADDRESS 




ROH P DC, 88 


2311 


RETRIEVE MODULE 




H1=0$K10 


2311 


CONSTANTS FOR 




H0=H1 


2311 


SELECTION 




P1=0$K02 


2311 






FF0=I1 


2311 




MOD N 


N=PO BITS67 


2311 






RDH G AS,H+2 


END 


OVERLAY AUX 




STH G CS,I+2 


END 


INTO CONTROL 


OVRLAY 


BR IF H07=0 


END 






RST BC K=40 


END 


RESET CSL LIGHT 




XCTL'SSFE' 


END 


BRANCH TO 08FE 



LEVEL=128266 PAGE 35 



********************************** 

* CROSS REFERENCE FOR CSECT BCPL * 
*********** ************** ********* 



BCPL 


003 


BCPL 


C03 


BCPL 


005 


BCPL 


017 


BCPL 


022 


BCPL 


022 


BCPL 


035 


BCPL 


015 


BCPL 


038 


BCPL 


038 


BCPL 


042 


BCPL 


042 


BCPL 


044 


BCPL 


044 


BCPL 


048 


BCPL 


048 


BCPL 


050 


BCPL 


050 


BCPL 


051 


BCPL 


060 


BCPL 


052 


BCPL 


052 BCPL 053 


BCPL 


058 


BCPL 


055 


BCPL 


059 


BCPL 


057 


BCPL 


062 


BCPL 


019 


BCPL 


064 


BCPL 


075 


BCPL 


068 


BCPL 


DA 9 BCPL 073 


BCPL 


077 


BCPL 


139 


BCPL 


89 


BCPL 


089 


BCPL 


093 


BCPL 


09 3 


BCPL 


095 


BCPL 


096 


BCPL 


097 


BCPL 


09 7 


BCPL 


099 


BCPL 


00 5 


BCPL 


102 


BCPL 


104 


BCPL 


103 


BCPL 


114 


BCPL 


105 


BCPL 


103 BCPL 107 


BCPL 


112 


BCPL 


106 


BCPL 


128 


BCPL 


023 


BCPL 


140 


BCPL 


142 



BDIA DESCRIPTIVE TEXT 
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THE RESIDENT M ICRODI AGNOSTI C -BDIA- IS 
1. THE SYSTEM RESET KEY IS RELEASED 

(TRAP TO ADDRESS 0240) 
?. THE LOAD KEY IS RELEASED 

(TRAP TO ADDRESS 240) 
3. THE CONTROL STORAGE LOAD ROUTINE 
FINISHED LOADING A CSL DECK. 

(BRANCH TO LABEL * VERSON * ) 



ENTERED WHEN 



-BCPL- IS 



ERRORS ARE INDICATED BY 

1. A ONE WORD BRANCH LOOP 

2. A STOP WORD 

3. A BRANCH TEST STOP FAILURE 

A ONE WORD BRANCH LOOP IS IDENTIFIED BY THE SYSTEM 
LIGHT ON AND THE MANUAL LIGHT OFF. THE CLOCK WILL RUN BUT 
THE MICROPROGRAM DOES NOT PROGRESS. 



THE -BDIA- ROUTINE TESTS THE CPU HARDWARE NEEDED TO 
PERFORM A CONTROL STORAGE LOAD OPERATION. NO I/O DEVICE 
OR ATTACHMENT CIRCUITS ARE TESTED. 

THE TESTS PERFORMED BY THE -BDIA- ROUTINE ARE - 
BRANCHING TEST 
ALU TEST 

MODE REGISTER SET/RST TEST 
STORAGE TEST 
X LINE ADDRESSING TEST 
LOCAL STORAGE SET/RST TEST 
ALU ERROR DETECTION TEST 

STORAGE DATA, CONTROL WORD, STORAGE ADDRESS TEST 
A AND B REGISTER PARITY DETECTION TEST 



A STOP WORD (MOVE/ARITH-WORD TYPE 3) CAUSES THE CLOCK 
TO STOP, THE CLOCK STOP LIGHT IS ON, THE SYSTEM LIGHT IS 
OFF, THE MANUAL LIGHT IS ON, AND THE ADDRESS DISPLAYED IS 
THE ADDRESS OF THE CONTROL WORD FOLLOWING THE STOP WORD. 

A BRANCH TEST STOP FAILURE IS CAUSED BY A BRANCH ON 
CONDITION WORD OR RETURN WORD FAILING TO REACH A WORD THAT 
SETS THE DR-REGISTER. DR BIT 7 IS SET PRIOR TO EACH 
OF THE BRANCH TESTS, AND THE BRANCH OR RETURN MUST POINT 
TO A SET OF THE DR-REGISTER. THE FAILURE IS INDICATED 
BY THE CLOCK OFF, THE CLOCK STOP LIGHT IS ON, SYSTEM LIGHT 
OFF, MANUAL LIGHT ON, AND, THE ADDRESS OF THE NEXT 
SEQUENTIAL WORD FOLLOWING THE WORD REACHED IN ERROR, 
DISPLAYED IN THE CONSOLE LIGHTS. 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



COMMENTS 



OBFE 



8 24C 



0240 



2810 



242 



3210 



BDIA 


001 


T 


BDIA 


BDIA 


002 


ATABLE 


ADDR=08FE 


BDIA 


008 


VERSON 


018 START 


B D I A 


012 


AEND 




BDIA 


013 


ATABLE 


ADDR=0240 


BDIA 


014 


* 




BDIA 


015 


* 




BDIA 


016 


* 




BDIA 


017 


* 




BDIA 


018 


START 




BDIA 


019 


* 




BDIA 


20 


* 




BDIA 


021 


* 




BDIA 


02? 


* 




BDIA 


23 


* 




BDIA 


0?4 


* 




BDIA 


025 


* 




BDIA 


026 


# 




BDIA 


027 


* 




BDIA 


028 


* 




BDIA 


029 


* 




BDIA 


030 






BDIA 


031 


* 




BDIA 


032 


* 




BDIA 


033 


* 





BASIC DIAGNOSTIC 



BR 



SET DR K=01 



SET MMSK K=81 



START RESIDENT DIAG. 



DEPRESSION OF THE SYSTEM RESET 
BUTTON OR LOAD BUTTON WILL CAUSE 
A HARDWARE TRAP TO ADDRESS 0240. 



SET DR-7. 
CHECKING 
OF THE MO 
IS SET EV 
OR RETURN 
AND DR 7 
MICROINST 
OR RETURN 
TO THE DR 
OCCUR AT 
MACHINE C 



DR 7 IS US 
THE BRANCH 
D 25. AD 
ERYTIME A 
FUNCTION 
IS ON. IF 
RUCTION AF 
DOES NOT 
REG, A HA 
THE COMPLE 
YCLE. 



ED IN 

ING FUNCTIONS 
IAG BR LATCH 
MOD 25 BRANCH 
IS EXECUTED 

THE NEXT 
TER THE BR 
ISSUE A SET 
RD STOP WILL 
TION OF THAT 



SET SYSTEM RESET PRIORITY 
BITIMMSK-8). 

THE FIRST WORD OF THE TRAP SETS 



ADDR 



WORO SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 
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COMMENTS 



0244 



0246 
0248 

024A 
024C 



024E 

0250 



0252 
0254 



0256 



023C 



02 3 E 



026C 
026E 



2400 



F8CB 
B7C9 

2810 
2 5F3 



C54F 

2810 



D553 
2810 



F53C 



2810 



F56C 



2810 
9FFC 



BOIA 
BOTA 
BDIA 
BOIA 
BOIA 
BOIA 
BDIA 
BOIA 
BDIA 
BOIA 
BOIA 
BOIA 
BOIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BOTA 
BDIA 
8 01 A 
BDIA 
BDIA 
BDIA 
BOIA 
BOIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BOIA 
BDIA 



034 
035 
036 
037 
038 
039 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 

05 
051 
052 
053 
054 
055 
056 
057 
058 
059 
060 
061 
062 
063 
064 
065 
066 

06 7 
06 8 
069 
070 
071 
072 
073 
074 
075 
076 
077 
078 
079 
080 
081 
082 
083 
084 



* 
* 

* 

* 
* 
* 
* 
* 

* 

* 

* 



THE DIAG BR LATCH TO INSURE A 


MACHINE STOP IF AN ERRONEOUS 


BRANCH STATEMENT IS EXECUTEO 


THE SECOND WORD OF THE TRAP SETS 


MMSK 8 TO PREVENT FURTHER TRAPS 


FOR THE SAME SYST RST/LOAD TRAP 


REQUEST. AS A RESULT OF THE 


DELAYED SETTING OF MMSK 8, THE 


TRAP WILL OCCUR TWICE FOR EACH 


SYSTEM RST/LOAD TRAP REQUEST. 


THEREFORE. THE FIRST TWO WORDS 


WILL BE EXECUTED TWICE BEFORE 


THE FOLLOWING WORD IS EXECUTED. 



SET MODE K=00 
BRANCHING TEST. 



STORAGE ZONE 4. 



BC0R7 






BCG10N 



BCG11N 

AEND 
ATA8LE 
BCG12Y 

* 

AEND 
ATABLE 
BCG13Y 



056 


BCDR7 


BR IF DR 


BIT7 = 


= 1 


BR TO 


122 


DR70FF N 


N = BAH 






DR 7 S 
BA H 






SET DR K* 


=01 




SET DR 






Gl=O$K0F 






ATTEMP 
IF A 
OF TH 
WRONG 


061 


BCG10N 


BR IF Gl 


BIT0 = 


= 1 


G10=0; 






SET DR K' 


=01 




SET DR 
IF A 

OF TH 
WRONG 


066 


BCG11N 


BR IF Gl 


BIT1 = 


= 1 


611=0; 






SET DP K^ 


=01 




SET DR 
IF A 
SEQUE 
BRANC 
BRANC 


075 


BCG12Y 


BR IF Gl 


BIT2= 


=0 


G12=0; 



02 4A IF DR-7 I 

HOULD BE ON. 

IGH FOR BETTER 

-7 TO CONTINUE 

T TO SET Gl RE 

STOP OCCURS AT 

E NEXT WORD, G 

OR THE BRANCH 

SHOULD NOT BR 

-7 TO CONTINUE 

STOP OCCURS AT 

E NEXT WORD, G 

OR THE BRANCH 

SHOULD NOT BR 

-7 TO CONTINUE 

STOP OCCURS AT 

NTIAL WORD FOL 

H, Gl WAS SET 

H TEST FAILED. 

SHOULD BRANCH 



$$$$$$$$$$$ 


S ON 


BRANCH ON 


RESOLUTION. 


BR TESTS. 


G = 00001111 


THE ADORE SS 


1 WAS SET 


TEST FAILED 


ANCH. 


BR TESTS. 


THE ADDRESS 


1 WAS SET 


TEST FAILED 


ANCH 


BR TESTS. 


THE NEXT 


LOWING THIS 


WRONG OR THE 



TO ADR 02 3C 



AODR=023C 



SET DP K=01 



083 BCG13Y BR IF Gl BIT3=0 

ADDR=0 26C 

SET DR K=01 
087 UB1FFC BR 



SET DR-7 TO CONTINUE BR TESTS. 
IF A STOP OCCURS AT THE NEXT 
SEQUENTIAL WORD FOLLOWING THIS 
BRANCH, Gl WAS SET WRONG OR THE 
BRANCH TEST FAILED. 

G13=0; SHOULD BRANCH TO ADR 026C 



SET DR-7 TO CONTINUE BR TESTS. 
UNCONDITIONAL BRANCH TO ADR IFFC 



ADDR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 
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COMMENTS 



1FFC 

1FFE 



2000 
2002 



2004 
2006 



200 8 
200A 

200C 



2040 



2042 



20 5 E 



2060 



0440 



207E 



2080 
2082 
2084 
2086 
2088 



2810 
D57F 



2810 
25F5 



E504 
2810 



F508 
2810 
A04C 



2810 



C55F 



2310 



D57F 



5 007 



2 80C 



3EQ9 
C48 3 
F08 5 
E087 
F489 



BDIA 
3DIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 

BDia 

BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDI A 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 



085 
086 
087 
088 
089 
090 
091 
092 
09 3 
094 
095 
096 
097 
098 
099 
100 
101 
102 
103 
104 
105 
106 
107 
1C8 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 



AEND 
ATABLE 

UBIFFC 
HCTRL 
AEND 
ATABLE 



* 

* 

BCG12N 



* 
* 



BCG13N 



AEND 
ATABLE 

UB2040 
* 

AEND 
ATABLE 

BCG10Y 
* 

* 

AEND 
ATABLE 

DR70FF 
AEND 
ATABLE 

3CG11Y 
* 
* 
* 

DCOER 
DC7ER 
DC6ER 
A CONE R 



ADDR=1FFC 



ADDR=2000 



096 BCG12N 



101 BCG13N 
106 UB2040 



ADDR=2040 



114 BCG10Y 



ADDR=205E 



125 BCG11Y 



ADDR=0440 





SET DR K=01 

BR IF Gl BIT1=1 



SET DR K=01 



BR IF Gl BIT0=1 



SET DR K=01 



BR IF Gl BIT1=1 



STOP 



SET DR-7 TO CONTINUE 
NO BRANCH 



BR TESTS. 



SET DR K=01 


SET DR 


G1=0$KF0 


ATTEMP 




IF A 




OF TH 




WRONG 


BR IF Gl BIT2=0 


G12=l; 


SET DR K=01 


SET DR 




IF A 




OF TH 




WRONG 


BR IF Gl BIT3=0 


G13=l; 


SET DR K=01 


SET OR 


BR 


UNCOND 



-7 TO CONTINUE 

T TO SET Gl RE 

STOP OCCURS AT 

E NEXT WORD, G 

OR THE BRANCH 

SHOULD NOT BR 

-7 TO CONTINUE 

STOP OCCURS AT 

E NEXT WORD, G 

OR THE BRANCH 

SHOULD NOT BR 

-7 TO CONTINUE 

ITIONAL BRANCH 



BR TESTS. 
G = 11 1 10000 

THE ADDRESS 
1 WAS SET 

TEST FAILED, 
ANCH 

BR TESTS. 

THE ADDRESS 
1 WAS SET 

TEST FAILED, 
ANCH 

BR TESTS. 

TO ADR 2040 



SET DR-7 TO CONTINUE BR TESTS. 
IF A STOP OCCURS AT THE NEXT 
SEQUENTIAL WORD FOLLOWING THIS 
BRANCH, Gl WAS SET WRONG OR THE 
BRANCH TEST FAILED. 

G10=l; SHOULD BRANCH TO AOR 205E 



SET DR-7 TO CONTINUE BR TESTS. 
IF A STOP OCCURS AT THE NEXT 
SEQUENTIAL WORD FOLLOWING THIS 
BRANCH, Gl WAS SET WRONG OR THE 
BRANCH TEST FAILED. 

Gll=l; SHOULD BRANCH TO AOR 207E 



CPU MODE AND DR 7 OFF, 



ADDR=207E 

SET DR K=00 THIS COMPLETES BDIA BRANCHING 

TESTS. 
**** **** ****************************** ******************************* 

ALU TEST -MANY OF THE WORDS IN THIS TEST CAUSE ALU ERRORS IF THE CKT 
BEING TESTED FAILS AND THEREFORE DO NOT HAVE TO BE TESTED BY BR WDS 
******************************************* ************* ************* 

H0=0-KC0 **FF=00-00 WITH NO CARRY 
BR IF Z=0 CHK FOR DYN BIT BEING OFF. 

BR IF LZ=0 CHK FOR DYN BIT 7 BEING OFF. 

BR IF HZ=0 CHK FOR DYN BIT 6 BEING OFF. 

BR IF AC=1 CHK FOR DYN BIT 3 BEING OFF 



132 


DCOER 


133 


DC7ER 


134 


DC6ER 


135 


ACONER 



ADDR 



WORD SEQUENCE NO, 



LABEL 



CL0AD=*E60, 

COMMENTS 
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208A 


6EE5 


BDIA 


136 








H0=H0$H0 


208C 


AODA 


BDIA 


137 




195 


CK4FF 


BAL 


2C8E 


2E0D 


BDIA 
BDIA 
BDIA 
BDIA 


138 
139 
140 
141 


* 
* 
* 






H0=H0+K00 


2090 


AODA 


BDIA 


142 




195 


CK4FF 


BAL 


2092 


7EE1 


BDIA 
BDIA 
BOIA 
BDIA 


143 
144 
145 
146 


* 
* 






H0=H0-H0+1 


2C94 


F494 


BDIA 


147 


NOACER 


147 


NOACER 


BR IF AC=0 


2096 


7EE1 


BDIA 


148 








H0=H0-HC+1 


2098 


6EE3 


BDIA 


149 








H0=H0+H0 


209A 


2E5F 


BDIA 


150 








H0=H0+K55 


209C 


6EE3 


BDIA 


151 








H0=H0+HC 


209E 


6EE9 


BDIA 


152 








H0C=H0+H0+1 


20 AO 


0E5F 


BDIA 


153 








Z=H0<K55 


20A2 


C4A2 


BDIA 


154 


WT3ER1 


154 


WT3ER1 


BR IF ZNZ 


20A4 


2E87 


BDTA 


155 








H0=0$K88 


20A6 


3E27 


BDIA 


156 








HQ=H0$K22 


2CA8 


2EEF 


BDIA 


157 








HO=HO+KEE 


20 A A 


2E77 


BDIA 


158 








H0=0$K77 


20 AC 


1E87 


BDIA 


159 








H0=H0*-K88 


20 AE 


1 EB7 


BDIA 


160 








H0=HO*-KBB 


20B0 


2EF7 


BDIA 


161 








HO=0$KFF 


20B2 


OEU 


BDIA 


162 








Z=H0+K01 


20 B4 


F0B4 


BDIA 


163 


DC7ERR 


163 


DC7ERR 


BR IF LZNZ 


20B6 


E0B6 


BDIA 


164 


DC6ERR 


164 


DC6ERR 


BR IF HZNZ 


20B8 


1FFB 


BOIA 


165 








HO=HO<KOF 


20BA 


A0E2 


BDIA 


166 




201 


CK4F0 


BAL 


20BC 


1EF3 


BOIA 
BDIA 
BDIA 
BOIA 


167 
168 
169 
170 


* 

* 
# 






H0=HO*-KOF 


20BE 


A0E2 


BDIA 


171 




201 


CK4F0 


BAL 


20C0 


3E15 


BDIA 

BDIA 
BDIA 
BOIA 


172 
173 
174 
175 


* 
* 
* 






H0=H0$K10 


20C2 


A0E2 


BOIA 


176 




201 


CK4F0 


BAL 


20C4 


3E0D 


BDIA 
BDIA 
BDIA 
BDIA 


177 
178 

179 
180 


* 






HO=HQ-KOO 


20C6 


2E1D 


BDIA 


181 








H0=H0+K10 


20C8 


2FF5 


BDI A 


182 








Hl=0$KFO 


20CA 


AODA 


BDIA 


183 




195 


CK4FF 


BAL 


20 CC 


OFFD 


BDIA 
BDIA 
BDIA 


184 
18 5 
186 


* 
* 






Z=HKKF0 



**FF=FF$FF 

**BRANCH TO CHECK HO FOR FF 

**FF=FF+00 

IF A STOP OCCURS AT THE ADDRESS 
OF THE WORD BELOW, THE CHECK FOR 
FF HAS FAILED. 



**00=FF-FF+1 WITH A C 
IF A STOP OCC 
OF THE WORD B 
FF HAS FAILED 

**SHOULD HAVE DYN 3 B 

**00= 00-00+1 

**00=00+00 

**55=0C+55 

**AA=55+55 

**55=AA+AA+1 

**00=55<55 

**H0 SHOULD BE 55 AND 

**88=00$88 

**AA=88$22 

**98=AA+EE 

**77=00$77 

**77=77*-88 

**44=77*-BB 

**FF=00$FF 

**Q0=FF+01 

CHK FOR DYN B 
CHK FOR DYN B 

**FO=FF<OF 

**BR TO CHECK HO FOR 

**FO=FO*-OF 

IF A STOP OCC 
OF THE WORD 3 
FO HAS FAILED 

**BR TO CHECK HO FOR 

**F0=F0$10 

IF A STOP OCC 
OF THE WORD B 
FO HAS FAILED 

**BR TO CHECK HO FOR 

**EF=FO-00 

IF A STOP OCC 
OF THE WORD B 
FO HAS FAILED 

**FF=EF+10 

**F0=00+F0 

**BR TO CHECK 

**00=FO<FO 

IF A STOP OCC 
OF THE WORD B 



ARRY 
URS AT 

ELOW, 

• 

IT ON 



THE ADDRESS 
THE CHECK FOR 



DYN BIT0=1 



IT 7 B 
IT 6 B 

FO 

URS AT 

ELOW, 



EING ON. 
EING ON. 



THE ADDRESS 
THE CHECK FOR 



FO 

URS AT 
ELOW, 

FO 

URS AT 

ELOW, 



THE ADDRESS 
THE CHECK FOR 



THE ADDRESS 
THE CHECK FOR 



HO FOR 


FF 






URS AT 


THE 


ADDRESS 


ELOW, 


THE 


CHECK 


FOR 



ADDR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CL0AD=*E60» 
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EC LEVEL=i28266 PAGE 40 



?OCE 
2000 
20D2 
2004 
20D6 
2008 

200A 
20DC 
200E 
20EC 



20E2 
20E4 
20E6 



20E8 
20 E A 
20 EC 
20EE 
20 FO 
20F2 
20F4 
20F6 
20 F 8 
20FA 
20FC 



20FE 
2100 
2102 
2104 
2106 
2108 
210A 
210C 
210E 
2110 
2112 
2114 
2116 
2118 
211A 
211C 
211E 



C4CE 
IFF 5 
C4D2 
2EF5 
A0E2 
A0E8 

CEFF 
C4E1 
2810 
128E 



OEFO 
C4DE 
128E 



24F6 
578F 
1887 
087F 
EOFC 
F0F2 
2400 
5 74F 
048 7 
EOFA 
FOPC 



2EF7 
2FF7 
6E02 
2E05 
2F05 
4E02 
OFFF 
E08C 
FOSE 
1EFF 
C492 
2E33 
2F87 
6FE8 
6FEA 
44E8 
2F13 



BOIA 
801 A 
BOIA 
BDIA 
BOIA 
BOIA 
BDIA 
BDIA 
BOIA 
BOIA 
BOIA 
BDIA 
BOIA 
BOIA 
BDIA 
BDIA 
BDIA 
RDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDT A 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BOIA 
801 A 
BDIA 
BDIA 
BDIA 
BOIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BOIA 
BDIA 
BDIA 
BDIA 
BDIA 
BOIA 
BDIA 
BDIA 



187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
20 3 
204 
20 5 
206 
20 7 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
2 28 
229 
230 
231 
232 
233 
234 
235 
236 
237 



ALUER2 
ALUER3 



CK4FF 

ANOTFO 
ZISOK 



4c 
* 



CK4F0 



* 
* 



MORTST 



MDSTHI 
MOSTLO 



MDRTHI 

MDRTLO 



* 
* 



DCR1ER 
DCR2ER 

DCROER 



188 ALUER2 

190 ALUER3 

201 CK4F0 

207 MORTST 

198 ZISOK 



BR. 
Hl = 
BR 
H0 = 
BAL 
BR 
**** 

Z=H 

BR 

SET 

RTN 



IF ZN 
Hl*-K 
IF ZN 
0$KF0 



***** 
0<KFF 
IF Z= 

DR K 



TEST 
************* 



197 ANOTFO 

**************** 
TEST MODE REG 



211 
212 



MDSTHI 
MDSTLO 



216 MORTHI 

217 MDRTLO 

BEGIN STORAGE 



228 0CR1ER 

229 DCR2ER 

231 DCROER 



Z=H 
BR 

RTN 

FOR 
**** 

SET 
10 = 
10= 
Z=I 

BR 
BR 
SET 
G0= 
Z=G 
BR 
BR 
**** 

TES 

T* "Tr* "t* ^^ 

H0 = 

Hi = 

STH 

H0= 

Hl = 

RDH 

Z = H 

BR 

3R 

H0= 

BR 

H0 = 

Hl = 

STB 

STB 

RDH 

Hl = 



0<KF0 
IF ZN 

***** 

SET/ 

$$$&& 

MODE 
BA 

IC*-K 
0<K77 
IF HZ 
IF LZ 

MODE 
BA 

0*-K8 
IF HZ 
IF LZ 

T 
***** 

OSKFF 

0$KFF 

H DC 

0$K00 

0$K00 

H DC 

KKFF 

IF HZ 

IF LZ 

H0<KF 

IF ZN 

0$K03 

0$K88 

HI C 

HI C 

G CS 

0$KOl 



FO HAS FAILED. 
Z **H1 SHOULD BE FO AND OYN BIT 0=1 

FO **00=FO*-F0 

Z **H1 SHOULD BE ZERO AND OYN BIT 0=1 

**F0=00$F0 

**BR TO CHECK HO FOR FO 

**BR TO MODE REG SET/RESET 
********************************* 

HO SHOULD BE FF 
AND DYN BIT 0=1. 

=01 SET DR 7 AND DO A RTN WHICH 

WILL CAUSE A STOP WITH THE 
ADDRESS OF THE BAL TO 
THIS SUBROUTINE ♦ 4. 
HO SHOULD BE FO 
Z AND OYN BIT 0=1. 



RESET 
******* 

K = 3F * 
* 

88 * 



: *************** A j{t* ** ************ 

<*SET LS AND EXT MODE TO 7 
<* IO-XI I IXII I 

'* 10=77 



tt ^F t* 4h 



NZ 
NZ 
K=00 



8 * 

NZ 
NZ 

■^jjfc mfi *f* ^J% mfi ^p. *p. 



LOOP IF MODE REG 2-4 NOT A 
LOOP IF MODE REG 5-7 NOT A 

♦SET LS AND EXT MODE TO ZERO 

*G0=X00GX000 

*Z=00 

LOOP IF MODE REG 2-4 NOT A 
LOOP IF MODE REG 5-7 NOT A 

******************************** 



LL ON 
LL ON 



LL OFF 
LL OFF 

*j» ^W Mfi Jp. Mfr 



******************************************** 



88 



,88 

NZ 
NZ 
F 
Z 



**H=FFFF 

**CTRL ADDR 0388=FFFF 

**H=00G0 

**READ CTRL STOR 0088 INTO 

**00=FF<FF 

LOOP IF HI HIGH IS NOT F 
LOOP IF HI LOW IS NOT F 

**00=FF<FF H=OOFF 

**SHOULD HAVE READ FF IN TO HO 



H REG 



** H=03 88 
StH+1 ** CTRL ADDR 0388=88FF H=0389 
S,H-1 ** CTRL ADDR 0388=8889 H=0388 
,H+2 ** G=8889 H=038A 

** H=0301 



ADDR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CLOAD=*E60, 

COMMENTS 



EC LEVEL=128266 PAGE 41 



2120 
2122 
2124 
2126 
2128 
212A 
21 2C 
212E 
2130 
2132 
2134 
2136 

2138 
213A 

213C 
213E 
2140 
2142 
2144 
2146 
2148 
214A 
214C 
214E 



08EC 
08EE 
08FO 
08F2 
08F4 
08E6 
08 F 8 
08 FA 
08FC 



0800 
0802 
0804 
0806 
0808 
080A 



C48F 
E0A2 
F0A4 
2 57F 
C4A8 
2E05 
55EA 
C4AE 
2E45 
3FE9 
2 5F7 
7 5E0 

2505 
55EA 

05FF 
C4BE 
FB34 
44E6 
0440 
C4C6 
7 5F1 
C4CA 
C06 
R8EC 



DIED 
E1FF 
2E87 
2F05 
6E12 
6E22 
3EE9 
2F77 
8 80 2 



4E02 
2E1B 
2F10 
CAOO 
6E02 
8388 



BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
RDIA 
RDIA 
BDIA 
BDI6 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 



238 
239 
240 
241 

24 2 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 

25 8 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
2 73 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
28 5 
286 
287 
288 



DCR3ER 
DCR4ER 

CSR1ER 



BMODER 



AUXSTT 



239 DCR3ER 

240 DCR4ER 

242 CSR1ER 



245 BMODER 



AUXERR 

DBMERO 
DBMER1 



AEND 

* 
* 
ATABLE ADDR = 

LSADOR 

CKS60F 



255 AUXERR 
248 AUXSTT 



259 DBMERO 
261 DBMER1 
269 LSADDR 



Z=G0<K88 

BR IF HZNZ 

BR IF LZNZ 

G1=G1+K77 

BR IF ZNZ 

H0=0$K00 

RDB Gl AS,H-1 

BR IF ZNZ 

H0=0$K40 

H1=0-KE0 

G1=0$KFF 

STB Gl AS,H 

G1=0$K00 

RDB Gl AS,H-1 

Z=GKKFF 

BR IF ZNZ 

BR IF HI BIT7: 

G=H 

Z=G0<K4O 

BR IF ZNZ. 

G1=G1-H1+1 

BR IF ZNZ 

RST S K=06 

BR 



**00=88<88 

LOOP IF HI HIGH IS NOT 8 
LOOP IF HI LOW IS NOT 8 

**00=89+77 

**SHOULD HAVE READ 89 IN TO Gl 

** H=0001 

**H=00C0 

**ARITH MODIFIER OFF B REG FAILED IF BR 

** H=4000 

** H=401F 

**G=88FF 

**1ST PASS AUX ADDR 401E=XXFF H=401F 
**2ND PASS AUX ADDR 401E=FFFF H=401E 

**G=8 800 

**G=88FF AFTER 1ST PASS, H=401E 
** AFTER 2ND PASS, H=401D 

**00=FF<FF 

♦♦SHOULD HAVE READ FF IN TO Gl 

=0 

** G=401D H=401D DBL BYTE MOD TEST 

** 00=40<40 

** SHOULD HAVE MOVED 40 FROM HO TO GO. 

** 00=10-10+1 

** SHOULD HAVE MOVED ID FROM HI TO Gl 
RESET S5 AND S6. 

**BR TO X LINE ADDRESSING TEST 



X LINE ADDRESSING 

'08EC 

269 LSADDR BR IF S5=l NO BR . CHECK S5 OFF. 

270 CKS60F BR IF S6=l NO BR. CHECK S6 OFF. 

H0=0$K88 XXXK ADDRESSABLE 8A AND 8C 

H1=0$KC0 X SET TO 8800 WHICH IS 

STH H DC,8A X BR TO 0800 

STH H 0C8C X 

HO=0-KEO 0000 

H1=0$K77 

BR BR TO 



281 BEGMOD 



H SET TO 1F77. THIS IS THE 
INIT VALE REQ'D FOR A=0$KK 
0802 



AEND 

ATABLE 
MODCWD 
BEGMOD 



C 
* 

* 



ADDR=080C 



RDH H DC, 88 
H0=H0+K01 
H1=H1+K10 
302 CKPASS BR IF HO BIT4=1 

STH H DC, 88 
XCTL'8388« BR TO K 
FUNCTION PERFORMED BY CTRL WORDS IN 
FIRST PASS SECOND PASS 

88 2XX7 A=0$KK 88 OXXF Z=A<KK 



XXXX MODIFY CTRL WD AT K88 

X 

X 

X BR AFTER 8TH PASS. . 

X 
ADDR 88 AT ADDR 0388. 
K ADDR. CTRL STORAGE 

THIRD PASS 
88 4XX3 B=AXH+BL 88 



FOURTH PASS 
OXXF Z=A<KK 



ADDR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEO 



NEXTLABEL STATEMENT 



CL0AD=*E60, 
COMMENTS 
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BDIA 


289 


* 






BOTA 


290 


* 






BOIA 


291 


* 






BDIA 


292 


* 






BOIA 


293 


* 






BDIA 


294 


* 






BDIA 


295 


* 






BDIA 


296 


* 






BDIA 


297 


* 






BDIA 


298 


* 






BDIA 


299 


* 






BDIA 


300 


* 






BDIA 


301 


* 


080C 


E1A3 


BDIA 


30 2 


CKPASS 


080E 


2020 


BDIA 


30 3 




0810 


E190 


BDIA 


304 


CKS6E1 


0812 


2 EC 5 


BDIA 


30 5 




0814 


3E43 


BDI A 


306 




0816 


2F85 


BDI A 


30 7 




0818 


3FA3 


BDIA 


30 8 




081A 


6E12 


BDIA 


309 




081C 


2EF7 


BDIA 


310 




081E 


3F89 


BOIA 


311 




0820 


8802 


BDIA 


312 




08? 2 


0020 


BDIA 


313 


PASS24 


0824 


E1A5 


BDIA 


314 


CKS6E0 


0826 


01AC 


BDIA 


315 




0828 


040 


BDIA 


316 




08?.A 


8308 


BDIA 


317 




082C 


2040 


BDIA 


318 


N0T4TH 


082F 


01AE 


BDIA 


319 


CKS5E1 


0830 


4E22 


BDIA 


320 




0332 


6E12 


BDIA 


321 




0834 


3 EC 9 


B D I A 


322 




0836 


5EF1 


BDIA 


323 




0838 


8802 


BDIA 


324 








BDIA 


325 


AEND 






BOIA 


326 


* 






BOIA 


327 


A 






BOIA 


328 


* 






BDIA 


329 


* 






BOIA 


330 


ATABLE 


0308 


4812 


BDIA 


331 


LSSET 


030A 


3 93 5 


BDIA 


332 




03DC 


2 92B 


BDIA 


333 




030E 


6 8E2 


BDIA 


334 




03E0 


2A25 


BDI A 


335 




03E2 


2BF5 


BDIA 


33 6 




03 E4 


3B73 


BDIA 


337 




03E6 


2C25 


BDIA 


33 8 




03E8 


2015 


BDIA 


339 





8A 



8C 



313 



2087 

2197 

22A7 

23B7 

24C7 

25D7 

26E7 

27F7 

BR 

TO MODC 

BR 

TO MODC 

PASS24 



UO 
Ui 
VO 
VI 
GO 
Gl 
DO 
Dl 



=0$K88 
=0$K99 
=0$KAA 
=C$KBB 
=0$KCC 
=0$KDD 
=0$KEE 
=0$KFF 

WD. 



8A 



008F 
019F 
02AF 
03BF 
4CF 
05DF 
C6EF 
07FF 
BR IF 



Z=U0<88 
Z=U1<99 
Z=V0<AA 
Z=VKBB 
Z=G0<CC 
Z=GKDD 
Z=DO<EE 
Z=DKFF 
ZNZ 



304 CKS6E1 



281 BEGMOD 

314 CKS6E0 

318 N0T4TH 

331 LSSET 

319 CKS5EI 



TO 008A. 

8C BR 

WD. TO MODCWD 

IF S6 = l 

S6 
IF S6=0 
O$KC0 
HC$K04 
0SK80 
H1$K0A 

H DC8A 
0$KFF 
0-K80 

S6 
IF S6=l 
IF S5=C 

S5 

S5 
IF S5=0 

H DC,8C 

H DC»8A 
O-KCO 
HOX 



281 BEGMOD 



BR 
SET 

BR 

H0= 

H0= 

Hl = 

Hl = 

STH 

H0 = 

Hl = 

BR 

RST 

BR 

BR 

RST 

BR 

SET 

BR 

RDH 

STH 

H0= 

Hl = 

BR 



UO 
Ul 
VO 
VI 
GO 
Gl 
DO 
01 



8A 



8C 



400 3 

4113 

4223 

4333 

4443 

4553 

4663 

4773 

BR 

TO MODC 

BR 

TO MODC 
CHECK PAS 
S6=l TO S 
CHECK SET 
XXXX SET 
X BR I 

X 
X 
X 

0000 H SE 
INIT 

BR TO BEG 
PASS 2 OR 
S6 TO IND 
S5=l INDI 



= UOXH 
= UIXH 
= VOXH 
= V1XH 
= GOXH 
= G1XH 
= DOXH 
= D1XH 

WD. 

WD 

S. BR 
AY NE 
OF S 
8 A TO 
F ZNZ 



T TO 
VALU 

I N MO 
4 JU 

ICATE 

GATES 



♦UOL 
+U11 
♦VOL 
+V1L 
♦GOL 
♦GIL 
+DOL 
+D1L 

8A 

8C 

AFTER 
XT PAS 
6 

C48A 

TO 00 



FF7F. 
E REQ' 
DIFIC 
ST FIN 
NEXT 
4TH P 



008F 
019F 
02AF 
G3BF 
C4CF 
C5DF 
06EF 
07FF 
BR IF 
TO 00 
BR 

TO MO 

2ND 

S IS 2 

WHICH 
8A 



Z=U0<88 
Z=U1<99 
Z=VO<AA 
Z=VK8B 
Z=GO<CC 
Z=GKDD 
Z=D0<EE 
Z=DKFF 

ZNZ 
8A. 

DC WD 
R 4TH. 
OR 4. 



IS 



THIS IS THE 
D FOR Z=A<KK 
OF CTRL WD. 
ISHED. RESET 
PASS IS 3RD. 
ASS COMP. 



BR TO LOCAL STOR SET/RESET TEST 

NEXT PASS IS THIRD 

CK SET OF S5. 

XXXX RESTORE 8A TO BR TO 0800 

X 

0000 H SET TO 3FF3. THIS IS INIT 

VALUE REO'D FOR B=AXH+BL 

BR TO BEGIN MODIFIC OF CTRL WD. 



*$***$** ******$$$*** **************************************** ******** *** 

* LOCAL STORAGE SET/RESET ROUTINE ZONE ZERO 

9$C 9^ ?^C 1S§C ^C ^$C 3|$C 3$C 3^ 3$C 3$C 3$C ra^C "3^C 2^C 3^< 3^C a^C )$C 3^ '^ 3*^ ^^ 3$C 9^C 3^C 3^C '3$C 3^C 3fC 3$C 3$C 3^C 3^C 3$C 3^ s|c 9$C 3$C S^C 3^C 3|^C ^C 9^C 3$C 3^C 3$C 3$C 3§C 3$C 3§C 3^C ^$C ?$C 3^C ^$C 3$C 9$C 3$C ~3^C 3^C !9$C 9$C 3$C 3$C 3JC 3JC >$C 3$6 3$C <$C 

A DDR =0 308 

RDH I 0C,8A I=C48A XXX K-ADDR BC IS SET TO 

U=I1$K30 I=C4BA X 

I1=I1+K02 I=C4BC X 

STH I DC,BC X 

T0=0$K20 XXXX T SET 

T1=0$KF0 X UO=0$KFF 

T1=T1$K07 X 

P0=0$K20 0000 P SET TO 201B WHICH IS 

P1=0$K10 U0=U0+K01 



K-ADDR BC IS SET 
C4BC WHICH IS A 

BR IF ZNZ 
TO ITSELF. 
TO 20F7 WHICH IS 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CLOAD=*E60, 
COMMENTS 
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03EA 


3DB3 


8 01 A 


340 




03EC 


2E05 


SOI A 


341 




03EE 


2F13 


BOI A 


342 




03F0 


8 300 


BOIA 


343 








BOI A 


344 


* 






BOIA 


345 


AENO 






BOIA 


346 


ATABLE 


03 CO 


C4C0 


BDIA 


347 


NOTRST 


03C2 


4AC2 


BOIA 


348 


ROOLCW 


03C4 


4C02 


BOIA 


349 




03C6 


4EF? 


BOIA 


350 




03C8 


2A1B 


BOIA 


351 




03 C A 


2C1B 


BOIA 


35 2 




03CC 


2E1B 


BOIA 


353 




03CE 


E0F2 


BOIA 


354 




03D0 


6 AC 2 


BOIA 


355 


STNWCW 


03D2 


6CD2 


801 A 


356 




0304 


6EF2 


BOIA 


35 7 




0306 


P3B8 


3DIA 


358 


C 


' 




BOIA 


359 


AEND 






BOIA 


360 


* 






BOIA 


361 


* 






BOIA 


362 


* 






BOIA 


363 


* 






80IA 


364 


* 






BOIA 


365 


* 






BOI A 


366 


* 






BOIA 


367 


* 






BOIA 


368 


* 






BOIA 


36 9 


* 






BOIA 


370 


* 






BOIA 


371 


ATABLE 






BO! A 


372 


* 


03F2 


2505 


BDIA 


373 


3YNCRT 


03F4 


251B 


BOIA 


374 


ZINCR 


03F6 


F4F0 


801 A 


375 




03F8 


C4F4 


BDIA 


376 




03FA 


5007 


BDIA 


377 








BDIA 


378 


* 






BDIA 


379 


* 






BDIA 


380 


* 


03FC 


2413 


BOIA 


381 


ALUEDT 


03FE 


883C 


BDIA 


382 








BOIA 


383 


AEND 






BDIA 


384 


ATABLE 


083A 


6443 


BOIA 


385 


CKALOE 


083C 


2 50 5 


BOI A 


386 


ZER0G1 


083E 


7543 


BDIA 


387 




0840 


3 80 8 


BOIA 


388 




0842 


050D 


BOIA 


389 




0844 


3800 


BOIA 


390 





35 5 STNWCW 



ADDR=03C0 

347 NOTRST 



P1=P1$K0B 
HO=0$KOG 
Hl=0$K01 
BR 





XXXX H SET TO 0001 WHICH IS 

X Z=UO+KOO 

BR TO STORE THE THREE CONTROL 
WORDS JUST BUILT IN T, P, ANO H. 



373 OYNCRT 



BR IF 
RDH T 
ROH P 
ROH H 
TO=TO 
PO=PO 
HO=HO 
BR IF 
STH T 
STH P 
STH H 
XCTL 1 



ZNZ 

DC t B8 

DCBA 

DCBE 

+ K01 

+ K01 

+K01 
HZNZ 
DCf B8 
DCBA 
DCBE 

83B8' 



CK THAT 
READ OLD 
READ OLD 
READ OLD 



ALL BITS WERE 
CTRL WORDS. 
CTRL WORDS. 
CTRL WORDS. 



RESET. 



BR TO 



MODIFY CTRL WDS . . . INCR EMENT X. 
MODIFY CTRL WDS. .. INCREMENT X. 
MODIFY CTRL WDS. .. INCREMENT X. 
BR IF SIXTEENTH PASS COMPLETED. 
STORE NEW CONTROL WORDS. 
STORE NEW CONTROL WORDS. 
STORE NEW CONTROL WORDS. 
K-ADORESSABLE B8. 



sjic 3$c 3$c 9$c & & & & ^ & && s£c sic & & ate 36c aSc 3§c 

* THE 4 CONTROL WORD 

* STORAGE ANO BRANCH 

* THIS IS DONE 16 01 

* MODIFY THE FUNCTIO 

* K-AODR B8...CTL ST 

* K-ADDR BA. ..CTL ST 

* K-ADDR BC...CTL ST 

* K-AODR BE. ..CTL ST 
* 

ADOR=0 3F2 

******************** 

Gl = 
Gl = 
381 ALUEDT BR 

374 ZINCR BR 

STO 

ALU ERROR DECTECT 

G0= 
386 ZER0G1 BR 



S BELOW WERE BUILT IN K-ADDR 

ED TO FROM THE WORD IMMEDIAT 

FFERENT TIMES, WITH 

N OF THE WORDS. 

OR ADDR 03B8 EQUALS 

OR ADDR 038A EQUALS 

OR ADDR 03BC EQUALS 

OR ADDR 03BE EQUALS 



ES SABLE CONTROL 
LY ABOVE THESE COMENTS. 
•X» INCREMENTED EACH TIME TO 



2XF7 
2X1B 
C4BC 
0X01 



A=A$KFF 
A=A+K01 
BR IF ZNZ 

Z=A+KOO 



TO ITSELF 



&&#*#*^#j^#>|c>jc^:fc########£:£#:£#^ $$$$ $^$$&$$3$c^$$$$$$$ $&$ 



ric sk aftc afc j& &3k&3fe&&3i&&:&i££iAe2&32c& && 

j^fr, mp. ^ph j^. *j% ^ft *^ *^ ^v *j^ t*j^. 49* <*f* ^^ *jpt m^ ^^ ^* ^^ mj+ ^% 

0$K00 **SET Gl T 

G1+K01 ** OBTAIN 

IF AC=1 **END OF T 

IF ZNZ **BR BACK 

P **0YN COND 

***** 



*******&******************** 

ZERO AND THEN INCREMENT TO 
ALL BIT COMBINATIONS ON Z BUS 
EST — BR TO ALU OE TEST 
TO CHECK ALL Z BUSS BIT COMB 
REG BIT IS ON IN ERROR 



$$ $&$& $3$: 3$C$ $$&$$$ 

ION TEST 
************************************************* 

0$KOl 



ADDR=083A 



GO=GO+GO 
G1=0$KOO 
G1=G1-G0 
SET DR K=CO 
Z=GKKOO 
SET DR K=80 



**DiSABLE STOP ON ERROR £ FORCE PLUS 
** SIDE OF ALU A ENTRY CAUSING ALU CK 



ADDR 

0846 
0848 
084A 
084C 



WORD SEQUENCE NO, 



084E 
0850 
0852 
0854 
0856 
0858 
085A 
085C 
085E 
0860 
0862 
0864 
0866 
0868 
086A 
086C 
086E 
0870 
0872 
0874 
0876 
0878 



0F1E 
0F20 
0F22 
0F24 
0F26 
0F28 
0F2A 



DAC6 
1212 
2800 
C43A 



2440 
8 86E 
0E3F 
FE04 
4E80 
6E80 
FAD A 
CE3F 
EADE 
1212 
886E 
0F1F 
FEE6 
4E30 
6E80 
C2E2 
4E80 
3 804 
6E80 
CAF4 
3800 
128E 



EE9E 
1212 
5EFF 
C4A4 
2 800 
2020 
9324 



BDIA 
BDIA 
BDIA 
RDIA 
8DI A 
8DIA 
RDIA 
BDI A 
RDIA 
BDIA 
BDI A 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDI A 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 
BDIA 



BDIA 


018 


BDIA 


00 8 


BDIA 


056 


BDIA 


053 


BDIA 


061 


BDIA 


061 


BDIA 


066 


BDIA 


06 6 


BDIA 


075 


BDIA 


C72 


BDIA 


083 


BDIA 


080 


BDIA 


087 


BDIA 


084 


BDIA 


096 


BDIA 


096 



39 1 
392 
393 
394 
395 
396 

39 7 
398 
399 
400 
401 
402 

40 3 
404 
40 5 
40 6 
40 7 
40 8 
40 9 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
42 3 
424 

42 5 
426 
427 
428 

43 2 
438 



LABEL 



ALCKER 



NEXTSEQ 



NEXTLABEL STATEMENT 



CL0AD=*E60, 

COMMENTS 
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* 
* 



ROCRCE 

NOBPC 
NOAPC 

R1CRCE 

CKSTPC 
NOSDPC 



AEND 
ATABLE 
MOSTAC 



MCRSTE 



AEND 



391 ALCKER 
385 CKALOE 

mfr Jfi ^^ «j£ Jtfi. jfi J^ jfi ^ Jfi JJw Jp. Afr 

STORAGE DAT 
PARITY DETE 

415 CKSTPC 
402 ROCRCE 

40 5 NOBPC 

40 7 NOAPC 

415 CKSTPC 

411 R1CRCE 



418 NOSDPC 



AD0R=0F1E 

42 3 NOSTAC 



426 MCRSTE 



BCHK Oil START 



BR 
RST 
SET 
BR 

A,CONT 

CTION 

****** 

SET 

BAL 

Z=H 

BR 

RDH 

STH 

BR 

Z=H 

BR 

RST 

BAL 

Z=H 

BR 

RDH 

STH 

RTN 

RDH 

SET 

STH 

BR 

SET 

RTN 



IF MC BI 
MMSK K= 
DR K=00 

IF GO BI 

ROL WORD 
TEST 

MODE K= 

0<K33 

IF MC3=0 
H CS, I 
H CS,I 

IF MC7=0 

0<K33 

IF MC6=0 
MMSK K- 

KK11 

IF MC3=0 
CS,I 
CS,I 
MMSK1 
CS,I 
K=AO 



T5=0 
91 



♦ ♦ALU ERROR SHOULD HAVE SET MC 5 



H 
H 
H 
H 
DR 



H CS,I 
IF MC4=0 
DR K=80 



T0=0 ♦♦BRANCH BACK T 
******************** 

, STORAGE ADDRESS, A 
DC REG BITS 3,6 AND 

04 

♦♦STORE ADDR OF C 
♦♦THIS ADDR CONTA 
♦♦SHOULD HAVE RO 

♦ ♦H=0E3F WITH EVE 
♦♦RESTORE CHECK D 
♦♦SHOULD HAVE SET 
♦♦SET A REG PARIT 
♦♦SHOULD HAVE SET 

91 ♦♦RESET MC REG 

♦♦STORE ADDR OF C 
♦♦THIS ADDR CONTA 
♦♦SHOULD HAVE Rl 
♦♦H=0F1F WITH EVE 

♦ ♦RESTORE CHECK 
=0 ♦♦CAUSE STOP ADDR 

♦♦1ST LOOP H=0E3F 
♦♦DISABLE STOP ON 
♦♦ STORE BITS PO 
♦♦SHOULD HAVE SET 
♦♦RST FORCING OF 
♦♦RTN FOR ADDITIO 



CHECK EACH OE CKT 
********************* 

REG AND B REG 
7 MUST BE OFF 
********************* 

HECK DATA TO BE READ 

INS 0E3F 

CTRL WORD PARITY CHECK 

N PARITY IN HO 

ATA WITH GOOD PARITY 

B REG PARITY CK LATCH 
Y CK LT £ RST DC3,6£7 

A REG PARITY CK LATCH 



HECK DATA 
INS OF IF 
CTRL WORD PA 
N PARITY IN 
ATA WITH GOO 
CK — H1=1F W 
tOM 2ND LOOP 
ERROR AND F 
AND PI TO M 
STOR DATA P 
STORE BITS P 
NAL TESTING 



TO BE READ 



RITY CHECK 

HI 

D PARITY 

ITH P BIT 

H=0F1F 
ORCE 
EMORY 
ARITY LT 
AHD PI 
£ 2ND LOOP 



BR IF MC2=0 
RST MMSK K=91 
H1=MC 
BR IF ZNZ 
SET DR K=00 
SET S6 
BR 



♦♦SHOULD HAVE SET STORAGE ADDRESS CHECK 

♦♦RESET MC REG 

♦♦CHECK RESET OF MC REG 

♦♦MC REG SHOULD HAVE BEEN RESET 

♦♦ALLOW STOP ON ERROR 



3$G SJC 3$C 3$C3$E ^9^^3^^^^^^^^^^^^^^3^^^^^9^)$C^:3$C^C^C3$e 

♦ CROSS REFERENCE FOR CSECT BDIA ♦ 



BOIA 


101 


BDIA 


101 


BDIA 


106 


BDIA 


103 


BDIA 


114 


BDIA 


111 


BDIA 


122 


BDIA 


054 


BDIA 


125 


BDIA 


119 


BDIA 


132 


BDIA 


132 


BDIA 


133 


BDIA 


13 3 


BDIA 


134 


BDIA 


134 


BDIA 


135 


BDIA 


13 5 


BDIA 


147 


BDIA 


147 


BDIA 


154 


BDIA 


154 


BDIA 


163 


BDIA 


163 


BDIA 


164 


BDIA 


164 


BDIA 


188 


BDIA 


188 


BDIA 


190 


BDIA 


190 


BDIA 


195 


BDIA 


137 


BDIA 


197 


BOIA 


202 


BDIA 


198 


BDIA 


196 


BDIA 


201 


BDIA 


166 


BDIA 


207 


BOIA 


193 


BDIA 


211 


BDIA 


211 


BDIA 


212 


BDIA 


212 


BDIA 


?16 


BOIA 


216 


BDIA 


217 


BDIA 


217 


BDIA 


228 


BOIA 


228 


BDIA 


229 


BDIA 


229 


BDIA 


231 


BDIA 


231 


BDIA 


239 


BOIA 


239 


BDIA 


240 


BOIA 


240 


BOIA 


242 


BDIA 


242 


BDIA 


245 


BDIA 


245 


BDIA 


248 


BDIA 


256 


BDIA 


255 


BOIA 


255 


BDIA 


2 59 


BDIA 


259 


BDIA 


261 


BDIA 


261 


BDIA 


269 


BDIA 


263 


BDIA 


2 70 


BDIA 


270 


BDIA 


281 


BDIA 


277 


BDIA 


302 


BDIA 


283 


BDIA 


304 


BOIA 


304 


BDIA 


313 


BDIA 


30 2 


BDIA 


314 


BDIA 


314 


BDIA 


318 


SDIA 


315 


BDIA 


319 


BDIA 


319 


BDIA 


331 


BDIA 


317 


BDIA 


347 


BDIA 


347 


BDIA 


3 55 


BDIA 


343 


BDIA 


373 


BOIA 


354 


BDIA 


374 


BDIA 


376 



* CROSS REFERENCE FOR CSECT BDIA * 
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BDIA 142 BDIA 183 



BDIA 171 BDIA 176 BDIA 192 



BDIA 269 



BDIA 312 BDIA 324 



BOIA 


381 


BDIA 


375 


BDIA 


385 


BDIA 


39 4 


BDIA 


3 86 


BDIA 


38 2 


BDIA 


391 


BOIA 


391 


BDIA 


402 


BDIA 


40 2 


BDIA 


405 


BOIA 


40 5 


BDIA 


407 


BDIA 


40 7 


BDIA 


411 


BOIA 


411 


BDIA 


415 


BOIA 


400 


BDIA 


418 


BDIA 


418 


BD!A 


423 


BOIA 


42 3 


BDIA 


426 


BOIA 


42 6 



* CROSS REFERENCE FOR CSECT BDIA * 
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BDIA 409 



BMCK DESCRIPTIVE TEXT 
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WHEN A MACHINE ERROR OCCURS (SEE -MC- REGISTER), A 
MACHINE CHECK TRAP IS TAKEN IF - 
MMSK 8 AND 9 NOT ON 
MACHINE CHECK MASK LATCH ON ( MW BIT 5) 



IF MMSK 8 OR 
HARD STOP LATCH 



9 ARE ON AND A 
IS SET AND THE 



MACHINE ERROR OCCURS, THE 
SYSTEM STOPS. 



ALLOWED THE TRAP ADDRESS 
ANO THE -BMCK- ROUTINE IS 



IF THE MACHINE CHECK TRAP IS 
0220 IS FORCED ON THE SAR LINES 
ENTERED AT LABEL * TRAPWD *. 

MMSK BITS 0-6 ARE TESTED AND IF ANY ARE ON (INDICATES 
THAT AN I/O TRAP OPERATION WAS IN PROGRESS WHEN THE MACHINE 
CHECK OCCUREDI, THE I/O OPERATION WILL BE TERMINATED, AND 
AN ATTEMPT TO CAUSE AN I/O INTERRUPT IS MADE. IF MMSK BITS 
C-6 ARE NOT ON, A MACHINE CHECK INTERRUPT TAKES PLACE. 



SINCE THE LOGOUT LATCH IS SET IN THIS ROUTINE, NO CPU 
INSTRUCTION WILL BE EXECUTED UNTIL THE PRINTOUT OF THE 
LOGOUT AREA IS COMPLETED. ANY PREVIOUS PR-KB OPERATION 
IN PROCESS, SUCH AS ALTER/DISPLAY, INSTRUCTION STEP ADDRESS 
TYPE- OUT, OR NORMAL PR-KB FUNCTIONS WILL BE FORCED TO 
TERMINATE. THE PRINT OUT OF THE LOGOUT AREA STARTS AFTER 
A CARRIAGE RETURN WITHOUT ANY HEADER INFORMATION. 

THE -BCHK- ROUTINE LOADS THE LOGOUT AREA IN PROGRAM 
STORAGE, LOCATIONS 0080 - 0085, WITH THE INFORMATION LISTED 
BELOW. THE -ALDP- ROUTINE HANDLES THE PRINTOUT OF THIS 
LOGOUT AREA ON THE PR-KB. 



MACHINE CHECK LOGOUT AREA 
***#**#****** A********************************************* *********** 



LOC 008 



LOC 0081 



LOC 0082 



TRAP 

BIT 
0- 
1- 
2- 
3- 
4- 
5- 
6- 
7- 



PRIORITY 
(MMSK) 



REGISTER 



CHANNEL HIGH PRIORITY TRAP, 
2311 DISK CONTROL TRAP 
CHANNEL LOW PRIORITY TRAP 
2540 READER TRAP 
2 540 PUNCH TRAP 
COMM. BIT SERVICE TRAP 
COMM. CHAR. SERVICE TRAP 
LEVEL 1 PRIORITY HOLD 



BRANCH 



CONDITION 
(BA) 



REGISTER 



BIT 

0- CHANNEL INTERRUPT LATCH 

1- MODE BIT 

2- MODE BIT I 

3- MODE BIT 2 

4- IPL LATCH 

5- LS ZONE BIT 

6- LS ZONE BIT 1 

7- LS ZONE BIT 2 



MACHINE 



CHECK 
(MC) 



REGISTER 



LOC 0083 



ERROR COUNT 



BIT 

0- FILE CONTROL CHECK 

1- STORAGE PROTECT PARITY CHECK 

2- STORAGE ADDRESS PARITY CHECK 

3- CONTROL WORD PARITY CHECK 

4- STORAGE DATA PARITY CHECK 

5- ALU ERROR CHECK 

6- A-REG PARITY CHECK 

7- B-REG PARITY CHECK 



LOC 0084-0085 
BACKUP ADDRESS- 
ADDRESS OF THE 
CONTROL WORD IN 
OPERATION WHEN 
THE MACHINE CHECK 
OCCURRED. 



ADDR 



WOR! 



SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



COMMENTS 



0220 
0222 

1028 
102A 
10 2 C 
102E 
1030 
1032 
1034 
1036 
1038 
1000 



3262 

9028 

7612 
566F 
577F 
7672 
2610 
A281 
2 400 
2135 
B368 
C693 



B MC K 
BMCK 
BMCK 
BMCK. 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 
BMCK 



001 
002 
003 
004 
0C5 
006 
007 
008 
009 
010 
Oil 
012 
018 
019 
032 



T 

ATABLE 
TRAPWD 

AEND 
GETOUT 



ADDR=0220 



NOTRAP 



INTRAP 



CSTS 



106 
065 



MACHINE CHECK TRAP ROUTINE 
D MMSK9=1 



006 GETOUT 



03 2 INTRAP N 



PICKUP 
CHNLCK 



LINK 
BR 



STH DA,8A 

DO=MMSK 

D1 = BA 

STH D DA,9E 

SET BC K=01 

BR IF MMSK = NZ 

SET MODE K=00 

U1=0$K30 

BR 

BR IF MMSK0=1 



SAVE A0DR+2 OF FAILING 
GET OUT OF TRAP AREA 



MICRO WD 



TEMP STORE D REG FOR CHNL 
MOVE MMSK (TRAP PRIORITY) REG 
MOVE BA( BRANCH CONDITION) REG 
SAVE MMSK & BA REGS IN AUX K-7 
SET LOGOUT LATCH 
BR IF ANY MMSK BIT 
SET TO CPU MODE S ZONE 
MACHINE CHECK OLD PSW ADDR 
GO TO STORE £ LOAD MC PSW 
BR IF IN CHNL HI PRIORITY TRAP 



AODR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



10C2 


0695 


BMCK 


036 


1004 


E693 


BMCK 


040 


1006 


F697 


BMCK 


044 


1008 


C29B 


BMCK 


045 


100A 


021A 


BMCK 


058 


100C 


021C 


BMCK 


060 


100E 


C21E 


BMCK 


061 


1010 


9034 


BMCK 


063 


1012 


98F8 


BMCK 


065 CHNLCK 


1014 


96 AC 


BMCK 


067 DSKCHN 


1016 


2D02 


BMCK 


071 RDRTRP 


1018 


B22E 


BMCK 


072 


10 1A 


2040 


BMCK 


073 PCHTRP 


101C 


A4D8 


BMCK 


074 


147A 


2 00 7 


BMCK 


092 LOGOUT 


14 7C 


2 400 


BMCK 


093 


147E 


5E3F 


BMCK 


094 


1480 


C4A7 


B MC K 


095 


1482 


1212 


BMCK 


096 






BMCK 


097 * 






BMCK 


098 * 






B MC K 


099 * 






BMCK 


100 * 






BMCK 


LCI * 






BMCK 


102 * 


1484 


5 672 


BMCK 


10 3 


1486 


2440 


BMCK 


104 


1488 


7672 


BMCK 


1C5 


148A 


2400 


BMCK 


106 


148C 


2185 


BMCK 


107 


148 E 


420F 


BMCK 


108 


1490 


7618 


BMCK 


109 


1492 


7318 


BMCK 


110 


1494 


5710 


BMCK 


111 


1496 


271B 


BMCK 


112 


1498 


7718 


BMCK 


113 


149 A 


5 67 2 


BMCK 


114 


149C 


16C5 


BMCK 


115 


149E 


1713 


BMCK 


116 


14A0 


6666 


BMCK 


117 


14A2 


7618 


BMCK 


118 


14A4 


9248 


BMCK 


119 


14A6 


2 404 


BMCK 


120 NOTMC 


14A8 


2233 


BMCK 


121 


14AA 


1F2E 


BMCK 


122 


14AC 


2171 


BMCK 


123 


14AE 


2B07 


BMCK 


124 


14B0 


7A00 


BMCK 


125 


14B2 


4632 


BMCK 


126 


14B4 


2610 


BMCK 


127 


14B6 


271D 


BMCK 


128 



06 7 

06 5 
071 

07 3 



DSKCHN 
CHNLCK 
RDRTRP 
PCHTRP 



012 NOTRAP 

DCLR 23 8 CCCXXX 

FILT 091 MCHCHK 

ETTR 043 ROUEST 

ETRP 071 INLK 



120 NOTMC 



BR IF MM 

BR IF MM 

BR IF MM 

BR IF MM 

RST MMSK 

RST MMSK 

RST MMSK 

BR 

BR 

BR 

SET RP K 

BR 

SET RP K 

BR 

U0=0 

SET MODE 

Vl = MC 

BR IF Z = ( 

RST MMSK 



SK1 = 1 

SK2=1 

SK3=1 

SK4=1 

K=51 

K=61 

K=71 



= 10 
=04 

K=00 

i 
K=91 



CL0AD=*E60, 
COMMENTS 


EC 


LEVE 


IF 
IF 
IF 
IF 


IN 
IN 
IN 
IN 


DISK CHAINING TRAP 
CHNL LO PRIORITY TRAP 
READER TRAP 
PUNCH TRAP 
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BR 

BR 

BR 

BR 

NO ICA, RST MMSK 5 (BIT) IF ON 

NO ICA, RST MMSK 6(GENERAL) IF ON 

RST LEVEL 1 PRIORITY 

LEVEL 1 PRIORITY, NOT IN TRAP 

CHANNEL TRAPS 

SET READER MACHINE CK LATCH 
GO BACK TO RDR TRAP ROUTINE 
SET PUNCH MACHINE CK LATCH 
GO BACK TO PCH TRAP ROUTINE 

SET CPU MODE TO BR ON MC REG 
MOVE MC REG 

BR IF NOT MACHINE CK LOGOUT 
RST MACHINE CHECK PRIORITY 



FROM THIS POINT ON, A SECOND MACHINE CHECK WOULD CAUSE A RETURN TO THE 
TRAP ADDRESS 0220. IF THE SECOND MACHINE CHECK OCCURRED PRIOR TO THE 
LAST INSTRUCTION, THE CPU WILL STOP WITH THE CLOCK OFF. THE LAST 
INSTRUCTION ALSO RESETS THE MC REGISTER. 

RDH D DA,9E 

SET MODE K=04 

STH D DA,9E 

SET MODE K=00 

Ul=0$K80 

STP0=U0 

STH D U+2 

STB VI U+l 

RDB Dl U+0 

DI=D1+KC1 

STB Dl U+l 

RDH D DA,9E 

00= 00*- K CO 

01=D1*-K01 

D=D-2 

STH D U+2 

BAL 

SET MODE K=20 

VO=0$K03 

RST TA K=F2 **RST 

Ul=0-K07 

T1=0 

STH T AS,U+0 RST 1ST HW OF 1052 UCW 

RDH D DC,8E READ OUT CONSTANT OF 4E08 

D0=D0+K10 SET D TO 5E18 FOR 

D1=D1+K10 «RDH H U+2« 



CCOM 182 RSTRKY 



RD SAVED MMSK £ BA FROM AUX K-7 


BACK UP ZONE 


XFER MC BACKUP ADDR TO AUX K-7 


SET TO CPU MODE & ZONE 


SET UP ADDR OF LOGOUT AREA 


DISABLE STORAGE PROTECT 


STORE -MMSK, BA IN LOCATION 80,81 


STORE MACHINE CK REG IN 82 


READ LAST ERROR COUNT FROM 83 


ADD 1 TO ERROR COUNT 


STORE UPDATED ERROR COUNT IN 83 


READ BACKUP MICRO ADDR INTO D 


STRIP BITS 0,1 - HZ,LZ 


STRIP BIT 15 - ALU CARRY 


MICRO ADDR POINTS AT FAILING WD 


MICRO WD ADDR OF FAILURE IN 84,5 


RESTORE THE CPU KEY 


SET BACK TO 1052 MODE 


HW COUNT EQUALS 3 


RD, WT, M-FORCE, ALDP, SHARE IF ON 


U=00F8 - PRK8I1052} UCW ADDR 



ADOR 


WORD 


SEQUENCE H 


14B8 


6662 


BMCK 


129 


14BA 


17AB 


BMCK 


130 


14BC 


2185 


BMCK 


131 


14BE 


88BC 


BMCK 


132 


14CO 


9A8E 


BMCK 


133 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 
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COMMENTS 



BMCK 


003 


FILT 


090 


BMCK 


006 


BMCK 


004 


BMCK 


012 


BMCK 


063 


BMCK 


032 


BMCK 


Oil 


BMCK 


065 


BMCK 


032 


BMCK 


067 


BMCK 


03 6 


BMCK 


071 


BMCK 


044 


BMCK 


073 


BMCK 


045 


BMCK 


092 


DYPE 


021 


BMCK 


120 


BMCK 


095 







STH D DCt9C 






D1 = DKKCA 






U1=0$K80 


ALDP 241 


LINEFO 


BAL 


ALDP 146 


COLCNT 


BR 



STORE 'DOIT' WO FOR 

SET FLAGS FOR MC CK 

SET UP AODR 

FOR A LINE FEED 

GO TO PRINT OUT LOG AREA 



ALDP ROUTINE 
OR CE TRAP 



******* ************** ************* 
* CROSS REFERENCE FOR CSECT BMCK * 



BMCK 040 



BPSW 



DESCRIPTIVE TEXT 
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ENTRY POINTS TO THE BPSW ROUTINE 



PROG WHEN A PROGRAM INTERRUPTION IS DETECTED DURING 

INSTRUCTION PROCESSING THE BPSW ROUTINE IS ENTERED 
HERE. THE CURRENT PSW, ALONG WITH THE INTERRUPTION 
CODE, IS STORED IN THE PROGRAM OLO PSW LOCATION AND 
THE PROGRAM NEW PSW IS READ OUT AND PLACED IN 
CONTROL. 

PROGA ENTRY IS MADE HERE IF A PROTECTION ERROR OR AN 
EXECUTE INSTRUCTION IS DETECTED. PSW HANDLING IS 
THE SAME AS FOR PROG ENTRY. 

ENTRYB ENTRY IS MADE HERE FOR EXTERNAL INTERRUPT, 

CHANNEL INTERRUPT, OR CHANNEL INITIAL SELECTION, 
HIGH ORDER HEX DIGIT FOR PROPER PSW ADDRESS IS SET 
PRIOR TO ENTRY HERE. 



ENTRY 



LPSW 



I NT BR 



INTXA 
NINTXA 



WAIT 



A SUPERVISOR CALL OR MACHINE CHECK TRAP CAUSES 
ENTRY AT THIS LABEL. 

ENTRY HERE IS TO COMPLETE THE 360 LOAD PSW 
INSTRUCTION OR TO LOAD THE IPL PSW. 

ENTRY HERE IS FROM CONDITIONAL BRANCH INSTRUCTIONS 
TO CHECK FOR ADDRESSING OR SPECIFICATION ERRORS. 



ENTRY TO EITHER OF THESE LABELS IS FROM THE 
ROUTINE WHEN THE SOFT STOP LOOP IS EXITED. 



BSWI 



THIS LABEL IS BRANCHED TO WHEN THE WAIT BIT IS 
TESTED AND FOUND TO BE ON. 



PROGRAM STATUS WORD AND THE LOCATION OF THE CURRENT PSW 



C 7 8 11 12 15 16 31 32 33 34 35 36 39 40 47 48 63 

********************************* ************************ ******************************************************************** 

* * * * * * * pROG * * * 

* SYSTEM MASK * KEY * AMWP * INTERRUPTION CODE * ILC * CC * MASK * * INSTRUCTION ADDRESS * 

* * * * **** * * 
***************** **** ************************************ **** **************************************************************** 



AUX 

A8 







AUX 
A9 
3 



AUX 
A9 
4 7 



LS . LS 

GO . PO 
.0 3 



LS 
PI 

3 



AUX 



AA 



AB 



PSW ADDRESS ASSIGNMENTS 

HEX 



HEX 



00 
18 
20 
28 
30 
38 



INITIAL PROGRAM LOADING 
EXTERNAL OLD PSW 
SUPERVISOR CALL OLD PSW 
PROGRAM OLD PSW 
MACHINE-CHECK OLD PSW 
INPUT/OUTPUT OLD PSW 



PSW 



58 
60 
68 
70 
78 



EXTERNAL NEW PSW 
SUPERVISOR CALL NEW PSW 
PROGRAM NEW PSW 
MACHINE-CHECK NEW PSW 
INPUT/OUTPUT NEW PSW 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



COMMENTS 



BPSW 001 
BPSW 002 



T 
* 



PSW LOAD AND STORING 



001 



















CL0AD=*E60, EC LEVEL= 


AOOR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


COMMENTS 


09FC 


2F0 7 


BPSW 


003 


PROG 






H1=0 


CLEAR INVALID ADD. 


09FE 


2125 


BPSW 


004 


PROGA 






U1=0$K20 


CREATE 


OAOO 


21EB 


BPSW 


00 5 


ENTRYB 






U1=U1+K0E 


PROG. PSW 


0A02 


2 00 7 


8PSW 


006 


ENTRY 






U0=0 


ADDRESS 


OA04 


420F 


BPSW 


007 


ENTRY A 






STP0=U0 


STOR PROT DISABLE 


0A06 


5CE8 


B^SW 


008 








H0=P0H 


PLACE THE 4 BIT CC INTO HO HIGH 


0A08 


3E45 


BPSW 


00 9 








H0=H0$K40 


ASSURE ILC = 1 


OAOA 


4DE5 


BPSW 


010 








H0=P1XL$H0H 


PLACE PROG MASK INTO HO LOW 


OAOC 


E193 


BPSW 


Oil 




014 


NOTEXC 


BR IF S6=l 


TEST FOR EXECUTE 


OAOE 


5892 


BPSW 


012 








RDH I DA,AA 


READ OUT EXECUTE INST. COUNTER 


OAIO 


54B2 


BPSW 


013 








ROH G DA,AE 


RESTORE G REG 


0A12 


C416 


BPSW 


014 


NOTEXC 


016 


WOW 


BR IF G00=0 


TEST OPCODE FORMAT FOR LENGTH 


0A14 


2E4D 


BPSW 


015 








HO=HO+K40 


ADD i TO LENGTH CODE ILC = 2 


0A16 


D41A 


BPSW 


016 


WOW 


018 


EXEC 


BR IF G01=0 


TEST OPCODE FORMAT FOR LENGTH 


0A18 


2E4D 


BPSW 


017 


EXECA 






HQ=H0+K40 


ADD 1 TO LENGTH CODE ILC=2 OR 3 


OA1A 


781A 


BPSW 


018 


EXEC 






STH I U-2 


STORE INSTRUCTION ADDRESS 


OA1C 


7E1A 


BPSW 


019 








STH H U-2 


STORE ILC, CC, AND PROG. MASK 


OA1E 


7A1A 


BPSW 


020 








STH T U-2 


STORE INTERRUPT CODE 


OA20 


5E82 


BPSW 


021 








ROH H DA,A8 


READOUT SYS MASK, KEY, AMWP 


OA22 


7E10 


BPSW 


022 








STH H U 


STORE INTO OLD PSW 


0A24 


214D 


BPSW 


023 








U1=U1+K40 


ADJUST TO NEW PSW ADDRESS 


0A26 


5C18 


BPSW 


024 


LPSW 






ROH P U+2 


START NEW PSW READ 


OA28 


44CF 


BPSW 


025 








SM=PO 


SET SYSTEM MASK 


OA2A 


42DF 


BPSW 


02 7 








STPO=Pl 


SET PROTECT KEY 


OA2C 


7C8 2 


BPSW 


029 








STH P DA,A8 


STORE SYS MASK, KEY, AND AMWP 


0A2E 


6004 


BPSW 


030 








U=U+2 


POINT TO 3RD HALFWORD OF PSW 


OA30 


5E18 


BPSW 


031 








ROH H U+2 


PLACE 3RD HALFWORD PSW IN H-REG 


0A32 


5810 


BPSW 


032 








ROH I U 


PLACE 4TH HALFWORD PSW IN I-REG 


0A34 


2020 


BPSW 


033 








SET S6 


SET EXECUTE IND. OFF 


0A36 


4FD3 


B»SW 


034 








P1=H0XH+P1L 


PLACE PROG MASK AND AMWP INTO PI 


OA38 


5ECB 


BPSW 


03 5 








PO=HOH 


PLACE ILC AND CC INTO PO HIGH 


OA3A 


ICC 5 


BPSW 


036 








PO=PO*-KCO 


ZERO OUT ILC 


0A3C 


FC40 


BPSW 


03 7 




039 


NOT 


BR IF P03=0 


BRANCH IF CC IS OR 2 


OA3E 


3C4 5 


BPSW 


038 








P0=P0$K40 


MAKE 4 BIT CC = TO 5 OR 7 


OA4C 


2A0 7 


3t>SW 


03 9 


NOT 






T0=0 




0A42 


7CC2 


BPSW 


040 








STH P DA,B8 


SAVE PO-l 


GA44 


4F0F 


BPSW 


041 








MW=P1 


SET WAIT S MACHINE CK BITS 


0A46 


E95 5 


BPSW 


042 




066 


WAIT 


BR IF P16=l 


BR IF WAIT BIT ON 


0A48 


2 02C 


BPSW 


054 


I NT BR 






SET S6 


SET EXECUTE INDICATOR OFF 


0A4A 


F1D8 


BPSW 


055 




06 8 


INTX 


BR IF S7=0 


BRANCH IF EXCEPTIONAL CONDITION 


0A4C 


AB71 


BPSW 


059 


INTXA 


069 


ADDRER N 


BR IF H1 = NZ 


BR IF 24 BITS ADDRESS 


0A4E 


09E3 


BPSW 


061 








Z = I 1*-K0E 


TEST LOW ADDRESS BYTE 


0A50 


FOOA 


BPSW 


062 




064 


SPEC 


BR IF LZNZ 


BRANCH IF ODD ADDRESS 


OA52 


AA06 


BPSW 


063 




CICY 00 8 


I START 3 


BR 


BRANCH TO ICYCLES FOR INST. READ 


OA5A 


2B63 


BPSW 


064 


SPEC 






T1=0$K06 


SET BITS TO IDENTIFY SPEC. CHECK 


OA5C 


88E2 


BPSW 


065 




070 


PR0G1 


BR 


BRANCH TO INCREMENT INST. ADDR. 


0A54 


0004 


BPSW 


066 


WAIT 






RST S2 


** WAIT LOOP 


GA56 


F1D5 


BPSW 


067 




066 


WAIT 


BR IF S7=l 


** LEAVE WAIT LOOP ON INTERRUPT 


OA58 


8 448 


BPSW 


06 8 


INTX 


BSWI 008 


CHECKE 


BR 


BRANCH TO DETERMINE INTERRUPT 


08E0 


2 853 


BPSW 


069 


ADORER 






Tl=0$K05 


SET BITS TO IDENTIFY ADDR. ERROR 


08 E 2 


2 40 7 


BPSW 


070 


PR0G1 






G0=0 


ZERO OP CODE REGISTER 



PAGE 51 
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ADDR WORD SEQUENCE NO. LABEL NEXTSEQ NEXTLABEL STATEMENT COMMENTS 

08E4 6884 BPSW 071 1=1+2 INCREMENT INSTRUCTION ADDRESS 

08E6 89FE BPSW 072 004 PROGA BR BRANCH TO STORE INTERRUPT CODE 

3$C 3$C 3$C 3$C 3$C 3$C ^C 3$C 3$C 3$C9$C 3$C 9$C 3$C 3$C 3$C J$C 3$C 3$C3$t 3$C 3$C3$C 3$C 9^C 3$C 3$C 3$C 9$C 3$C)Qc 3$£ 3}C3Qe 

* CROSS REFERENCE FOR CSECT BPSW * 
CFHA 037 CICY 057 CICY 071 CICY 078 CICY 080 CLST 015 CNVR 121 CSAS 130 



BPSW 


003 


CCOM 


072 


CDMD 


06 1 


CFAD 


132 


BPSW 


004 


BPSW 


07 2 


BWRP 


129 


CBRC 


064 


BPSW 


005 


BSWI 


131 


DCHN 


10 6 






BPSW 


006 


CSTS 


108 










BPSW 


014 


BPSW 


Oil 










BPSW 


016 


BPSW 


014 










BPSW 


018 


BPSW 


016 










BPSW 


024 


BSYS 


183 


CSTS 


007 






BPSW 


039 


BPSW 


037 


BSYS 


192 






BPSW 


054 


CBRC 


016 










BPSW 


059 


BSWI 


184 










BPSW 


064 


BPSW 


06 2 










BPSW 


066 


BPSW 


042 


BPSW 


06 7 


BSWI 


053 


BPSW 


068 


BPSW 


055 










BPSW 


069 


BPSW 


05 9 










BPSW 


070 


BPSW 


06 5 











BSWI 188 



BSTP DESCRIPTIVE TEXT 
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ENTRY TO THE -BSTP- ROUTINE IS MADE FROM THE -BSWI- 
ROUTINEWHEN AM INSTRUCTION! STEP OPERATION OR A SET IC 
OPERATION IS PERFORMED. THE ENTRY IS MADE TO TEST THE 1052 



IF THE 1052 IS NOT BUSY, THE -ALDP- ROUTINE 
TO, AND THE INSTRUCTION COUNTER IS TYPED OUT. 



IS BRANCHED 



AND 


DETERMINE 


IF THE INSTRUCTION 


COUNTER 


CAN 


BE TYPED 


OUT. IF THE 






















OUT. THE 






















AND I-REG 


ADDR 


WORD 


SEOUENC 


:e no. 


LABEL 


NEXTSEO 


NEXTLABEL 


STATEMENT 








RSTP 


00 1 


T 










INSTRUCTION TYPED 


2ED6 


2 40 A 




BSTP 


002 


TYPADD 










SET MODE K = 20 


2ED8 


CFDF 




BSTP 


00 3 






00 6 


BUSY 




BR IF TU0=1 


2EDA 


DFDF 




BSTP 


00 4 






006 


BUSY 




BR IF TU1=1 


2EDC 


CEEO 




RSTP 


00 5 






00 7 


OK 




BR IF TT0=0 


2EDE 


AB2C 




BSTP 


006 


BUSY 


BSWI 


10 7 


RESTRH 




BR 


2EEC 


81AA 




BSTP 


007 


OK 


CCOM 


174 


ST0RH1 




BAL 


2EE2 


4E36 




BSTP 


00 8 












H=I 


2EE4 


2 6C3 




BSTP 


021 












QO=0$KOC 


2EE6 


2 70 7 




BSTP 


02 3 












D1 = 


2EE8 


2213 




BSTP 


024 












V0=0$K01 


2EEA 


9 AC A 




BSTP 


02 5 




ALDP 


211 


ENTRY 




BR 



1052 IS BUSY, THE INSTRUCTION COUNTER IS NOT TYPED 
-BSWI- ROUTINE IS BRANCHED TO. THE CPU KEY, P-REG, 
ARE RESTORED AND THE -C ICY- ROUTINE IS BRANCHED TO, 

COMMENTS 



CHECK AND BRANCH IF READ LATCH 
CHECK AND BRANCH IF WR T LATCH 
CHECK AND BRACH IF NO ATTEN 

NO TYPE OUT WILL OCCUR 

SAVE HI 
PUT IC IN H REG 
BUILD 

FLAGS 
SET UP COUNT 
GO DISPLAY 



3^C 3^C 3dC 3& 3^C 3?C 3^e 3$£ 9&C 3^C *^C rfC 3^ ^C 3$C 3?t 3^C 5^C 3^C 3^C 3^C 3& 3Ac 3&C 3^C 3^5 5$C 3$C 9&T ?£c 9&C 3fe 5^C 3$C 

* CROSS REFERENCE FOR CSECT BSTP * 



BSTP 002 
BSTP 006 
BSTP 007 



BSWI 168 
BSTP 003 
BSTP 005 



BSTP 004 



BSWI DESCRIPTIVE TEXT 



CL0AD=*E60, EC LEVEL=128266 PAGE 54 



ENTRY POINTS 



DESCRIPTION — CONTINUED 



CHECKB - FROM I-CYCLES WHEN EXCEPTIONAL CONDITION, S7=0, IS 
RECOGNIZED. THE CONTROL WORD AT THIS ENTRY CREATES 
A VALID NEXT INSTRUCTION ADDRESS BY ENSURING THAT 
THE HIGH-ORDER BYTE IS CLEAR. 



CHECKE - 



FROM LOAD PSW ROUTINE AFTER LOADING A PSW OR AFTER 
AN EFFECTIVE BRANCH INSTRUCTION. IF THE MODE SW IS 
IN THE INSN STEP POSITION, THE CONTROL WORD AT THIS 
ENTRY TURNS ON THE INSN STEP LATCH, BB BIT 5. BB5 
IS TURNED OFF BY THE START KEY. 



RESTRH - FROM ALT ER /D I SPLAY AND INTEGRATED I/O ROUTINES. 

THIS ENTRY RESTORES CPU MODE/ZONE, PROTECT KEY, AND 
L.S. REGISTERS BEFORE TESTING FOR THE NEXT INTERRUPT 
OR REQUEST. WHEN THE MICROPROGRAM EXITS FROM BSWI 
TO HANDLE A REQUEST, A RETURN IS MADE TD THIS ENTRY 
AFTER THE REQUEST IS PROCESSED. 



DESCRIPTION 

AFTER ENTRY AT EITHER -CHECKB- OR -CHECKE- , THE TIMER 
FUNCTION IS HANDLED. WHEN THE TIMER FEATURE IS PRESENT, THE 
TIMER IN PROGRAM STORAGE IS UPDATED IF THERE IS A VALUE IN THE 
-TIM- COUNTER. THF -TIM- COUNTER IS THE INVERSE OF THE 
HARDWARE TIMING COUNTER THAT IS STEPPED BY POWER SUPPLY PULSES. 
WHEN THE TIMER VALUE IN PROGRAM STORAGE IS REDUCED THROUGH 
ZERO, AN EXTERNAL INTERRUPT IS INITIATED BY SETTING BC BIT 1. 



THE FOLLOWING NOT S7 BRANCH CONDITIONS CAUSE ENTRY TO THE BSWI 
ROUTINE. THESE CONDITIONS ARE LISTED ACCOROING TO PRIORITY OF 
TESTING. EXCEPT FOR SOFT STOP, THE MICROPROGRAM BRANCHES TO 
THE APPROPRIATE ROUTINE FOR HANDLING THE CURRENT CONDITION. 

1. INTEGRATED I/O REQUEST 

2. EXTERNAL INTERRUPT MASKED 

3. CHANNEL 1 INTERRUPT MASKED 

4. COMMUNICATIONS CHANNEL INTERRUPT 

5. MASKED CHANNEL INTERRUPT 

6. INSTRUCTION STEP LATCH 

7. SET IC LATCH 

8. SOFT STOP LATCH 

THE SOFT STOP LATCH IS SET BY ANY ONE OF THE FOLLOWING — 
INSN STEP LATCH, SET IC LATCH, ADDR MATCH, STOP SW, OR BY 
SETTING BCO. IF THE SOFT STOP LATCH IS ON WHEN TESTED, THE 
MICROPROGRAM LOOPS ON THE TESTS FOR INTEGRATED I/O REQUEST 
AND SET IC. EXIT FROM THE SOFT STOP LOOP OCCURS WHEN ONE OF 
THESE TESTS IS SUCCESSFUL OR WHEN THE SOFT STOP LATCH IS 
TURNED OFF. THE SOFT STOP LATCH IS TURNED OFF BY PRESSING THE 
START KEY, LOAD KEY f OR CSL KEY. 





881 = 1 




BB3 * 




BB6 = 


NDING 


BB7 = C 




BB2 * 




BB5 = 1 




BB4 = 1 




BBO = 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 






BSWI 


001 


T 






BSWI 


00 2 


* 






BSWI 


003 


* 






BSWI 


004 


# 






BSWI 


00 5 


* 






BSWI 


006 


* 


0446 


2FQ7 


BSWI 


00 7 


CHECKB 


0448 


3 600 


BSWI 


00 8 


CHECKE 


044A 


COCO 


BSWI 


009 • 




044C 


81AA 


BSWI 


010 




044E 


5AEF 


BSWI 


012 




0450 


1EFF 


BSWI 


013 




0452 


C4F7 


BSWI 


014 




0454 


5E09 


BSWI 


024 




0456 


6EE3 


BSWI 


025 




0458 


6EE3 


BSWI 


02 6 




045A 


6E03 


BSWI 


027 




045C 


2B55 


BSWI 


034 





NEXTSEQ 



NEXTLABEL STATEMENT 



EXCEPTIONAL CONDITION ROUTINE 
REGISTERS NOT TO BE DESTROYED 
PO - CONDITION CODE 
PI - PROG MASK AMWP BITS 
HI - HI ORDER 8 BITS OF A 24 
101- INSTRUCTION COUNTER 
H1 = 



COMMENTS 



D. L. SMITH 



ARE 



BIT BRANCH ADDRESS 



BC K=80 
S K = 0C 



CCOM 174 ST0RH1 



051 GOINA 



SET 

RST 

BAL 

H0=TIM 

H0=HO<KFF 

BR IF Z=0 

U0=H0 

H0=H0+H0 

H0=H0+H0 

HO=HO+UC 

T1=0$K50 



CREATE VALID BRANCH ADDRESS 
CONDITION INSTR STEP 

RST S4 AND S5 
STORE HI IN AUX 00F4 
READ TIMER VALUE 
INVERT VALUE 

BR IF NO VALUE IN TIMER 
CALCULATE 
VALUE 
FOR 60 
CYCLE 
READ OUT 



ADDR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E60 f 

COMMENTS 
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045E 
0460 
0462 
0464 
0466 
0468 
046A 
046C 
046E 
047C 
04 72 
0474 
0476 
0478 
047A 
2B04 
2B06 
2B08 
2 BO A 
2B0C 
2B0E 
2B10 
2B12 
2B14 
2R16 
2318 
2R1A 
2B1C 
2B1E 
2B20 
2B22 
2B24 
2B26 
2B28 
2 82 A 
2B2C 
2B60 
2B62 
2B64 
2B66 
2B68 
2B6A 
2B6C 
2B6E 
2870 
2B2E 
2B30 
2B32 
2B34 
2B36 
2B38 



5088 
52BA 
2002 
72E9 
71A9 
70A9 
42AF 
70B8 
72BA 
9248 
F5F9 
2 60 8 
AB04 
E976 
8A54 
DFE6 
2 040 
2 080 
2 406 
E990 
9F36 
EB94 
9F6 8 
2 404 
EA9A 
8782 
2482 
FAAO 
B0C4 
2 400 
2A07 
9248 
E1AB 
8178 
CIE1 
8185 
8C7A 
D1BC 
0040 
FFAF 
59BF 
1BFF 
0640 
2115 
8A00 
EBB 3 
A 21 8 
FBB7 
5 007 
EFBB 
A3F2 



BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
8SWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
B SW I 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 
BSWI 



035 
036 
037 
038 
039 
040 
042 
044 
045 
04 7 
049 
050 
051 
052 
053 
054 
058 
059 
060 
062 
064 
068 
070 
082 
086 
088 
ICO 
102 
103 
107 
108 
110 
112 
113 
114 
115 
116 
117 
118 
119 
123 
124 
129 
130 
131 
132 
134 
144 
148 
150 
151 



SOINA 
CKWAIT 

INA 

INH 



TSTPCH 
TSTTWR 

TSTPTR 

PESTRH 



NOTPI 

NOTSIO 

INB 



INC 
INE 
INF 



CCOM 



CCOM 
CCOM 

CICY 

CCOM 



182 
052 



05 4 

05 1 

BPSW 066 

119 



06 8 
ERRO 030 

08 2 
ERRQ 017 

100 
DYPE 003 

107 
OPTQ 003 



182 
114 
066 
116 
00 5 
187 
153 



BPSW 00 5 
144 

DCLT 047 
150 



RSTRKY 
CKWAIT 

INA 
GOINA 
WAIT 
INB 



TSTPCH 
ROST 
TSTTWR 
PCHST 

TSTPTR 

TWRREQ 

RESTRH 
PTRREQ 



RSTRKY 

NOTPI 

LRSTRB 

NOTSIO 

I START 

RESTRH 

IND 



132 INC 



OCHN 



152 
041 



ENTRYB 
INE 

INTENT 
INF 

ING 
ENTRY 



RDH U T + 2 
RDH V T-2 
SET S3 
V0C=V0-H0+C 
U1C=U1-T0+C 
U0C=U0-T0+C 
STP0=T0 
STH U T+2 
STH V T-2 
BAL 

IF S3=l 
BC K=40 



SET C 
DO 



CURRENT 
VALUE 
ARRY LATCH 



IF PI BIT6=0 



IF BB1 
S5 
S4 

MODE 
IF RS 



K = 30 
BIT6=0 



IF PS BIT6=0 



MODE 
IF TT 

MODE 
IF PRS 



K = 20 
BIT6=0 

K=18 
BIT7=C 



BR 

SET 

BR 

BR 

BR 

BR 

SET 

SET 

SET 

BR 

BR 

BR 

BR 

SET 

BR 

BR 

SET 

BR 

BR 

SET MODE K=00 

T0 = 

BAL 

BR IF S6=l 

BAL 

BR 

N=S 

BAL 

BR IF S5=0 

RST S5 

BR IF BB3=1 

T1=XINT 

T1 = TKKFF 

RST BC K=04 

U1=0$K10 

BR 

BR IF BB6=1 

BR 

BR IF BB7=1 

STOP 

BR IF B82=l 

BR 



IF S4=l 
BITS67 



DISAB 
S 

RESTO 
B 
T 
MAKE 
BR IF 
TO AV 
BR IF 
SET F 
FOR R 
SET R 
BR IF 
READE 
BR IF 
PUNCH 
SET 1 
BR IF 
1052 
SET 1 
BR IF 
1403 
SET C 
RST T 
RESTO 
BR IF 
RESTO 
BR IF 
RTN T 
RESTO 



ARITH 

FUNCTION 
LE STORAG 
TORE 
RESULT 
RE CPU KE 
R IF NOT 
URN ON TI 
ADDRESSAB 

NOT IN W 
OID RUNNI 

NO NATIV 
IPST TIME 
EQUEST FR 
EADER MOO 

NO READE 
R NATIVE 

NO PUNCH 

NATIVE R 
52 MODE 

NO 1052 
REQUEST 
403 PRINT 

NO PRINT 
PRINTER R 
PU MODE A 
FOR NAT 
RE CPU KE 

P, I NOT 
RE P, I 

FROM REQ 
I CYCLE 
RE CPU BY 



ON TIMER 
E PROTECT 



Y 

THRU 

MER INT 

LE 

AIT STATE 

NG METER IN WAIT 

E REQUEST 

FLAG 
OM BSWI - NOT SIO 
E 

R REQUEST 
REQUEST 

REQUEST 
EQUEST 

REQUEST 

ER MODE 
ER REQUEST 
EQUEST 
ND ZONE 
IVES 
Y 
STORED 

AND NOT SIO 
S 
TE HI 



BR IF NO EXTERNAL INT. 
READ INTERRUPT REG FOR INT 
INVERT IT 



CODE 



INTERRUPT 
FUNCTION 

BR IF NO CHAN 1 INTR. 
GO TO CHANNEL 1 

BR IF NO COMMUN. CHNL INTERRUPT 
COMMU INT WITH NO ICA INSTALLED 

BR IF NO CHAN INTR. 
GO TO BURST CH INT ROUTINE 
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AOOR WORD SEQUENCE NO. LABEL NEXTSEQ NEXTLABEL STATEMENT COMMENTS 

2B3A 0BC9 BSWI 152 I NG 168 INJ BR IF BB5=1 BR IF INSTR. STEP 

2B3C DF89 BSWI 153 I ND 059 I NH BR IF BB1=1 BR IF NATIVE REQUEST 

2B3E CBCA BSWI 162 169 INI BR IF B84=0 BR IF NOT SET IC 

2B40 2F07 BSWI 164 1-11 = GET 

2B42 508F BSWI 165 IO=SWAB NEW 

2B44 519F BSWI 166 I1=SWCD INSTR. 

2846 0602 BSWI 167 RST BC K = 10 ADOR 

2B48 AED6 BSWI 168 INJ BSTP 002 TYPADO BR BR TO TYPE THE INST COUNTER 

2B4A CFBC BSWI 169 INI 153 I NO BR IF BB0=0 CHECK FOP EXIT 

2B4C 2404 BSWI 170 SET MODE K=20 PUT IN 1052 MODE 

2B4E FFDA BSWI 171 177 INK BR IF TU3=0 ALT/DISP ACTIVE CHECK 

2B5C 3BE9 BSWI 172 T1=0-KEC T=001F, ALDP BACKUP AREA 

2B52 56AA BSWI 173 RDH D AS,T-2 READ OUT ALDP FLAG HALF WORD 

2B54 D258 RSWI 174 176 STAROK BR IF DC BIT5=0 BR IF ALDP READY TO 'START' 

2B56 88B4 BSWI 175 ALDP 271 RESET BR GO TO SET SOFT STOP & MODE 

2B58 1F2A BSWI 176 STAROK RST TA K=D2 **RST RD, WR , ALDP ACTIVE LATCHES, SH.REQ. 

2B5A 2400 BSWI 177 INK SET MODE K=OC 

2B5C E903 BSWI 178 188 I NL BR IF P16=l WAIT STATE CHECK 

2B5E 8A4C BSWI 184 BPSW 059 I NT XA BR GO CHECK ADDRESS 

2B02 8A54 BSWI 188 I NL BPSW 066 WAIT BR GO TO WAIT 

$$$$$$$$$$$$$$$$$>!(](:$$ # $$$$$$$$#$ $$ 

* CROSS REFERENCE FOR CSECT BSWI * 

BSWI 052 



BSWI 


007 


CICY 


00 7 


BSWI 


008 


BPSW 


068 


BSWI 


051 


BSWI 


014 


BSWI 


52 


BSWI 


049 


BSWI 


054 


BSWI 


051 


BSWI 


59 


BSWI 


153 


BSWI 


068 


BSWI 


062 


BSWI 


082 


BSWI 


068 


BSWI 


100 


BSWI 


086 


BSWI 


107 


ALDP 


261 


BSWI 


114 


BSWI 


112 


BSWI 


116 


BSWI 


114 


BSWI 


119 


BSWI 


05 4 


BSWI 


132 


BSWI 


119 


BSWI 


144 


BSWI 


132 


BSWI 


150 


BSWI 


144 


BSWI 


152 


BSWI 


150 


BSWI 


153 


BSWI 


117 


BSWI 


168 


BSWI 


152 


BSWI 


169 


BSWI 


162 


BSWI 


176 


BSWI 


174 


BSWI 


177 


BSWI 


171 


BSWI 


188 


BSWI 


178 



ALDP 274 BSTP C06 BSWI 102 DPTQ 021 DPTR 077 DUMP 101 DYPE 052 DYPE 088 DYPE 125 ERRQ 062 EXFR 107 



BSWI 169 



BSYS DESCRIPTIVE TEXT 



CL0AD=*E60, EC LEVEL=128266 PAGE 57 



THE SYSTEM RESET ROUTINE IS ENTERED AT LABEL * SYSRST * 
FROM THE CHECK SUM ROUTINE -BCHK-, TO INITIALIZE CERTAIN 
I/O LATCHES AND AUXILIARY STORAGE LOCATIONS. 

THIS ENTRY IS MADE AFTER EITHER THE SYSTEM RESET, LOAD, 
OR CONTROL STORAGE LOAD KEYS ARE PRESSED. 



WHEN THE 
PLACE PRIOR 

1 
2 
3 
4 
5 
6 



LOAD KEY IS PRESSED, THE FOLLOWING STEPS TAKE 
TO ENTRY AT LABEL * SYSRST * - 



A HARDWARE RESET IS PERFORMED. 

THE RESIDENT DIAGNOSTIC -BDIA- IS EXECUTED. 

THE CHECK SUM ROUTINE -BCHK- IS EXECUTED. 

-BSYS- IS ENTERED AT LABEL * SYSRST *. 

THE -DCLL- ROUTINE IS BRANCHED TO FOR IPL START. 

WHEN IPL IS COMPLETED, A BRANCH TO -BSYS- AT 

LABEL * RETURN *. 

BRANCH TO -BPSW- TO LOAD THE INITIAL PSW. 



WHEN THE SYSTEM RESET KEY IS PRESSED, THE FOLLOWING 
TAKE PLACE PRIOR TO ENTRY AT LABEL * SYSRST * - 

1 A HARDWARE RESET IS PERFORMED. 

2 THE RESIDENT DIAGNOSTIC -BDIA- IS EXECUTED. 

3 THE CHECK SUM ROUTINE -BCHK- IS EXECUTED. 

4 -BSYS- IS ENTERED AT LABEL * SYSRST *. 



WHEN THE 
STEPS PLACE PRIOR 

1 
2 
3 
4 
5 



CSL KEY IS PRESSED, THE FOLLOWING STEPS TAKE 
TO ENTRY AT LABEL * SYSRST * - 

A HARDWARE RESET IS PERFORMED. 

THE -BCPL- ROUTINE IS EXECUTED. 

THE RESIDENT DIAGNOSTIC -BDIA- IS EXECUTED. 

THE CHECK SUM ROUTINE -BCHK- IS EXECUTED. 

-BSYS- IS ENTERED AT LABEL * SYSRST *. 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



COMMENTS 



228C 
228E 
2290 
229? 
2294 
2296 
2298 
229A 
229C 
229E 
22A0 
22A2 
22A4 
22A6 
22A8 
22AA 
22AC 
22AE 
22B0 
22B2 
22B4 
22B6 
22B8 
22BA 
22BC 
22BE 
22C0 



4E42 
2460 
2607 
2 4F6 
4052 
4206 
4406 
4606 
4A06 
2D08 
2 490 
8F90 
A 044 

4 9CF 
E5A3 
2E08 
1E00 
248 2 
2 70 5 
2 67 5 

5 760 
497F 
2F00 
2400 
6EE4 
7AEA 
7AE0 



BSYS 
BSYS 
BSYS 
BSYS 
RSYS 
BSYS 
BSYS 
BSYS 
BSYS 
BSYS 
BSYS 
BSYS 
BSYS 
BSYS 
BSYS 
BSYS 
BSYS 
BSYS 
BSYS 
BSYS 
BSYS 
BSYS 
BSYS 
BSYS 
BSYS 
BSYS 
BSYS 
BSYS 



00 1 
002 
004 
00 5 
023 
024 
025 
026 
027 
028 
032 
C42 
04 3 
044 
045 
046 
047 
048 
060 
061 
063 
067 
068 
069 
070 
071 
072 
074 



SYSTEM 



SYSRST 



RESET 
RDH 



G08AL 



FILE 
FILE 



288 
344 



SET DA 
R ST ATT 



043 GOBAL 



GB K=40 
MODE K=09 



L00P1 



H DC, 9 8 
SET MODE K=06 
D0 = 

SET MODE K=3F 
RDH U DC, 9 A 
V=U 
G=U 
D=U 
T=U 
SET 
SET 
BAL 
BAL 
MS=PO 

BR IF DASI2=1 
SET FIB K=40 
RST FIB K=80 
SET MODE K=18 
D1=0$KC0 
D0=0$K70 
RDB Dl AS,D+C 
PCCL=D1 
SET PRB K=00 
SET MODE K=00 
H=H+2 

STH T AS,H-2 
STH T AS,H+0 



RD CONSTANT 00C8 INTO H REG 

SET 2 540 ZONE 

RST 2540 FLAG REG 

SET CHNL MODE AND ZONE 

RST U 



RST MULTIPLEX 
SET TO 2311 MO 
SET DEVICE ADD 
GO RST GATED A 
RESET MODULE S 
BR IF ANY MORE 
RST FILE FLAG 
CHAIN END RESE 
SET 1403 MODE- 
SET CONSTANT A 
SET PCCL CONST 
GET PCCL CONST 
SET PCCL LATCH 
RESET TO DIAGN 
SET CPU MODE A 
H=00CA 

CLEAR 1403 SEN 
ZERO OUT 1ST H 



LATCH 

DE AND ZONE 

R & SELECT MODULE 

TTENTION 

ELECT 

GATED ATTENTION 
REG. 
T 



TO 7000 £ 900 
ADDR FOR N024K 



DDR 
ANT 
ANT 

FOR 140 3 
OSTIC DECODE 1 
ND ZONE 

SE AND STATUS 
ALFWORD OF THE 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CLOAD=*E60, 

COMMENTS 
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22C2 


2F1D 


BSYS 


075 








H1=H1+K10 


NATIVE DEVICES' UCW 


22C4 


F4C0 


BSYS 


076 




074 


L00P1 


BR IF AC=0 


(IN 00C8, 00D8 t 0CE8, 00F8) 


22C6 


2F91 


BSYS 


077 








Hl=0-K09 


H=00F6 


22C8 


7AEA 


BSYS 


078 








STH T AS,H-2 


CLEAR 1052 SENSE BYTE 


22CA 


2 El 5 


B SYS 


093 








H0=C$K10 


H=10F4 


22 CC 


7AEA 


BSYS 


094 








STH T AS»H-2 


RST PCH INDICATORS & SENSE BYTE 


22CF 


7AEA 


BSYS 


095 








STH T AStH-2 


RST PCH OLD STACKER SELECT 


22D0 


7AE0 


BSYS 


096 








STH T AS,H+0 


RST RDR INDICATORS K SENSE BYTE 


2202 


7A3 2 


BSYS 


115 








STH T DA,8E **RST 


STATUS/ACT BYTE FOR CHNL 1 OR 2311 


22D4 


7A52 


BSYS 


117 








STH T DA,9A 


RST 2311 SENSE HALF WORD 1 


22D6 


7A62 


3SYS 


118 








STH T DA,9C 


RST 2311 SENSE HALF WORD 2 


2208 


40A6 


RSYS 


173 








U = T 




22DA 


3212 


BSYS 


174 








SET MMSK K = 91 


SET MCH CK TRAP BIT, STOP IF ERR 


22DC 


1210 


BSYS 


175 








RST MMSK K = 81 


RST SYS RST BIT TO ALLOW TRAPS 


22DE 


20A0 


BSYS 


176 








SET S K=OA 




22 EC 


C3F4 


BSYS 


177 




179 


SYSTEM 


BR IF BA4=0 


BR IF NOT IPL 


22E2 


B390 


BSYS 


178 




DCLL 00 2 


IPL 


BR 




22F4 


E8EE 


BSYS 


179 


SYSTEM 


184 


RESPSW 


BR IF DR6=0 


BR IF NOT PSW RESTART 


22 E 6 


C62C 


BSYS 


180 


RETURN 






RST BC K=62 




22E8 


1212 


BSYS 


181 








RST MMSK K=91 




22EA 


405 2 


RSYS 


182 








RDH U DC, 9 A 


ZERO OUT U REG 


22EC 


8 42 6 


BSYS 


183 




BPSW 024 


LPSW 


BR 




22EE 


162C 


BSYS 


184 


RESPSW 






RST BC K=E2 


SET STOP, RST CSL,RST SYS, RST IPL 


22F0 


1212 


BSYS 


185 








RST MMSK K-91 


RST TRAP 


22F2 


5C82 


RSYS 


186 








RDH P DA,A8 


LOAD 


22F4 


44CF 


BSYS 


187 








SM=PO 


UP 


22F6 


420F 


BSYS 


188 








STP0=P1 


THE 


22F8 


4852 


BSYS 


189 








RDH I DC,9A 


LAST 


22FA 


5CC2 


BSYS 


190 








RDH P DA,B8 


PSW 


22FC 


2F0 7 


BSYS 


191 








H1 = 


ZERO HIGH ORDER ADDR 


22FE 


8A40 


BSYS 
BSYS 


192 
193 


ATABLE 


BPSW 039 

ADDR=00B4 


NOT 


BR 




00B4 


OEOC 


BSYS 
BSYS 
BSYS 


196 

20 6 
207 


C 

AEND 

ATABLE 


A0DR=00F4 




XAUX'CEOCODIF' 




00F4 


C090 


RSYS 
BSYS 
BSYS 


209 
215 
216 


C 

AENO 

ATABLE 


ADDR=0004 




XAUX'OOgO 1 




0004 


C090 


BSYS 

BSYS 


218 
222 


C 
AEND 






XAUX'0090' 





* CROSS REFERENCE FOR CSECT BSYS * 



BSYS 


002 


BCHK 


104 


BSYS 


043 


BSYS 


046 


BSYS 


074 


BSYS 


C76 


BSYS 


179 


BSYS 


177 


BSYS 


180 


DCLL 


045 


BSYS 


184 


BSYS 


179 



BWRP DESCRIPTIVE TEXT 

ENTRY POINT 

THIS ROUTINE IS ENTERED WHEN A TRAP ADDRESS OF 0210 IS 
FORCED BY — 

1. STORAGE PROTECT VIOLATION. PROTECT KEYS DO NOT MATCH. 

2. STORAGE WRAP VIOLATION. THIS OCCURS WHEN A PROGRAM STORAGE 
ADDRESS THAT EXCEEDS THE SYSTEM SIZE IS ENCOUNTERED. 



AFTER 
BIT IS S 
STORAGE 
THE ROUT 
FOR FILE 
BRANCHES 
FOR THE 
CHECK OR 
APPROPRI 



THE UNCONDITI 
ET TO i FOR A 
PROTECT VIOLA 
INE DETERMINE 
, COMMUNICATI 

TO THE APPRO 
INTEGRATED 1/ 

PROGRAM CHEC 
ATE UCW, THEN 



CL0AD=*E60, EC LEVEL=1282 
ONAL BRANCH, DYN BIT 1 IS 

STORAGE WRAP VIOLATION. 
TION HAS OCCURRED. FOR EI 
S THE MODE BY TESTING BA B 
ONS, OR CHANNEL MODES, THE 
PRIATE ROUTINE TO ATTEMPT 
UNITS REMAINING, EITHER 
K IS SET IN THE CHANNEL ST 

THE INTERRUPT IS ATTEMPTE 



66 PAGE 59 
TESTED. THIS 
IF DYN1 = 0, A 
THER VIOLATION, 
ITS 1,2, AND 3. 

MICROPROGRAM 
THE INTERRUPT. 
PROTECTION 
ATUS OF THE 
D. 



SYSTEM SIZE 
16K 
24K 
32K 
48K 



PROG STOR ADDR RANGE 
0000 - 3FFF 
0000 - 5FFF 
0000 - 7FFF 
0000 - BFFF 



DESCRIPTION 



THE UNCO 
STORES T 
I-REG BA 
FROM DYN 
IN I -CYC 
ADDRESS 
LATER IN 
1 TO POI 
THIS CON 
INSTRUCT 
DONE IN 
PENDING 



NDITIONA 
HE ADDRE 
CKUP, I. 

BIT 3. 
LES, THE 
OF THE T 

THE ROU 
NT TO TH 
TROL WGR 
ION WAS 
ORDER TO 
INTERRUP 



L BRANC 

SS +2 

E., ZON 

IF THE 

ADORES 

RAPPED 

TINE, T 

F CONTR 

D IS US 

BE ING R 

SET UP 

T. 



H WOR 
F THE 
E 4. 

TRAP 
S STO 
WORD 
HIS 8 
OL WO 
ED TO 
EAD W 

THE 



D AT TH 

TRAPPE 

BIT 7 

OCCURS 

RED IN 

+3 BECA 

ACKUP A 

RD THAT 

DETERM 

HEN THE 

NECESSA 



E START 
D WORD IN 
OF THE I- 

OURING I 
THE BACKU 
USE DYN B 
DDRESS IS 

FOLLOWS 
INE WHICH 

TRAP OCC 
RY REG I ST 



F THE ROUTINE 

BITS 2-6 OF THE 
REG BACKUP IS SET 
NSTRUCTION READOUT 
P I-REG IS THE 
IT 3 IS SET TO 1 

DECREMENTED BY 
THE TRAPPED WORD. 

HALFWORD OF THE 
URRED. THIS IS 
ERS FOR THE 



WHEN A STORAGE PROTECT VIOLATION IN CPU MODE OCCURS, THE 
PROTECTION ERROR IS FLAGGED, AND THE PROGRAM INTERRUPT IS 
INITIATED. 

WHEN A STORAGE WRAP VIOLATION IN CPU MODE OCCURS, TESTS ARE 
MADE TO DETERMINE IF THE WRAP OCCURRED DURING INSTRUCTION 
READOUT, AS PREVIOUSLY STATED. FOR ANY STORAGE WRAP VIOLATION 
IN CPU MODE, THE ROUTINE EXITS TO FLAG THE ADDRESS ERROR AND 
INITIATE THE INTERRUPT. 



ADDR 



WORD SFOUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



COMMENTS 







BWRP 


001 


T 




WRAP 


TRAP AND S 


TORAGE 






BWRP 


002 


* 
















BWRP 


003 


* 
















BWRP 


004 


* 
















BWRP 


005 


* 
















BWRP 


006 


* 
















BWRP 


007 


ATABLE 


ADDR=0210 






0210 


8 87C 


BWRP 
BWRP 


008 
009 


AEND 






Oil 


NXTADR 


BR 


087C 


D4FA 


3WRP 


Oil 


NXTADR 






050 


PROTCK 


BR IF DYN1=0 


08 7 E 


979D 


B WR P 


012 








016 


STRG N 


N=BA BITS123 


0E8C 


F790 


BWRP 


016 


STRG 







08 3 


ADDRCK 


BR IF BA3=0 


0E82 


96B4 


BWRP 


018 


STRG 


I 


FILT 


09 5 


WRAP 


BR 


0E84 


8F64 


BWRP 


024 


STRG 


2 


ERRQ 


086 


RPHUCW 


BAL 


0E86 


904A 


BWRP 


030 


STRG 


3 




140 


WRAP 


BR 


0E88 


904A 


BWRP 


032 


STRG 


4 




140 


WRAP 


BR 


0E8A 


500 7 


BWRP 


040 


STRG 


5 








STOP ** 


0E8C 


9 04 A 


B WR P 


042 


STRG 


6 




140 


WRAP 


BR 


0E8E 


B490 


BWRP 


046 


STRG 


7 


DCLR 


134 


WRAP 


BR 


087A 


9 7F5 


BWRP 


050 


PROTCK 






051 


PRT N 


N=BA BITS123 



D. L. SMITH 



WRAP 



SAVE BACKUP ADDR IF IN CPU MODE 



BR IF STORAGE PROTECT 
FIND THE MODE CAUSING 



2311 MODE 
SET D TO 00E8 
1403 MODE 
1052 MODE 
IN ICA MODE W ITH NO 
2540 READER WRAP 
CHANNEL 



WRAP TRAP 



ICA INSTALLED 



FIND THE MODE CAUSING THE PROT. 























CL0AD=*E60, EC LEVEL 


ADDR 


WORD 


SEQUENC 


:e no. 


LABEL 




NEXTSEQ 


NEXTLABEL 


STATEMENT 


COMMENTS 


OAEO 


9074 


BWRP 


051 


PRT 







124 


CPUPRT 


BR 


CPU MODE 


OAE2 


96B0 


3WRP 


053 


PRT 


1 


FILT 


09 3 


PRTCHK 


BR 


2311 MODE 


OAE4 


B1FC 


BWRP 


057 


PRT 


2 




133 


PROTEC 


BR 


2540 PUNCH PROTECT CK 


0AE6 


B1FC 


BWRP 


061 


PRT 


3 




133 


PROTEC 


BR 


1403 MODE 


OAE8 


P1FC 


BWRP 


065 


PRT 


4 




133 


PROTEC 


BR 


1052 MODE 


OAEA 


5007 


3WRP 


073 


PRT 


5 








STOP ** PROT 


CK IN ICA MODE WITH NO ICA INSTALLED 


OAEC 


B1FC 


BWR P 


075 


PRT 


6 




133 


PROTEC 


BR 


2540 READER PROTECT CK 


OAEE 


9806 


BWRP 


079 


PRT 


7 


DCLR 


136 


PROTCH 


BR 


CHANNEL 


0E90 


2 AG 7 


BWRP 


083 


ADDRCK 










T0 = 




0E92 


E1BC 


BWRP 


091 








121 


NXTO 


BR IF S6=0 




OE94 


244C 


B WR P 


093 












SET MODE K=04 


PUT IN BACKUP ZONE 


0E96 


7 8F2 


B WR P 


094 












STH I DA, BE 


SAVE ADDRESS STORED 


0E98 


2400 


BWRP 


095 












SET MODE K=00 


PUT BACK IN CPU ZONE 


0E9A 


5 6F2 


BWRP 


096 












RDH D DA, BE 


GET ADDRESS IN TO WORK ON 


OE9C 


16C5 


BWRP 


097 












DO=DO*-KCO 




OE9E 


3 71B 


BWPP 


09 8 












01= 01 -KOI 




OEAO 


4660 


BWRP 


099 












RDH D CS,D 


READ CONTROL WORD FOLLOWING 


OEA2 


C6BD 


BWRP 


100 












Z=DO<KBO 


CHECK 


0EA4 


EOAC 


B WR P 


101 








106 


NJXB 


BR IF HZNZ 


FOR 


0EA6 


C64B 


BWRP 


10 2 












Z=DQ<KC4 


FIRST 


OEA8 


FOAC 


BWRP 


10 3 








106 


NJXB 


BR fF LZNZ 


INSTRUCTION 


OEAA 


F339 


BWRP 


104 








119 


NXTC 


BR IF D17=l 


READOUT 


OEAC 


8CO 


BWRP 


106 


NJXB 










Z=IO<KCO 


CHECK ADDRESS 


OEAE 


C4BA 


BWPP 


114 








120 


NXTB 


BR IF ZNZ 


DURING INSTRUCTION 


OEBO 


092B 


BWRP 


115 












Z = I KK02 


READOUT 


OEB2 


C4BA 


BWRP 


116 








120 


NXTB 


BR IF ZNZ 




0EB4 


E23B 


BWRP 


117 








120 


NXTB 


BR IF 00 6=1 


BR IF THIRD READOUT FAILED 


0EB6 


6886 


BWRP 


118 












1 = 1-2 


BUILD IT AS AN RR OP FLAGGED 


OEB8 


4452 


BWRP 


119 


NXTC 










RDH G 0C»9A 


RESET ILC CODE AND Gl REG 


OFBA 


AA20 


BWRP 


120 


NXTB 




CICY 


056 


AOOERR C 


BR 




OEBC 


8176 


BWRP 


121 


NXTD 




CCOM 


06 5 


LRSTRA 


BAL 


RESTORE LOCAL STORAGE REGS 


0E8E 


AA20 


BWRP 


122 






CICY 


056 


ADD ERR 


BR 




1D74 


E 1F9 


BWRP 


124 


CPU PRT 






126 


NOSAVE 


BR IF S6=l 


RESTORE REGISTERS 


1D76 


817 4 


BWRP 


125 






CCOM 


064 


LRSTR 


BAL 


IF S6 IS ON 


1D78 


2A07 


BWRP 


126 


NOSAVE 










T0 = 


FLAG 


1D7A 


2B4 3 


BWRP 


127 












T1=0*K04 


PROTECTION 


107C 


2FQ7 


BWRP 


128 












H1 = 


ERROR 


1D7E 


89FE 


BWRP 


129 






BPSW 


004 


PROGA 


BR 








BWRP 


130 


* 










3^c^£^c5$:^c^c3§c3jc^c)5c^c3$c3$es^ 3$c3jc^# lfcafc j£ ^5^^^3^^t^c^^c)^^c^e^c:3$C36:^e^ca^^c3$c^c^:a§6 35c^c 






BWRP 


131 


* 










NATIVE I/O WRAP 


AND PROTECT 






BWRP 


132 


* 










^^^^^^3^^^^^^^^^^a^^^^^^^^^^^^^^^^^^^^^3^^^)jc^rjjc 


31FC 


2B95 


BWRP 


133 


PROTEC 










T1=0$K90 


SET PROTECT CHK £> SECONDARY 


31FE 


904C 


BWRP 


134 








142 


WRORPR 


BR 




1G4A 


2BA5 


B WR P 


140 


WRAP 










T1=0$KA0 


SET PROGRAM CHK E SECONDARY 


104C 


2607 


BWRP 


142 


WRORPR 










D0=0 


FIX DO FOR 2540 


1Q4E 


8F78 


BWRP 


146 






ERRQ 


081 


RDSTCH 


BAL 


READ CHNL STATUS 


1050 


64B5 


BWRP 


147 












G0=G0$T1 


OR IN PROGRAM CHK OR PROTECT CH 


1052 


2 543 


BWRP 


148 












G1=0$KC4 


RESET CHAINING — KEEP ACTIVE ON 


1054 


2 EC 3 


BWRP 


149 












H0=0$K0C 


SET CH END DEV END UNIT STATUS 


1056 


8761 


BWRP 


150 








152 


WHICHN N 


N=D1 BITS23 


BREAK OUT NATIVES 


1060 


806 8 


BWRP 


152 


WHICHN 





OPTR 


075 


TAKEIN 


BR 


1403 * TRY 
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ADDR WORD SEQUENCE NO. LABEL NEXTSEQ NEXTLABEL STATEMENT COMMENTS 

1062 B01E BWRP 156 WHICHN 1 DCLR 052 NTYPE BR 2540 READER * TO 

1064 B01E BWRP 157 WHICHN 2 DCLR 052 NTYPE BR 2540 PUNCH * CAUSE INT 

1066 8792 BWRP 162 WHICHN 3 DYPE Oil NOATEN BR 1052 CAUSE INTERUPT 

* CROSS REFERENCE FOR CSECT BWRP * 



8WRP 


Oil 


BWRP 


00 8 










BWRP 


016 


BWRP 


012 










BWRP 


050 


BWRP 


Oil 










BWRP 


051 


BWRP 


050 










BWRP 


083 


BWRP 


016 










BWRP 


106 


BWRP 


101 


BWRP 


103 






BWRP 


119 


BWRP 


104 










BWRP 


120 


BWRP 


114 


BWRP 


116 


BWRP 


117 


BWRP 


121 


BWRP 


091 










BWRP 


124 


BWRP 


051 










BWRP 


126 


BWRP 


124 










BWRP 


133 


BWRP 


057 


BWRP 


061 


BWRP 


065 


BWRP 


140 


BWRP 


030 


BWRP 


032 


BWRP 


042 


BWPP 


142 


BWRP 


134 










BWRP 


152 


BWRP 


150 











BWRP 075 



CBIN DESCRIPTION 



OBJECTIVES 
ADO 





• 4 




INS 


rRUCTION FORMAT 


ENTRY 


OPERATION 


. BYTE 1 


. BYTE 2 . 


. BYTE 3 , 


. BYTE 4 


RR0P19 


. COMPARE 


19 


. # — — <— -.- 

. Rl 


R2 . 






RROP1A 


. ADD 


1A 


. Rl 


R2 






RROPIB 


. SUBTRACT 


IB 


. Rl 


R2 . 






RROPIE 


. ADD LOGICAL 


IE 


. Rl 


R2 , 






RROP1F 


. SUBTRACT LOGICAL . 


IF 


. Rl 


R2 . 






RX0P49 


. COMPARE HALFWORD , 


49 


. Rl 


X2 , 


. B2 D2 , 


02 


RX0P4A 


. ADD HALFWORD 


4A 


. Rl 


X2 . 


, B2 D2 


D2 


RX0P4B 


. SUBTRACT HALFWORD. 


48 


. Rl 


X2 , 


. 82 D2 


02 


RX0P59 


. COMPARE 


59 


. Rl 


X2 . 


. B2 02 , 


02 


RX0P5A 


. ADD 


5A 


. Rl 


X2 . 


, B2 D2 


D2 


RXOP5B 


. SUBTRACT 


5B 


. Rl 


X2 . 


. 32 D2 « 


02 


RXOP5E 


. ADD LOGICAL 


5E 


. Rl 


X2 . 


. 32 02 , 


02 


RXOP5F 


. SUBTRACT LOGICAL , 


5F 


. Rl 


X2 . 


. B2 D2 . 


02 
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- THE SECOND OPERAND IS ADDED TO THE FIRST 
OPERAND, AND THE SUM IS PLACED IN THE FIRST 
OPERAND LOCATION. 



ADD LOGICAL - SAME AS ADO. THE CONDITION CODES DIFFER. 



SUBTRACT 

SUBT. LOG, 
COMPARE 



THE SECOND OPERAND IS SUBTRACTED FROM THE 
FIRST OPERAND, AND THE DIFFERANCE IS PLACED 
IN THE FIRST OPERAND LOCATION. 



- SAME AS SUBT, 



THE CONDITION CODES DIFFER 



- THE FIRST OPERAND IS COMPARED WITH THE 
SECOND OPERAND, AND THE RESULT DETERMINES 
THE CONDITION CODE. THE COMPARE IS DONE BY 
COMPLEMENT ADDING THE OPERANDS. 



GENERAL OBJECTIVES 

1. FETCH OPERANDS 

2. ADD OR COMPLEMENT ADD OPERANDS 

3. SET CONDITION CODE 

4. RETURN TO I-CYCLES 



ADDR 


WORD 


SFQUFNC 


;e no. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 






CBIN 


OCl 


T 


BINARY ADD AND 


SUB COMP 






C3IN 


002 


# 














CBIN 


003 


* 














CBIN 


004 


* 










14C2 


B270 


CBIN 


00 5 


RR0P19 


CCOM 


03 6 


CRGET 


BAL 


14C4 


A 05 4 


CBIN 
CBIN 


006 
007 


* 




009 


CXCOMP 


BR 


2D5? 


B3F6 


CBIN 


008 


RX0P59 


CCOM 


045 


CXGET 


BAL 


2054 


B460 


CBIN 


00 9 


CXCOMP 


CCOM 


086 


CSLOQP 


BAL 


2056 


E4DA 


CBIN 


010 






012 


OVER 


BR IF NOVFL 


2D58 


168D 


CBIN 


Oil 










D0=D0<K80 


2D5A 


F5CE 


CBIN 


012 


OVER 




061 


CONDCO 


BR IF S2=0 


2D5C 


C63B 


C8IN 


013 






064 


CON DC 1 


BR IF D00=1 


2D5E 


2C25 


CBIN 


014 










P0=0$K20 


2D60 


8185 


CBIN 

CBIN 
CBIN 


015 
016 
017 


* 
* 


CICY 


00 5 


I START N 


N = S BITS67 


23EE 


AE06 


CBIN 


018 


RX0P49 


CCOM 


012 


CXGETH 


BAL 


23F0 


AD54 


CBIN 
CBIN 
CBIN 


019 
020 
021 


* 
* 




009 


CXCOMP 


BR 


24FC 


8270 


CBIN 


022 


RR0P1A 


CCOM 


03 6 


CRGET 


BAL 


24FE 


AC1A 


CBIN 
CBIN 
CBIN 


023 
024 
025 


* 

* 




02 7 


CXADD 


BR 


2C18 


B3F6 


CBIN 


026 


RX0P5A 


CCOM 


045 


CXGET 


BAL 



COMMENTS 



** RR 



** RX 



** RX 



** RR 



COMPARE 

FETCH OPERANDS 

GO COMPLEMENT ADD OPERANDS 
COMPARE 

FETCH OPERANDS 

COMPLEMENT ADD OPERANDS 

BR IF NO OVERFLOW 

INVERT SIGN 

BR IF RESULT ZERO — EQUAL 

BR IF RESULT IS MINUS — A-LOW 

SET CONDITION CQOE 2 — A-HIGH 

RETURN TO I-CYCLES 

COMPARE HALFWORD 

FETCH OPERANDS, EXTEND SIGN 
GO COMPLEMENT ADD OPERANDS 

ADD 

FETCH OPERANDS 
GO ADD OPERANDS 



** RX ADD 

FETCH OPERANDS 



ADDR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CLOAD=*E60, 

COMMENTS 
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2C1A 
2C1C 
2C1E 
2C2C 
2C22 



08EB 
08EA 



277C 
277E 



OBDA 
08DC 
OBOE 



169C 
169E 



2F78 
2E7A 



2D42 
2044 
2D46 
2048 
2 04 A 
2D4C 
204E 
20 50 
2D38 
2D3A 
2D3C 
203E 
2040 
2034 
2036 



2078 

207 A 



0E7A 
0E7C 



B462 
E4BD 
E5B0 
C62 5 
AC46 



AE06 
AC1A 



B270 

880C 



8 3F6 
B460 
AC1C 



AE06 
88DC 



8 270 
A 044 



B3F6 
B46 2 
76A8 
7EAA 
E5B9 
F5B5 
2C07 
8185 
F5BF 
2C55 
8185 
2C75 
8185 
2C25 
8185 



8 27C 
8E7C 



83F6 
B460 



CBIN 
CBIN 
CBIN 
C3IN 
CBIN 
CBIN 
CBIN 
CBIN 
CBIN 
CBIN 
CBIN 
CBIN 
CBIN 
CBIN 
CBIN 
CBIN 
C3IN 
C B I M 
CBIN 
CBIN 
CBIN 
CBIN 
CBIN 
CBIN 
CBIN 
CBIN 
CBIN 
CBIN 
CBIN 
CBIN 
CBIN 
CBIN 
CBIN 
CBIN 
CBIN 
CBIN 
C3IN 
CBIN 
CBIN 
CBIN 
CBIN 
CBIN 
CBIN 
CBIN 
CBIN 
CBIN 
CBIN 
CBIN 
CBIN 
CBIN 
CBIN 



027 

028 
029 
030 
031 
032 

03 3 
034 
035 
036 
037 
038 
039 
040 
041 
042 

04 3 
044 
045 
046 
047 
048 
049 
050 
51 
052 
053 
054 
055 

05 6 
057 
058 
059 
060 
061 

06 2 
063 
064 
065 
066 
067 
068 
069 
070 
071 
072 
073 
074 
075 
076 
077 



CXAOD 
CAC1BC 

CCCHK 



* 



RX0P4A 



* 



RR0P1B 






RX0P5B 
CXSUB 



* 

* 



RX0P4B 



* 

* 



RR0P1E 



* 



RX0P5E 
CXAODL 
S2S3CK 



CONOCO 

NONZER 
CON0C1 

NZCARY 

ZRCARY 



* 



RR0P1F 



# 



RX0P5F 
CXSUBL 



CCOM 087 
CLST 009 
CLST 034 
CLST 036 
CLST 024 



CCOM 012 
027 



CCOM 036 
04 3 



CCOM 045 

CCOM 086 

02 8 



CCOM 012 
043 



CCOM 03 6 
056 



CCOM 045 
CCOM 08 7 



063 
06 8 

CICY 00 5 
06 6 

CICY 005 

CICY 00 5 

CICY 005 



CCOM 03 6 
07 7 



CCOM 045 
CCOM 086 



CXLOOP 
QVCHEK 
NEGCCO 
NEGCC1 
TESCC2 



CXGETH 
CXAOD 



CRGET 
CXSUB 



CXGET 
C SLOOP 
CAC1BC 



CXGETH 
CXSUB 



CRGET 
CXADDL 



CXGET 
CXLOOP 



NONZER 
ZRCARY 

I START N 
NZCARY 

I START N 

I START N 

I START N 



CRGET 
CXSUBL 



CXGET 
C SL 00 P 



BAL 

BR IF OVFL 
BR IF S2=0 
BR IF 000=1 

BR 



BAL 

BR 



BAL 
BR 



BAL 
BAL 

BR 



BAL 
BR 



BAL 
BR 



BAL 

BAL 

STH D AStT+2 

STH H AS,T-2 

BR IF S2=l 

BR IF S3=l 

P0=0 

N=S BITS67 

BR IF S3=l 

PO=0$K50 

N=S BITS67 

P0=0$K70 

N=S BITS67 

P0=0$K20 

N=S BITS67 



BAL 

BR 



BAL 
BAL 



ADD OPERANDS 

BR IF OVERFLOW TO SET CC3 
BR IF ZERO RESULT TO SET CCO 
BR IF NEG SIGN TO SET CC1 
BR TO SET CONDITION CODE 2 

** RX ADD HALFWORD 

FETCH OPERANDS 
GO ADD OPERANDS 

** RR SUBTRACT 

FETCH OPERANDS 

GO COMPLEMENT ADD OPERANDS 

** RX SUBTRACT 

FETCH OPERANDS 
COMPLEMENT ADD OPERANDS 
GO TEST FOP CONDITION CODE 

** RX SUBTRACT HALFWORD 
FETCH OPERANDS 
GO COMPLEMENT ADD OPERANDS 

** RR ADD LOGICAL 

FETCH OPERANDS 
GO ADD OPERANDS 



** RX ADD LOGICAL 
FETCH OPER 
GO ADD OPE 
PUT RESULT 
FIRST OP 
BR IF RESU 
BR IF O-BI 
SET CONDIT 
RETURN TO 
BR IF ZERO 
SET CONDIT 
RETURN TO 
SET CONDIT 
RETURN TO 
SET CONDIT 
RETURN TO 



ANOS 
RANDS 

IN 
ERAND LOCATION 
LT NOT ZERO 
T CARRY 
ION CODE C 
I-CYCLES 
-BIT CARRY 
ION CODE 1 
I-CYCLES 
ION COOE 3 
I-CYCLES 
ION COOE 2 
I-CYCLES 



** RR SUBTRACT LOGICAL 
FETCH OPERANDS 
GO COMPLEMENT ADD OPERANDS 

** RX SUBTRACT LOGICAL 
FETCH OPERANDS 
COMPLEMENT ADD OPERANDS 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CLOAD=*E60, 

COMMENTS 
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0E7E 



AD46 



CBIN 078 



CBIN 


005 


CICY 


178 


CBIN 


008 


CICY 


210 


CBIN 


009 


CBIN 


006 


CBIN 


012 


CBIN 


010 


CBIN 


018 


CICY 


194 


C8IN 


22 


CICY 


179 


CBIN 


026 


CICY 


211 


CBIN 


027 


CBIN 


02 3 


CBIN 


28 


CBIN 


04 A 


CBIN 


034 


CICY 


195 


CBIN 


038 


CICY 


1R0 


CBIN 


042 


CICY 


212 


CBIN 


043 


CBIN 


03 9 


CBIN 


047 


CICY 


196 


CBIN 


051 


CICY 


183 


CBIN 


055 


CICY 


215 


CBIN 


056 


CBIN 


052 


CBIN 


057 


CBIN 


078 


CBIN 


061 


CBIN 


012 


CBIN 


063 


CBIN 


05 9 


CBIN 


064 


CBIN 


013 


CBIN 


066 


CBIN 


063 


CBIN 


068 


CBIN 


060 


CBIN 


072 


CICY 


184 


CBIN 


076 


CICY 


216 


CBIN 


077 


CBIN 


073 



057 S2S3CK BR GO STORE 

********************* ************* 

* CROSS REFERENCE FOR CSECT CBIN * 
********************************** 



RESULT & SET COND CODE 



CBIN 019 



CBIN 035 



CBIN 048 



CBRC DESCRIPTION! 



BRANCH INSTRUCTIONS 
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OBJECTIVES CONTINUED 



• • * 




INSTRUCTION FORMAT 


. ENTRY . OPERATION 


. BYTE 1 


. BYTE 2 , 


. BYTE 3 . 


. BYTE 4 . 


. RROP05 . BRANCH AND LINK . 


05 


. Rl R2 , 






. RR0P06 . BRANCH ON COUNT . 


06 


. Rl R2 . 






. RROPOT . BR ON CONDITION . 


07 


. Ml R2 . 






. RX0P44 . EXECUTE 


44 


. Rl X2 « 


. B2 D2 . 


. ' 02 


. RXOP45 . BRANCH AND LINK , 


45 


. Rl X2 . 


. 82 D2 . 


02 


. RX0P46 . BRANCH ON COUNT . 


46 


. Rl X2 . 


. B2 02 . 


D2 


. RX0P47 . BR ON CONDITION , 


47 


. Ml X2 , 


. B2 D2 . 


D2 


. RSOP86 . BR ON INDEX HIGH . 


86 


. Rl R3 , 


, B2 D2 . 


D2 


. RS0P86 . BRANCH ON INDEX , 


87 


. Rl R3 , 


. B2 D2 , 


D2 


LOW OR EQUAL 




• 4 







BR ON CONDITION - 



EXECUTE 



IF CONDITION CODE AND MASK MATCH, BRANCH 
TO DEVELOPED ADDRESS. 

NOTE - THE CONDITION CODE IN LS REG PO 
IS CODED AS FOLLOWS. 



COND CODE 


PO HIGH 








i 


5 


2 


2 


3 


7 



- BITS 8-15 OF THE SUBJECT INSTRUCTION ARE 
MODIFIED BY OR-ING THEM WITH BYTE 3 OF 
Rl. THEN THE MODIFIED INSTRUCTION IS 
EXECUTED. THE SUBJECT INSTRUCTION IS 
LOCATED AT THE 2ND OPERAND EFFECTIVE 
ADDRESS. 



BR ON INDEX HIGH- 



OBJECTIVES 

BRANCH AND LINK 



STORE THE UPDATED RIGHTMOST 32 BITS OF THE 
CURRENT PSW, AND SET THE BRANCH ADDRESS 
INTO THE INSTRUCTION COUNTER. 



BRANCH ON COUNT - BRANCH TO DEVELOPED ADDRESS, EACH TIME, 

UNTIL SUM IN Rl EQUALS ZERO. EACH TIME 
THROUGH, SUBTRACT 1 FROM VALUE IN Rl. 



BRANCH 
LOW 



ON 
OR 



INDEX 
EQUAL - 



ADD THE CONTENTS OF R3 TO Rl. COMPARE 
THIS SUM TO THE CONTENTS OF R3, OR R3 
PLUS 1 IF R3 IS EVEN. IF COMPARE IS 
HIGH, BRANCH TO THE EFFECTIVE SECOND 

OPERAND ADDRESS. 



SAME AS BRANCH ON INDEX HIGH, EXCEPT 
THE BRANCH IS ON LOW OR EQUAL COMPARE. 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 








CBRC 


001 


T 








CBRC 


002 


* 








CBRC 


003 


* 








CBRC 


004 


* 




293A 


5 5B3 


CBRC 


0C5 


RROP07 




293C 


C48 3 


C BR C 


006 






293E 


5EA8 


CBRC 


007 






2940 


50AC 


CBRC 


008 










CBRC 


009 


* 








CBRC 


010 


* 




2942 


9C03 


CBRC 


Oil 


RX0P47 




2900 


C50 7 


CBRC 


012 


LEG 





290 2 


8185 


CBRC 


013 


LEG 


1 


2904 


E502 


CBRC 


014 


LEG 


2 


2906 


4 806 


CBRC 


015 


LEG 


3 


2908 


8A48 


CBRC 


016 


LEG 


4 


290 A 


507 


CBRC 


017 


LEG 


5 


290C 


8185 


C 3R C 


018 


LEG 


6 


290E 


F507 


CBRC 


019 


LEG 


7 


2910 


8185 


CBRC 


020 







NEXTSEQ 



NEXTLABEL STATEMENT 



COMMENTS 



BRANCH INSTRUCTIONS 



BRANCH CONOITION 



013 LEG 



CICY 



BPSW 



CICY 



CICY 



012 
015 
00 5 
013 

054 
015 
00 5 
015 
005 



LEG 
LEG 
I START 

LEG 

I NT BR 

LEG 

I START 

LEG 

I START 



3 
N 
3 

N 



RR 

T1=G1XH 
BR IF Z=0 
RDH H AS,T+2 
RDH U AS,T+Q 



BRANCH CONDITION RX 



N=PO BITS123 

BR IF G10=l 

N=S BITS67 

BR IF G12=0 

I=U 

BR 

BR IF Gll=l 

N=S BITS67 

BR IF G13=l 

N=S BITS67 



D. L. SMITH 



EXECUTION 
OF 
RR 
BCR 



EXECUTION 
OF 
RX AND 
RR 
BRANCH 
CONDITION 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 
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COMMENTS 







CBRC 


021 


* 
















CBRC 


022 


* 


BRANCH 


AND LINK 


RR 


2912 


C040 


C BR C 


023 


RROP05 










RST S5 


2914 


55B3 


CBRC 


024 












TI=G1XH 


2916 


C49F 


CBRC 


025 






03 2 


0P45A 




BR IF Z=0 


2918 


5EA8 


CBRC 


026 












RDH H AStT+2 


291A 


50A0 


CBRC 
CBRC 
CBRC 


027 
02 8 
029 


* 










RDH U AS,T 






CBRC 


030 


* 


BRANCH 


AND LINK 


RX 


291C 


2C4C 


CBRC 


031 


RX0P45 










SET S5 


291E 


5C2B 


CBRC 


03 2 


0P45A 










V0=P0H 


2920 


3 24 5 


CBRC 


03 3 












V0=VC$K40 


2922 


E1B6 


CBRC 


034 






044 


EXECUT 




BR IF S6=0 


2924 


42 8 


CBRC 


035 






03 7 


0P4 58 




BR IF GO 1=0 


2926 


2240 


CBRC 


036 


0P45C 










V0=V0+K4C 


2928 


402 5 


CBRC 


03 7 


0P45B 










V0=P1XLSV0H 


292A 


2 307 


C BR C 


03 8 












Vi = 


29 2 C 


55BB 


CBRC 


03 9 












T1 = G1H 


292E 


72A8 


CBRC 


040 












STH V AS,T+2 


2930 


78A0 


CBRC 


041 












STH I AStT 


2932 


018 7 


CBRC 


042 






015 


LEG 


3 


BR IF S5=l 


2934 


8185 


CBRC 


043 




CICY 


00 5 


1ST ART 


N 


N=S BITS67 


2936 


5892 


CBRC 


044 


EXECUT 










RDH I DA,AA 


2938 


A 92 6 


CBRC 


045 






03 6 


0P45C 




BR 






C BR C 


046 


# 


EXECUTE OP CODE 


44 


208 8 


AB25 


CBRC 


047 


RX0P44 


CICY 


056 


ADD ERR 


N 


BR IF Hi=NZ 


2D8A 


01E3 


CBRC 


048 












Z=U1*-KCE 


2D8C 


F08 6 


CBRC 


049 






06 5 


SPEC 




BR IF LZNZ 


2D8E 


F182 


CBRC 


050 






063 


0P44B 




BR IF S6=0 


2D90 


7CC2 


C BR C 


051 












STH P DA,B8 


2092 


7892 


CBRC 


05 2 












STH I DA,AA 


2094 


74B2 


CBRC 


05 3 












STH G DA,AE 


2096 


4 80 6 


CBRC 


054 












I=U 


2098 


C02C 


C BR C 


055 












RST S6 


209 A 


55BB 


CBRC 


056 












T1=G1H 


209C 


C481 


CBRC 


05 7 






066 


RETRNC 




BR IF Z=0 


209E 


5498 


CBRC 


058 












RDH G 1+2 


2OA0 


2B3B 


CBRC 


059 












T1=T1+K03 


2DA2 


53A0 


CBRC 


060 












RD8 VI AS,T+0 


2DA4 


6535 


CBRC 


061 












G1=G1$VI 


20A6 


B46 3 


CBRC 


062 




CICY 


013 


OPHI 


N 


N=GOH 


2D82 


2833 


CBRC 


063 


3P44B 










T1=0$K03 


2084 


8 9FE 


CBRC 


064 




BPSW 


004 


PROGA 




BR 


2086 


AE94 


CBRC 


065 


SPEC 


CICY 


070 


SPECHK 




BR 


2080 


AA06 


CBRC 


066 


RETRNC 


CICY 


00 8 


I START 


3 


3R 






CBRC 


06 7 


* 


BRANCH 


ON COUNT 


OP CODE 06 


20A8 


0040 


CBRC 


068 


RR0P06 










RST S5 


20AA 


55B3 


CBRC 


06 9 












T1=G1XH 


2DAC 


C4B5 


CBRC 


070 






075 


0P4X 




BR IF Z=0 


20AE 


5EA8 


CBRC 


071 












RDH H AS,T+2 



EXECUTION 
RR 
BALR 



RR 



EXECUTION 


AND 


RX 


BRANCH 


AND 


LINK 



RESTORE EXECUTE INST. COUNTER 



SPEC CHECK 



EXECUTE CHECK 
SAVE P 

SAVE G REG 



READ INSTRUCTION 
ADJUST REG ADDRESS 



ADDR 



WORD SEQUENCE NO. LABEL 



2DBO 


5CAO 


CBRC 


072 








CBRC 


073 


* 


2DB? 


2 040 


CBRC 


074 


RX0P46 


2DB4 


55BB 


CBRC 


075 


0P4X 


2DB6 


56A8 


CBRC 


076 




2DB8 


5 2AA 


CBRC 


07 7 




2DBA 


000 A 


CBRC 


078 




2DBC 


73A9 


CBRC 


079 




2DBE 


72A9 


CBRC 


080 




2DCO 


7 7A9 


CBRC 


081 




2DC2 


76A9 


CBRC 


082 




2DC4 


76A8 


CBRC 


08 3 




2 DC 6 


72AA 


CBRC 


034 




2 DC 8 


D5CD 


CBRC 


08 5 




2DCA 


8185 


CBRC 


086 


NBRANC 


2DCC 


D1CA 


CBRC 


087 


CBRANC 


2DCE 


A 90 6 


CBRC 


08 8 








C BR C 


089 


# 






CBRC 


090 


* 


2C88 


9816 


CBRC 


091 


RS0P86 


2C8A 


55BB 


CBRC 


092 




2C8C 


58A8 


CBRC 


093 




2C8E 


52AA 


CBRC 


094 




2C90 


55B3 


CBRC 


09 5 




2C92 


5 6A8 


CBRC 


096 




2C94 


5CAA 


CBRC 


097 




2C96 


6D3B 


CBRC 


098 




2C98 


6C2D 


CBRC 


099 




2C9A 


6 790 


CBRC 


100 




2C9C 


6680 


CBPC 


10 1 




2C9E 


3B15 


C BR C 


102 




2CA0 


5 8A8 


CBRC 


103 




2CA2 


52AA 


CBRC 


104 




2CA4 


55BB 


CBRC 


105 




2CA6 


76A8 


CBRC 


106 




2CA8 


7CAA 


CBRC 


107 




2CAA 


CCO 4 


CBRC 


108 




2CAC 


3 002 


CBRC 


109 




2CAE 


7D30 


CBRC 


110 




2CB0 


7C2 


CBRC 


111 




2CB2 


7790 


CBRC 


112 




2CB4 


768D 


CBRC 


113 




2CB6 


8178 


CBRC 


114 




2CB8 


F481 


CBRC 


115 




2CBA 


F583 


CBRC 


116 


CHKANS 


2CBC 


F007 


CBRC 


117 


LHCHEK 


2CBE 


8185 


CBRC 


118 


MOBR 


2C80 


1680 


CBRC 


119 


OVERFL 


2C82 


C630 


CBRC 


120 


SIGN 


2C84 


F03F 


CBRC 


121 




2C86 


A906 


CBRC 


122 


GOBR 



NEXTSEQ 


NEXTLABEL 


STATEMENT 








RDH U AS,T+0 


BRANCH 


ON COUNT 


OP CODE 46 








SET S5 








T1=G1H 








RDH D AS,T+2 








RDH V AS,T-2 








RST S K=50 








V1C=V1-T0+C 








VOC=VO-TO+C 








D1C=D1-T0+C 








DOC=DO-TO+C 








STH D AS,T+2 








STH V AS»T-2 


08 7 


CBRANC 




BR IF Sl=l 


CICY 005 


I START 


N 


N=S BITS67 


08 6 


NBRANC 




BR IF S5=0 


015 


LEG 


3 


BR 


BRANCH 


INDEX HI, 


LO,EQUAL THE F 








BY OP 


CCOM 058 


L SAVE 8 




BAL 

T1=G1H 

RDH I AS,T+2 

RDH V AS,T-2 

T1=G1XH 

RDH D AS,T+2 

RDH P AS,T-2 

P1C=P1+V1 

P0C=P0+V0+C 

D1C=D1+I 1+C 

D0C=D0+I0+C 

T1=T1$K10 

RDH I AS,T+2 

RDH V AS,T-2 

T1=G1H 

STH D AS»T+2 

STH P AS,T-2 

RST S2 

SET S K=90 

PlC=PlfVl+C 

POC=POfVO+C 

01C=01*I 1+C 

DOC=DOfIO+C 


CCOM 066 


LRSTR3 




BAL 


119 


OVERFL 




BR IF OVFL 


120 


SIGN 




BR IF S2=l 


122 


GOBR 




BR IF GO BIT7=1 


CICY 005 


1ST ART 


N 


N=S BITS67 
00=D0<K80 


117 


LHCHEK 




BR IF DO BIT0=1 


118 


NOBR 




BR IF GO BIT7=1 


015 


LEG 


3 


BR 
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COMMENTS 



OECREMENT 
COUNT 
BY 

ONE 



CHECK RESULT 

COUNT ONLY GO TO I CYC 



IRST WORD OF THIS ROUTINE IS ENTERED 
CODES 86 AND 87 
SAVE I AND P 



INDEX IN IV 
GET 
INCREMENT 
FROM R3 
ADD 
INDEX 
INTO 
INCREMENT 

GET 

COMPARAND 
SET Rl ADDRESS 

STORE 
SUM 



COMPARE 
COMPARAND 
TO THE 
SUM 
RESTORE ly? 
BR IF OVERFLOW 

EQUAL FIRST LO 2ND 

OVERFLOW INVERT SIGN 

SUM IS HIGH 
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AOOR WORD SEQUENCE NO. LABEL NEXTSEQ NEXTLABEL STATEMENT COMMENTS 

* CROSS REFERENCE FOR CSECT CBRC * 



CBRC 


005 


CICY 


140 


CBRC 


Oil 


CICY 


192 


CBRC 


012 


CBRC 


Cll 


CBRC 


013 


CBRC 


00 6 CBRC 014 


CBRC 


015 


CBRC 


012 CBRC 017 


CBRC 


023 


CICY 


138 


CBRC 


031 


CICY 


190 


CBRC 


C32 


CBRC 


02 5 


CBRC 


036 


CBRC 


04 5 


CBRC 


37 


CBRC 


035 


CBRC 


044 


CBRC 


03 4 


CBRC 


047 


CICY 


189 


CBRC 


063 


CBRC 


050 


CBRC 


065 


CBRC 


049 


CBRC 


066 


CBRC 


057 


CBRC 


068 


CICY 


139 


CBRC 


074 


CICY 


191 


CBRC 


075 


CBRC 


070 


CBRC 


086 


CBRC 


087 


CBRC 


087 


CBRC 


085 


CBRC 


091 


CICY 


223 CICY 224 


CBRC 


117 


CBRC 


120 


CBRC 


118 


CBRC 


121 


CBRC 


119 


CBRC 


115 


CBRC 


120 


CBRC 


116 


CBRC 


122 


CBRC 


117 



CBRC 019 CBRC 042 CBRC 088 CBRC 122 



ADDR 



WORD SEQUENCE NO. LABEL 







CCOM 


001 


T 






CCOM 


002 


* 






CCOM 


003 


* 






CCOM 


004 


* 






CCOM 


00 5 


* 






CCOM 


006 


* 






CCOM 


007 


* 






ccom 


0C8 


* 






CCOM 


009 


* 






CCOM 


010 


* 






CCOM 


Oil 


* 


2E06 


AB2 5 


CCOM 


012 


CXGETH 


2E08 


01E3 


CCOM 


013 




2EOA 


F084 


CCOM 


014 




2E0C 


5E10 


CCOM 


015 




2E0E 


CE01 


CCOM 


016 




2F10 


2 30 5 


CCOM 


017 




2E12 


5 32 9 


CCOM 


018 


CCSIGN 


2E14 


4 OF 6 


CCOM 


019 




2E16 


55BB 


CCOM 


020 


GETR1 


2E18 


56A8 


CCOM 


021 




2E1A 


5EAA 


CCOM 


022 




2EIC 


100E 


CCOM 


023 




2E1E 


128E 


C CO M 


024 




2EOO 


23F7 


CCOM 


025 


CXNEG 


2F02 


C49 2 


CCOM 


02 6 




2E04 


AE94 


CCOM 


02 7 


CXSPEC 






CCOM 


028 


* 


0AC8 


5 5B3 


CCOM 


02 9 


LGET 


OACA 


56A8 


C CO M 


030 




OACC 


5EAA 


CCOM 


031 




OACE 


55BB 


CCOM 


032 




CADO 


0008 


CCOM 


03 3 




OA02 


128E 


CCOM 


034 








CCOM 


035 


* 


0270 


55B3 


CCOM 


036 


CRGET 


0272 


5 2A8 


CCOM 


037 




0274 


5 0AA 


CCOM 


03 8 




0276 


55BB 


CCOM 


039 




0278 


56A8 


CCOM 


040 




027A 


5EAA 


CCHM 


041 




027C 


100E 


CCOM 


042 




027E 


128E 


CCOM 


043 








CCOM 


044 


* 


33F6 


5218 


CCOM 


045 


CXGET 


33F8 


5010 


CCOM 


046 




33FA 


55BB 


CCOM 


047 




33FC 


5 6A8 


CCOM 


048 




33FE 


5EAA 


CCOM 


049 




3400 


100E 


CCOM 


050 




3402 


128E 


CCOM 


051 





NEXTSEQ NEXTLABEL STATEMENT 

**** COMMON ROUTINES ***** 



CL0AD=*E60, EC LEVEL=128266 PAGE 69 

COMMENTS 



** 
** 



CICY 056 AODERR N 
027 CXSPEC 
02 5 CXNEG 



018 CCSIGN 
CICY 070 SPECHK 



**THE FOLLING ROUTINES** 
**ARE OPERAND FETCHES** 



** LINKED GET HALF ROUTINE ** 
BR IF H1=NZ 
Z=U1*-KCE 
BR IF LZNZ 
RDH H U + 
BR IF HO BIT0=1 



CHECK FOR VALID ADDRESS 
CHECK BOUNDARY 



V1=0$KOO 

V0=V1 

U=H 

T1=G1H 

RDH D AS,T+2 

RDH H AS,T-2 

RST S K = F0 

RTN 

V1=0$KFF 

BR IF ZNZ 

BR 

Tl=GlXH 

RDH D AS,T+2 

RDH H AStT-2 

T1=G1H 

RST SI 

RTN 

T1=G1XH 

RDH V AS,T+2 

RDH U AS,T-2 

T1=G1H 

RDH D AS,T+2 

RDH H AS.T-2 

RST S K=F0 

RTN 

RDH V U+2 

RDH U U+0 

T1=G1H 

RDH D AS»T+2 

RDH H AS»T-2 

RST S K=FO 

RTN 



CHECK SIGN 
EXTEND PLUS SIGN 



RESET S BITS 0,1»2»3 

UNC BR ON ZNZ 
** OPERAND FETCH FOR LOADS ** 



SET DESTINATION ADDR 
RESET ZNZ STAT 

** RR OPERAND FETCH ** 

2ND OPERAND 



1ST OPERAND 

RESET S BITS 0,1,2,3 

** RX OPERAND FETCH ** 
2ND OPERAND 

1ST OPERAND 

RESET S SITS 0,1,2,3 



ADDR 



WORD SEQUENCE NO. 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CL0AD=*E60, 

COMMENTS 
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CCOM 


052 


* 






CCOM 


053 


* 






CCOM 


054 


* 






CCOM 


055 


* 


1812 


70A2 


CCOM 


056 


LSAVE 


1814 


74B2 


CCOM 


057 


LSAVEA 


1816 


7CC2 


CCOM 


058 


LSAVEB 


1818 


E19E 


CCOM 


059 




181A 


7892 


CCOM 


060 




181C 


020 


CCOM 


061 




181E 


128E 


CCOM 


Q62 


LSAVEC 






CCOM 


063 


* 


0174 


50A2 


CCOM 


064 


LRSTR 


0176 


54B2 


CCOM 


065 


LRSTRA 


0178 


5CC2 


CCOM 


066 


LRSTRB 


017A 


5892 


CCOM 


067 


LRSTRC 


017C 


2020 


CCOM 


068 




017E 


128E 


CCOM 


06 9 








CCOM 


070 


* 


1BDC 


2B73 


CCOM 


071 


FLGDEX 


1BDE 


89FC 


CCOM 


072 








CCOM 


07 3 


* 






CCOM 


074 


* 






CCOM 


075 


* 


33DA 


2 002 


CCOM 


076 


COMPL 


33DC 


7FFB 


CCOM 


077 




33DE 


7EEB 


CCOM 


07 8 




33E0 


7 77B 


CCOM 


079 




33E2 


766B 


CCOM 


080 




33E4 


100 A 


CCOM 


081 




33E6 


128E 


C CO M 


082 








CCOM 


083 


* 






CCOM 


084 


* 






CCOM 


085 


* 


3460 


300 2 


CCOM 


086 


C SLOOP 


3462 . 


7F1D 


C COM 


08 7 


CXLOOP 


3464 


7ECD 


CCOM 


088 




3466 


7730 


CCOM 


089 




3468 


762D 


CCOM 


090 




346A 


128E 


CCOM 


091 








CCOM 


092 


* 






CCOM 


093 


* 






CCOM 


094 


* 






CCOM 


095 


* 






CCOM 


096 


* 






CCOM 


097 


* 


200 E 


2 60 7 


CCOM 


110 


FULCSW 


2010 


5 77B 


CCOM 


114 




2012 


3 763 


CCOM 


115 




2014 


5 860 


CCOM 


116 




2016 


5B6B 


CCOM 


117 





062 LSAVEC 



BPSW 003 PROG 





** 


LOCAL 


STORE SAVE ** 


STH U DA, AC 






SAVE U 


STH G DA,AE 






G 


STH P DA,B8 






SAVE P 


BR IF S6=0 






TEST EXECUTE-BR IF YES 


STH I DA,AA 






I 


RST S6 








RTN 










** 


RESTORE LOCAL STORE ** 


ROH U DA, AC 






RESTORE U 


RDH G DA,AE 






G 


ROH P DA, 88 






P 


RDH I DA,AA 






I 


SET S6 








RTN 








T1=0$K07 






FLAG DATA 


BR 






EXECPTION 



** 



ROUTINE ** 



SET S3 SET CARRY 

H1C=0-H1+C 

H0C=0-HQ+C 

D1C=0-D1+C 

DOC=C-DO+C 

RST S K=D0 RESET ZNZ , CARRY, COMP 

RTN 

** COMMON ADD,SUBTP ACT, COMPARE ROUTINE ** 

SET S K=90 SET COMPL I MENT , CARRY 

H1C=H1«U1+C 

H0C=HO?UO+C 

D1C=D11V1+C 

D0C=DC*VC+C 

RTN 
* ************** ** **** * ********************************* 3* ******* 

*** CSW STORE ROUTINE ******** 



00=0 

D1=D1H 

D1=D1$KQ6 

RDB Tl AS,D+0 

D0=T1H 



ADJUST UCW ADDR TO NAT KEY LOC 
0=UCW ADDR-00X6 ANY NATIVE 
GET NATIVE KEY Tl=KKKKOO00 
D0=KKKK0000-NATIVE KEY-NOT COMM 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


2018 


2707 


CCOM 


118 


HELP 


201A 


F0A5 


CCOM 


120 




20 1C 


4E52 


CCOM 


121 


CLEAR 






CCOM 


12 2 


* 


20 IE 


4252 


CCOM 


12 3 


STATOS 






CCOM 


124 


* 


2020 


4626 


C CO M 


125 




2022 


4026 


CCOM 


126 




2024 


2B4 5 


CCOM 


127 


CSWADR 


2026 


42AF 


CCOM 


129 




2028 


7 6B8 


CCOM 


131 




202A 


72B8 


CCOM 


13 2 




202C 


6AA4 


CCOM 


133 




202E 


70B0 


CCOM 


134 




2030 


2 34 7 


CCOM 


135 


STATUS 


203? 


42AF 


CCOM 


137 




2C34 


7EB0 


CCOM 


139 




2036 


5282 


c en m 


141 




203 8 


423F 


CCOM 


142 








CCOM 


143 


* 


203A 


C5BE 


CCOM 


145 




203C 


128E 


CCOM 


146 




203F 


AEDO 


CCOM 


147 


NORTN 






CCOM 


148 


* 






CCOM 


149 


* 






CCOM 


150 


* 






CCOM 


151 


* 






CCOM 


152 


* 






CCOM 


153 


* 






CCOM 


154 


* 


010C 


2400 


CCOM 


155 


CCOB 


010E 


AA74 


CCOM 


156 








CCOM 


157 


* 


2ED0 


2 400 


CCOM 


158 


CC1B 


2E02 


2C5 5 


CCOM 


159 


CC1C 


2ED4 


8185 


CCOM 


160 








CCOM 


161 


* 


2ECA 


2400 


CCOM 


162 


CC2B 


2ECC 


2C25 


CCOM 


163 


CC2C 


2ECE 


818 5 


CCOM 


164 








CCOM 


165 


* 


2DF6 


2400 


CCOM 


166 


CC3B 


2DF8 


2C75 


CCOM 


167 


CC3C 


20FA 


8185 


CCOM 


168 








CCOM 


169 


* 






C CO M 


170 


* 






CCOM 


171 


* 






CCOM 


172 


* 






CCOM 


173 


* 


01AA 


2BB1 


CCOM 


174 


ST0RH1 


01 AC 


7FA0 


CCOM 


175 





NEXTSEQ 



NEXTLABEL STATEMENT 



127 CSWADR 



01 = 

BR IF LZ=0 

RDH H DC, 9 A 

ROH V DC, 9 A 







D=V 






U = V 






T1=0$K40 






STP0=TC 






STH D T+2 






STH V T+2 






T=T + 2 






STH U T+0 






T1=0$K44 






STPO=TC 






STH H T+0 






RDH V PA,A8 






STP0=V1 


147 


NORTN 


BR IF S0=0 
RTN 


158 


CC1B 


BR 



CL0AD=*E60, EC LEVEL=128266 PAGE 71 

COMMENTS 

ZERO OUT ADDRESS BYTE FOR CSW 

UNC BR 

ENTRY FOR ALL ZERO CSW STORE 

READ ZERO CONSTANT INTO H 
** ENTRY FOR STAT STORE-ZERO REST OF CSW 

READ ZERO CONSTANT INTO V 



DIXABLE CPU KEY 
KEY AND 0,S 

NEXT CCW ADDR 

RES COUNT 

ENTRY FOR STATUS ONLY 
DIXABLE CPU KEY 
STATUS=UNIT,CHAN. 
PUT CPU KEY BACK IN Q. IF IN 
FILE ZONE TO G Tl REGS ARE 

ACCESSED INSTEAD OF VO £ VI. 
S0=1 FOR RTN FROM THIS ROUTINE 

GO RST MODE ,SET CC1 



CICY 003 CHECKX 



****C0MM0N CONDITION CODE SET**** 

SET MODE K=C0 
BR 



SET MODE K=00 
P0=0$K5C 
CICY 005 I START N N = S BITS67 

SET MODE K=00 
P0=0$K20 
CICY 005 ISTART N N=S BITS67 

SET MODE K=00 
P0=0$K70 
CICY 005 ISTART N N=S BITS67 



SET CC1-BITS2,3=C0ND CODE 



SET CC2 



SET CC3 



** STORE HI ROUTINE ** 

T1=0-K0B 

STB HI AS, T+0 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CLOAD=*E60, 
COMMENTS 
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OlAE 


12RE 


CCHM 


176 








CCOM 


177 


* 






CCOM 


178 


* 






CCOM 


179 


* 






CCOM 


180 


* 






CCOM 


181 


* 


1248 


5682 


CCOM 


182 


RSTRKY 


124A 


427F 


CCOM 


183 




124C 


128E 


CCOM 


184 








CCOM 


185 


* 






CCOM 


186 


* 


0C7A 


2BB1 


CCOM 


187 


RESTRH 


0C7C 


5FA0 


CCOM 


188 




0C7E 


128E 


CCOM 


189 





CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 

CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 
CCOM 



012 
018 
020 
025 
027 
029 
036 
045 
056 
057 
058 
62 
064 
065 
066 
067 
071 
C76 
086 
037 
110 
123 
127 
135 
147 
155 
158 
162 
166 
174 
182 
187 



C B I N 
CCOM 
CNVR 
CCOM 
CCOM 
CDVD 
CBIN 
CBIN 
CDMD 
CDVD 
CBRC 
CCOM 
BWPP 
8WRP 
BSWI 
CFAD 
CDMD 
CDVD 
CBIN 
CBIN 
DCHN 
OCHN 
CCOM 
DCLA 
CCOM 
DCLA 
CCOM 
DCLA 
DCLC 
BSTP 
8MCK 
BSWI 



018 
026 
013 
016 
014 
004 
00 5 
COB 
009 
Oil 
091 
059 
12 5 
121 
113 
127 
05 5 
018 
009 
027 
102 
120 
120 
23 6 
145 
041 
147 
066 
037 
00 7 
119 
116 



CBIN 034 CBIN 047 



CAST 
CBIN 
CBIN 
DUMP 
CFCY 
OPTS 

CDMD 
CDVD 
CBRC 
CFCY 
CNVR 
CLST 
CBIN 
CBIN 
DPTT 
DCLC 
DCLT 
DCLC 

DCLA 
DCLA 
DCLA 
DYPE 
BSWI 
BSWI 
DCLT 



005 
022 
026 
00 3 
016 
048 

05 4 
08 6 
114 

06 8 

07 3 
00 7 

04 3 
056 
041 

05 7 
040 
185 

28 7 
042 
369 
226 
010 
0^7 
041 



CLST 

CBIN 
CBIN 
ERDR 
CFCY 

DYPE 

CDMD 
CDVD 
CFAD 
CFHA 
CSAS 
CLST 
CBIN 



018 
038 
042 
067 
036 
005 

059 
098 
072 
033 
025 
032 
077 



DPTT 015 
FILE 018 
DCLR Oil 

DCLC 065 

OCLB 005 



RTN 
************** ******** ******** ********************************** 

** RESTORE CPU KEY ROUTINE ** 



GET CPU KEY 

RESTORE CPU KEY INTO 



RDH D DA,A8 
. STP0=D1 
RTN 
****************************************** 

*** RESTORE Hi ROUTINE *** 
T1=0-K0B T=00F4 

RDB HI AS,T+0 
RTN 

* CROSS REFERENCE FOR CSECT CCOM * 

CMLT 014 



CLST 030 CLST 040 

CBIN 051 CBIN 072 CLOG 047 CLOG 078 CLOG 114 CLOG 144 CMLT Oil 

CBIN 055 CBIN 076 CLOG 050 CLOG 082 CLOG 118 CLOG 148 CMLT 004 

CMLT 015 CNVR 009 

DYPE 114 DYPE 237 ERRO 022 ERRQ 066 

CDMD 139 DUMP 100 

CMLT 074 CNVR 111 

CNVR 047 DPTR 072 DPTS 149 ERDR 070 

CFLS 042 

CTRT 085 

CLST 042 CNVR 017 

CLOG 051 

DPTT 054 FILE 129 FINT 039 

FINT 009 

DPTS 150 DPTT 068 FILE 140 F ILX 467 

DCLH 021 DPTT Oil DYPE 213 ERRO 012 FILE 030 FILE 098 FILX 219 FILX 355 

DCLT 008 DPTT 025 FILE 026 



BSWI 110 CSTS 058 



CDMD — DECIMAL MULT I PLY-Dl VIDE ROUTINES 

ENTRY POINT 

SSOPFC - THIS IS THE COMMON ENTRY POINT FOR BOTH MULTIPLY 
DECIMAL AND DIVIDE DECIMAL. 



MULT DECIMAL 
DIV DECIMAL 



CL0AD=*E60, 
DESCRIPTION CONTINUED 

MULTIPLY OP 



EC LEVEL=128266 PAGE 73 



FC 


• 


LI 


L2 


• 


Bl 


Dl 


# 


Dl 


Dl 


• 


B2 


D2 


• 


D2 


02 


FD 


• 


LI 


L2 


• 


Bl 


Dl 


• 


01 


Dl 


• 


B2 


D2 


• 


D2 


D2 



1BJECTIVES 




MULTIPLY 


-THE PRODUCT 




MULTIPLICAND 




1ST OPERAND 




THE MULTIP 




AND SIGN — 




MUST NOT BE 




THE MULTIP 




BYTES EQUAL 




BYTES IN THE 




THE MAXIMU 




LEAST ONE HI 




PI ELD IS ZER 


DIVIDE 


- THE DIVIDEND 



OF THE MULTIPLIER AND THE 

REPLACES THE MULTIPLICAND IN THE 
LOCATION. 

LIER SIZE IS LIMITED TO 15 DIGITS 
LENGTH CODE OF 7 IN L2. ALSO, L2 
LARGER THAN OR EQUAL TO LI. 
LICAND MUST HAVE HIGH-ORDER ZERO 
TO OR GREATER THAN THE NUMBER OF 

MULTIPLIER FIELD. 
M PRODUCT SIZE IS 31 DIGITS. AT 
GH-ORDER DIGIT OF THE PRODUCT 
0. 



IS DIVIDED BY THE DIVISOR. THE 
QUOTIENT AND THE REMAINDER REPLACE THE DIVIDEND 
IN THE 1ST 3PERAND LOCATION. 

THE QUOTIENT FIELD IS PLACED IN THE LEFT 
PORTION OF THE DIVIDEND FIELD. THE REMAINDER 
IS THE SAME SIZE AS THE DIVISOR AND OCCUPIES 
THE LOW-ORDER BYTES OF THE DIVIDEND FIELD. 

THE DIVISOR SIZE IS LIMITED TO 15 DIGITS AND 
SIGN -- LENGTH CODE OF 7 IN L2. ALSOf L2 MUST 
NOT BE LARGER THAN OR EQUAL TO LI. 



DESCRIPTION 

THE ROUTINE CHECKS OPERAND SIZE AND SETS THE SIGN VALUE. 
THEN. TWO COPIES OF THE MULTIPLIER OR DIVISOR ARE STORED. 



STRAIGHT COPY 
SKEWED COPY 



AUX STORAGE 

FIELD 

0018-001F 

0038-03BF 



POINTER FOR 
LOW-ORDER BYTE 
OCBC 
OOBE 



AODR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



1. 


TEST FOR ENOUGH ZEROES IN MULTIPLICAND FIELD. 


2. 


SHIFT THE MOST SIGNIFICANT BYTE AND THE FOLLOWING 




BYTES OF THE MULTIPLICAND TO THE HIGH-ORDER POSITIONS 




OF THE MULTIPLICAND FIELD. SUPPLY ZEROES FOR THE 




VACATED BYTES, REMOVE SIGN. 


3. 


STARTING WITH THE LOW-ORDER, TEST EACH DIGIT OF 




MULTIPLICAND. TRUE ADD IF UNDER 5, SUBTRACT IF OVER 




4. ENTER CALCULATE LOOP FOR EACH DIGIT. FOR THE 1ST 




DIGIT, THE STRAIGHT MULTIPLIER WITH 90 AS THE HIGH- 




OROER BYTE IS T/C ADDED TO THE PRODUCT FIELD. THE 9 




IS IN ALIGNMENT WITH THE TESTED MULTIPLICAND DIGIT. 




TIC ADD CYCLES ARE CONTINUED UNTIL TEST DIGIT IS 




FOR ADD OR 9 FOR SUBTRACT. 




ALTERNATE MULTIPLICAND DIGITS USE THE SKEWED MULTI- 




PLIER WITH 09 AS THE HIGH-ORDER BYTE UNLESS THE TEST 




DIGIT GOES TO FOR ADD OR 9 FOR SUBTRACT. FOR THIS 




CASE, THE MULTIPLIER IS NOT SWITCHED. 


4. 


DO SPECIAL SKEWED ADD IF NECESSARY, INSERT SIGN, AND 




END THE OPERATION. 


DIVIDE OP 


1. 


DO A TRIAL SUBTRACT TO DETERMINE IF THE QUOTIENT AND 




REMAINDER CAN BE CONTAINED IN THE OIVIDEND FIELD. 




SKEWED DIVISOR IS USED. A CARRY OUT OF THE HIGH-ORDER 




POSITION INDICATES A DIVIDE CHECK. IF DIVIDE CHECK 




OCCURS, SKEWED DIVISOR IS ADDED BACK TO RESTORE THE 




DIVIDEND AND ROUTINE EXITS TO TAKE PROGRAM INTERRUPT. 


2. 


FOR 1ST CALCULATE CYCLE, STRAIGHT DIVISOR WITH 90 AS 




THE HIGH-ORDER BYTE IS ADDED TO THE DIVIDEND. THE 90 




IS IN ALIGNMENT WITH THE HIGH-ORDER DIVIDEND BYTE. 




THE ADD CYCLES CONTINUE UNTIL DIGIT TO THE RIGHT OF 




THE 9 GOES TO ZERO. 


3. 


SKEWED DIVISOR WITH 09 AS THE HIGH-ORDER BYTE IS 




SUBTRACTED FROM THE PREVIOUS RESULT WITH ALIGNMENT 




SHIFTED ONE DIGIT. SUBTRACT CYCLES CONTINUE UNTIL 




DIGIT TO THE RIGHT OF THE 9 GOES TO NINE 


4. 


ALTERNATE STRAIGHT AND SKEWED CYCLES ARE TAKEN WITH 




DIVISOR SHIFTING ONE DIGIT FOR EACH CHANGE. 




OPERATION ENDS WHEN THE CYCLE THAT INCLUDES THE 




LEFTMOST POSITION OF THE DIVIDEND IS COMPLETE. 


5. 


QUOTIENT SIGN IS INSERTED INTO LOW-ORDER 4 BITS OF 




QUOTIENT. SIGN OF REMAINDER IS INSERTED INTO LOW- 




ORDER 4 BITS OF REMAINDER. 




COMMENTS 



17 a a 



E1AD 



CDMD 001 
CDMD 00 2 



SSOPFC 



DECIMAL MULTIPLY DIVIDE ROUTINES 
004 NOFILC BR IF S6=l 



ADDR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEO 



NEXTLA8EL STATEMENT 



CL0AD=*E60, 

COMMENTS 
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17AA 
17 AC 
17AE 
17B0 
17B2 
1784 
17B6 
17B8 
17BA 
17BC 
17BE 
17C0 
17C2 
17C4 
17C6 
17C8 
17CA 
17CC 
17CE 
17 DO 
17D2 
17D4 
17D6 
17D8 
17DA 
17 DC 
17DE 
17E0 
17E2 
17E4 
17E6 
17E8 
17EA 
17EC 
17EE 
17F0 
17F2 
17F4 
17F6 
17F8 
17FA 

17FC 
17FE 
17A6 



1445 
C13C 
AE94 
5575 
77E3 
EOAE 
9812 
5730 
8F2C 
5710 
3415 
8F2C 
10CE 
559D 
3B83 
3B15 
7AE2 
4CA6 
3B25 
7AF2 
5F3A 
5FFB 
7FAF 
7FCA 
5FF1 
C96C 
573A 
47F3 
77AF 
7FAA 
77CA 
5 7F5 
C95F 
7FAA 
55E5 
55FD 
7FF1 
2002 
71E9 
70A9 
4 20 6 

F027 
8082 
A51C 



251C 
251E 



B3C8 
CIA 4 



CDMD 
CDMO 
CDMD 

CDMD 

CDMD 
CDMD 
CDMD 
CDMD 
CDMD 
CDMD 
CDMD 
CDMD 
CDMD 
CDMD 
CDMD 
CDMD 
C DM D 
CDMD 
CDMO 
CDMD 
CDMD 
CDMD 
CDMD 
CDMD 
CDMD 
CDMD 
CDMD 
CDMD 
CDMO 
CDMO 
CDMD 
CDMD 
CDMD 
CDMD 
CDMD 
CDMD 
CDMD 
CDMD 
CDMD 
CDMD 
CDMD 
CDMD 
CDMD 
CDMD 
CDMD 
CDMD 
CDMD 
CDMD 
CDMD 
CDMD 
CDMD 



0C3 
004 
005 
006 
007 
00 8 
009 
010 
Oil 
012 
013 
014 
015 
016 
017 
018 
019 
020 
021 
022 
023 
024 
025 
026 
027 
028 
029 
030 
031 
032 

03 3 
034 
035 
036 
037 
038 
039 
040 
041 

04 2 
043 
044 
045 
046 
047 
04 8 
049 
050 
051 
052 
053 



NOFILC 
FLGERR 
LENCHK 



006 LENCHK 
CICY 070 SPECHK 



005 FLGERR 
CCOM 056 LSAVE 

203 SINSET 



203 SINSET 



036 SSKEW 



SMORE 



029 SHORE 



SSKEW 



SOUT 






047 SOUT 
106 MULTPY 
052 DIVIDE 
AT THIS POINT 



G0=G0*-K40 

BR IF G14=0 

BR 

D1=G1XL 

D1=D1-H0 

BR IF HZNZ 

BAL 

RDB Dl V 

BAL 

RDB Dl U 

G0=G0$K10 

BAL 

RST S K = FC 

T1=G1L 

T1=T1$K08 

T1=T1$K10 

STH T DA,BC 

P=T 

T1=T1$K20 

STH T DA, BE 

RDB HI V-l 

H1=H1H 

H1C=H13T0+C 

STB HI AS,P-1 

H1=H1X 

BR IF PI 4=0 

RDB 01 V-l 

H1=D1XH+H1L 

DlC=DiaTO+C 

STB HI AS,T-1 

STB Dl AS,P-1 

H1=D1XL 

BR IF PI 4=1 

STB HI AS,T-1 

H0=G1XL 

H1=G1L 

HO=HO-H1+-1 

SET S3 

U1C=U1-H0+C 

UOC=UO-TO+C 

V=U 



8R 

BR 

BR 

THE 



IF G07=l 



FIX ILC FOR EXECUTE 

LENGTH CHECK OVER 7 

CHECK IF 
L2 LARGER 

THAN LI 

READ 2ND OPRAND 

GO SET THE SIGN VALUE 
READ 1ST OPRAND 
START WITH REMAINDER SIGN + 
GO SET THE SIGN VALUE 
RESET S REG 0,1,2,3,4,5 
-BUILD THE 

STRAIGHT AND SKEWED ADDRESSES 
AND PUT THEM IN AUX 
OCBC-STRAIGHT 
COEE-SKEWED 



-THIS STORES THE DIVISOR 
PLIER IN AUX STRAIGHT AND 
SKEWED 



TAKE THIS BR IF I POS. FIELD 



STORE LAST SKEWED CHAR. 
-THIS ADJUSTS THE ADDRESS 1ST OP 
TO THE LEFT MOST POS. 



BREAK OUT 
THE OP 
CODES 



DIVIDE OPERA 
IS STARTED IT GOES BACK TO A 
POINT WITH MULTIPLY TO SET T 



TION 

COMMON 
HE RESULT 



SIGN 



DIVIDE 



213 

056 



DVLOOP 
VALIDA 



BAL 

BR IF S4=0 



GO SEE IF ANS. WILL FIT 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


2520 


8174 


COMD 


054 


DATEXP 


CCOM 064 


LRSTR 


BAL 


2522 


9BDC 


CDMD 


055 




CCOM 071 


FLGDEX 


BR 


2524 


F580 


CDMD 


056 


VALIDA 


062 


VALIFL 


BR IF S3=0 


2526 


1002 


CDMD 


057 








RST S K=90 


2528 


B3CA 


CDMD 


058 




214 


OVLOPB 


BAL 


252A 


8174 


CDMD 


059 




CCOM 064 


LRSTR 


BAL 


252C 


28B3 


CDMD 


060 








Tl=O$K0B 


252E 


89FC 


CDMD 


061 




BPSW 003 


PROG 


BR 


2530 


56A2 


CDMD 


062 


VALIFL 






RDH D DA, AC 


2532 


5D70 


CDMD 


06 3 








ROB PI D 


2534 


5DDB 


CDMD 


064 








P1=P1H 


2536 


7070 


CDMD 


065 








STB PI D 


2538 


2 993 


CDMD 


066 








I1=0$K09 


253A 


5 981 


CDMD 


06 7 








I 0= 1 1 X 


253C 


5004 


CDMD 


06 8 


ENTYA 






U=U+1 


253E 


1042 


CDMD 


069 


ENTYB 






RST S K=94 


2540 


56E2 


C DM D 


070 








RDH D DA,BC 


2542 


B3CC 


CDMD 


071 




215 


DVLOPC 


BAL 


2544 


5D3C 


CDMD 


072 








RDB PI V 


2546 


7D8F 


CDMD 


073 








Pic=Piaio+c 


2548 


F081 


CDMD 


074 




077 


OTHLOP 


BR IF LZ=0 


254A 


7030 


CDMD 


075 








STB PI V 


254C 


A53E 


CDMD 


076 




069 


ENTYB 


BR 


2500 


7030 


CDMD 


077 


OTHLOP 






STB PI V 


2502 


7EA3 


CDMD 


078 








H0=H0-T0 


2504 


C4CF 


COMD 


07 9 




091 


CHECK 


BR IF Z=0 


2506 


B3C8 


CDMD 


080 


OTALOP 


213 


DVLOOP 


BAL 


2508 


0090 


CDMD 


081 








Z=PKK90 


250A 


FOSE 


CDMD 


082 




084 


ARDN 


BR IF HZNZ 


250C 


2 040 


CDMD 


083 








SET S5 


250E 


5D30 


CDMD 


084 


ARDN 






RDB PI V 


2510 


5D73 


CDMD 


085 








D1=P1H 


2512 


7D9F 


CDMD 


086 








pic=Piai i+c 


2514 


47DB 


CDMD 


087 








P1=01H+P1L 


2516 


7 030 


CDMD 


088 








STB PI V 


2518 


0186 


CDMD 


08 9 




080 


OTALOP 


BR IF S5=0 


251A 


A53C 


COMD 


090 




06 8 


ENTYA 


BR 


254E 


C1A1 


CDMD 


091 


CHECK 


054 


DATEXP 


BR IF S4=l 


2550 


5CC2 


CDMD 


092 








RDH P DA,B8 


2552 


2FC3 


CDMD 


093 








H1=0$K0C 


2554 


C95 8 


CDMD 


094 




096 


ARDNB 


BR IF P14=0 


2556 


1F6B 


CDMD 


005 








H1 = HKK06 


2558 


E450 


COMD 


096 


ARDNB 


09 8 


A RDNC 


BR IF G02=l 


255A 


3F13 


CDMD 


097 








H1=H1$K01 


25 5C 


5 730 


CDMD 


098 


ARDNC 






RDB Dl V 


255E 


6 7F5 


CDMD 


099 








D1=D1$H1 


2560 


7730 


CDMD 


100 








STB Dl V 


2562 


6443 


CDMD 


101 








GO=G0+GO 


2564 


8 DC 2 


CDMD 
CDMD 
CDMD 


102 
103 
104 


* 
* 


138 


MEND 


BR 



CLQAD=*E60, 
COMMENTS 



EC LEVEL = 128266 PAGE 75 



THIS RESTORES LOCAL STORAGE AND 

FLAGS A DATA EXCEPTION INTERUPT 
IF S3=l A DIVIDE EXCEPTION EXIST 
ADD BACK IN 
THE VALUE 
SUB 
AND FLAG 
DIV. EXCEP. INTER. 
GET 
RIO 
OF 
SIGN 



RESET S REG 0,3,5 
GET THE STRAIGHT ADDRESS 



THIS 
SETS 
THE 
QUO 
SIGN 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 






CDMD 


10 5 


* 








0D82 


571A 


CDMD 


106 


MULTPY 






ROB Dl U-l 


0084 


A31B 


COMD 


107 




150 


EREXCP N 


BR IF D1=NZ 


0D86 


2FFF 


COMO 


108 








H1=H1+KFF 


0D88 


F483 


CDMO 


1 9 




106 


MULTPY 


BR IF AC=1 


0D8A 


5004 


COMO 


110 








U=U + 1 


008C 


5224 


CDMO 


111 








V=V + 1 


0D8E 


5FF9 


CDMO 


112 








H1 = H0 


0D90 


2 BO 7 


CDMO 


113 








T1 = 


0092 


E597 


COMD 


114 




116 


MNZERO 


BR IF S2=l 


0D94 


2 040 


CDMD 


115 








SET S5 


0D96 


0004 


CDMO 


116 


MNZERO 






RST S2 


0D98 


77AF 


CDMD 


117 


MLUPA 






01C=DiaT0+C 


0D9A 


5 73 


CDMD 


118 








ROB Dl V 


0D9C 


D1A1 


CDMO 


119 




121 


MZER 


BR IF S5=l 


0D9E 


7718 


CDMO 


120 








STB 01 U+l 


0DA0 


7B38 


CDMD 


1?1 


M.ZER 






STB Tl V+l 


0OA2 


2FFF 


CDMD 


122 








H1=H1+KFF 


0OA4 


C49 8 


CDMD 


123 




117 


MLUPA 


3R IF ZNZ 


0DA6 


5006 


CDMD 


124 








U=U-1 


0DA8 


5226 


CDMD 


125 








V=V-1 


ODAA 


01C3 


CDMD 


126 




138 


MEND 


BR IF S5=l 


ODAC 


577B 


CDMD 


127 








D1 = D1H 


ODAE 


7710 


CDMD 


128 








STB 01 U 


ODBC 


77AF 


CDMD 


129 








D1C=D13T0+C 


0082 


C181 


CDMD 


130 




150 


EREXCP 


BR IF S4=l 


0084 


E5C2 


CDMD 


131 




138 


MEND 


BR IF S2=0 


0DB6 


B12E 


CDMD 


132 




151 


M ST ART 


BR 


0DB8 


0B90 


CDMD 


133 


ENDING 






Z = TKK90 


0D8A 


F0C2 


CDMD 


134 




138 


MEND 


BR IF HZNZ 


ODBC 


4 086 


CDMD 


135 








U=I 


OOBE 


100 2 


CDMD 


136 








RST S K=90 


OOCO 


B3CA 


CDMD 


13 7 




214 


DVLOPB 


BAL 


0DC2 


5 4F9 


CDMD 


138 


M.END 






H1 = GC 


00C4 


8174 


CDMD 


139 




CCOM 064 


LRSTR 


BAL 


0DC6 


2 7C3 


CDMD 


140 








D1=0$KCC 


0DC8 


C94C 


CDMD 


141 




143 


MASCI 


BR IF P14=0 


ODCA 


176B 


CDMD 


142 








D1 = DKK06 


ODCC 


EF51 


COMD 


143 


MASCI 


145 


MPLUS 


BR IF H12=l 


ODCE 


3713 


CDMD 


144 








D1=D1$K01 


ODDO 


5F10 


COMD 


145 


MPLUS 






ROB HI U 


0D02 


6F75 


CDMD 


146 








H1=H1$D1 


0004 


7F10 


CDMD 


147 


STORE 






STB HI U 


0006 


2A07 


CDMD 


148 


TOTOO 






T0 = 


0008 


AA76 


COMO 


149 




C1CY 004 


CHECK 


BR 


0080 


A 52 


CDMD 


150 


EREXCP 


054 


DATEXP 


BR 


312E 


2040 


COMO 


151 


M START 






SET S5 


3130 


4826 


CDMD 


152 








I=V 


3132 


5789 


CDMO 


153 


MSB 






Tl = 01 


3134 


C5B8 


CDMD 


154 


MSJKA 


156 


MSA 


BR IF S0=0 


3136 


0B9F 


COMD 


155 








Z=TKK99 



CL0AD=*E60t EC LEVEL=128266 PAGE 76 

COMMENTS 



CHECK 
FIELD FOR 
ENOUGH ZEROS 



STORE THE 
1ST 
OP 
SHIFTED 
TO 
LEFT 



RID OG 
SIGN 



SET THE 
SIGN 
FOR 
REMAIN 
AND 
PRODUCT 



THIS 
DOES 
THE 
ACTUAL 



ADDR 


WORD 


SEQUENC 


:e NO. 


LABEL 


3138 


008F 


CDMD 


156 


MSA 


313A 


D1CC 


CDMD 


157 




313C 


EOFO 


CDMD 


158 


MSHI 


313E 


7B1A 


CDMD 


159 


MSSTOR 


3140 


5886 


CDMD 


160 




3142 


5710 


CDMD 


161 




3144 


0040 


CDMD 


162 




3146 


2EFF 


CDMD 


163 




3148 


C4B2 


CDMD 


164 




314A 


8DBR 


CDMD 


165 




3160 


2040 


CDMD 


166 


MSC 


3162 


2A9 5 


CDMD 


167 




3164 


56E2 


CDMD 


168 




3166 


5 7C9 


CDMD 


169 




3168 


1000 


CDMD 


170 




31 6 A 


0BB9 


CDMD 


171 




316C 


F4DD 


CDMD 


172 




316F 


9456 


CDMD 


173 




314C 


FOBD 


CDMP 


174 


MSLOW 


314E 


5BBD 


CDMD 


175 




3150 


2A9 3 


CDMD 


176 




3152 


5 6F2 


CDMD 


177 




3154 


5 7C9 


CDMD 


178 




3156 


1C0 


CDMD 


179 




3158 


OBBl 


CDMD 


180 




315A 


EODF 


CDMD 


181 




315C 


3002 


CDMD 


182 


SUBCYC 


315E 


9456 


CDMD 


183 


ADDCYC 


1454 


5C79 


CDMD 


184 


MSJK 


1456 


4286 


CDMD 


185 


CALLOP 


1458 


5D3 


CDMD 


186 


MSCLOP 


145A 


5F6A 


CDMD 


187 




145C 


7 OFF 


CDMD 


188 




145E 


7D3A 


C DM D 


189 




1460 


C359 


CDMD 


190 




1462 


7BAF 


CDMD 


191 




1464 


0002 


CDMD 


192 




1466 


C5EC 


CDMD 


193 




1468 


0B9F 


CDMD 


194 




146A 


2002 


CDMD 


195 




146C 


D1F2 


CDMD 


196 


MSJA 


146E 


E0D4 


CDMD 


197 




1470 


B13E 


CDMD 


198 




1472 


F0D4 


CDMD 


199 


MSKY 


1474 


5710 


CDMD 


200 




1476 


4 78B 


CDMD 


201 




1478 


B134 


CDMD 


20 2 




0F2C 


5773 


CDMD 


203 


SINSET 


0F2E 


0769 


CDMD 


204 




OF 30 


F4B5 


CDMD 


20 5 




0F32 


A 520 


CDMD 


20 6 





NEXTSEQ NEXTLABEL STATEMENT 







RST S K=78 


174 


MSLOW 


BR IF S5=0 


166 


MSC 


BR IF HZNZ 
STB Tl U-1 
1 = 1-1 
RDB Dl U 
RST S5 
HO=HO+KFF 


153 


MSB 


BR IF ZNZ 


133 


ENDING 


BR 

SET S5 

T0=0$K9C 

RDH D DA,BC 

P0=D1 

RST SO 

Z=T1+KBC 


182 


SUBCYC 


BR IF AC=1 


185 


CALLOP 


BR 


158 


MSHI 


BR IF LZ=0 
T1=T1L 

T0=0$K09 
ROH D DA, BE 
P0=D1 
RST SO 
Z=T1+K0B 


183 


ADDCYC 


BR IF HZ=0 
SET S K=90 


18 5 


CALLOP 


BR 

D1 = P0 

V=I 

RDB PI V 

RDB HI AS,D-1 

PlC=PiaHi+C 

STB PI V-1 


186 


MSCLOP 


BR IF D14=l 
T1C=T13T0+C 
RST S3 


196 


MSJA 


BR IF S0=0 
Z = TKK99 
SET S3 


199 


MSKY 


BR IF S5=0 


184 


MSJK 


BR IF HZNZ 


159 


MSSTOR 


BR 


184 


MSJK 


BR IF LZNZ 

RDB Dl U 
T1=01H+T1L 


154 


MSJK4 


BR 

D1=D1XH 

Z=D1+K60 


207 


SIGVAL 


BR IF AC=1 


054 


DAT EXP 


BR 



CL0AD=*E60, EC LEVEL=128266 PAGE 77 

COMMENTS 

MULTIPLY 
SO 1-SUB 
O-ADD 
S5 0-LOW HALF 
1-HI HALF 

HO=NUMBER OF BYTES 



CALCULATE 
LOOP 



SIGN CHECK AND SET ROU 
GO IS USED TO PUT THE SIGNS 

BRANCH TO DATA EXCEPTION 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



0F34 


F73C 


CDMD 


207 


SIGVAL 


0F36 


0719 


COMO 


20 8 




0F38 


F480 


CDMO 


209 




OF 3 A 


143D 


CDMD 


210 




0F3C 


128E 


COMO 


211 


EXIT 






CDMD 


212 


* 


33C8 


3 00 2 


CDMD 


213 


DVLOOP 


33CA 


5 6F2 


CDMD 


214 


DVLOPB 


33CC 


4206 


CDMD 


215 


DVLOPC 


33CE 


5 030 


CDMD 


216 


A LOOP 


33DO 


5F6A 


CDMD 


217 




33D2 


7 OFF 


CDMD 


218 




33D4 


703A 


CDMD 


219 




33D6 


C34F 


CDMD 


220 




33D8 


128E 


CDMD 


221 





211 
211 



EXIT 
EXIT 



BR IF 013=0 
Z=D1+K10 
BR IF AC = 1 
G0=G0<K30 
RTN 



CLOAD= 


=*E60, EC LEVEL= 


COMMENTS 






1010- PLUS 




11C1-MINUS 


1011- MINUS 




1110-PLUS 


1100- PLUS 




1111-PLUS 


GO BIT 2 


0: 


=ANS MINUS 1-PLS 


GO BOT 3 


= 


=REM NEG 1-PLUS 



PAGE 78 



SET 
RDH 
V=U 

ROB 
RDB 



K=90 
DA, BE 



216 ALOOP 



CDMD 


002 


CICY 


234 


CDMD 


004 


CDMD 


002 


COMO 


005 


CDMD 


008 


CDMD 


006 


CDMD 


004 


CDMD 


029 


CDMD 


03 5 


CDMD 


036 


CDMD 


028 


CDMD 


047 


CDMD 


04 5 


COMO 


052 


CDMD 


047 


CDMD 


054 


CDMD 


09 1 


CDMD 


056 


CDMD 


05 3 


CDMD 


062 


CDMD 


056 


CDMD 


068 


CDMD 


090 


CDMD 


069 


CDMD 


076 


CDMD 


077 


CDMD 


074 


CDMD 


080 


CDMD 


03 9 


CDMD 


084 


CDMD 


08 2 


CDMD 


091 


CDMD 


079 


CDMD 


096 


CDMD 


094 


CDMD 


098 


CDMD 


09 6 


CDMD 


106 


CDMD 


046 


COMO 


116 


CDMD 


114 


CDMD 


117 


CDMD 


123 


CDMD 


121 


CDMD 


119 


CDMD 


133 


CDMD 


165 


CDMD 


138 


CDMD 


10 2 


CDMD 


143 


CDMD 


141 


CDMD 


145 


CDMD 


143 


CDMD 


150 


CDMD 


107 


CDMD 


151 


CDMD 


13 2 


CDMD 


153 


CDMD 


164 


CDMD 


154 


CDMD 


202 


CDMD 


156 


CDMD 


154 


CDMD 


158 


CDMD 


174 



PI V 

HI AS.D-1 
P1C=P13H1+C 
STR PI V-l 
BR IF 014=1 
RTN 

* CROSS REFERENCE FOR CSECT CDMD * 



SET S 0,3 FOR SUB CYCLE 
GET THE SKEWED ADDRESS 

SET UP V FOR LOOP 
ACTUAL LOOP 
FOR DOING 
THE ADD OR 
SUB FUNCTION 



CICY 285 



CDMD 15C CDMD 206 



CDMD 109 



CDMD 126 CDMD 131 CDMD 134 



CDMD 130 



CDMO 


159 


CDMD 


198 






CDMD 


166 


CDMD 


158 






CDMO 


174 


CDMD 


157 






CDMD 


182 


CDMD 


172 






CDMD 


183 


CDMD 


181 






CDMD 


184 


CDMD 


19 7 


CDMD 


199 


CDMD 


185 


CDMD 


173 


CDMD 


18 3 


CDMD 


186 


CDMD 


190 






CDMD 


196 


CDMD 


193 






CDMD 


199 


CDMD 


196 






CDMD 


2 03 


CDMD 


Oil 


CDMD 


014 


CDMD 


207 


CDMD 


20 5 






CDMD 


211 


CDMD 


2C7 


CDMD 


209 


CDMD 


213 


CDMD 


052 


CDMD 


080 


CDMD 


214 


CDMD 


05 8 


CDMD 


137 


CDMD 


215 


CDMD 


071 






CDMO 


216 


CDMD 


22 







********************************** 

* CROSS REFERENCE FOR CSECT CDMO * 
********************************** 



CLOAD=*E60, EC LEVEL=128266 PAGE 79 



CNVR 070 



CDVO DESCRIPTIVE TEXT 



CLOAD=*E60* EC LEVEL=128266 PAGE 80 



Jl(^ ^C 3^C 3$C 3^C ^C 3$C 3$C ?$C 9^C 3$C 3^C 3^C 3^SC 3^ 3$C Sljc ?^C 3^C 1$C 3$C 3^C 3$C 3$C ^$C 3$C 3^ 3^C 3$C 9$C 9$C 3^C 3$C 9$C 2^C 3$C 3^C 9$C 30C 3^C 3^C 9^C 3!$C 3^C 3$C 3^C 9^C 3^C 3$C 3QC 3j^C 3$C 3$C 3$C 30C ^C 9^C 3^C ^C 3$C 3(^ 3$C 3$C )^C 3^C 

* * ***** 

* ENTRY * OPERATION * BYTE 1 * BYTE 2 * BYTE 3 * BYTE 4 * 

* RROP10 * BINARY DIVIDE * ID * Rl R2 * * * 

* RX0P5D * BINARY DIVIDE * 5D * Rl X2 * B2 D2 * 02 * 



OBJECTIVES 



THE 



THE DIVIDEND (1ST OPERAND) IS DIVIDED BY 
DIVISOR (2ND OPERAND). THE QUOTIENT AND 
REMAINDER ARE PLACED IN THE FIRST OPERAND LOCATION, 

THE DIVIDEND IS A 64 BIT SIGNED INTEGER THAT MUST 

BE LOCATED IN AN EVEN-ODD PAIR OF GENERAL PURPOSE 
REGISTERS. THE DIVISOR IS A 32 BIT SIGNED INTEGER, 
THE QUOTIENT SIGN IS DETERMINED BY THE RULES OF 
ALGEBRA. 



EXECUTION 


1 


READOUT 


CHECK F 




IF 




IN 




IN 


READOUT 




IF 




IF 


DO 


A TR 




IF 




IF 




AN 


DO 


THE 




TH 




FI 



THE DIVISOR 
OR EVEN DIVIDEND ADDRESS 

ODD ADDRESS, FLAG SPECIFICATION EXCEPTION 
CICY ROUTINE AND GO STORE INTERRUPT CODE 

PSW. 

THE DIVIDEND 

DIVIDEND MINUS, COMPLEMENT IT. 

DIVISOR MINUS, COMPLEMENT IT. 
IAL SUBTRACT 

QUOTIENT WILL FIT, DO THE DIVIDE. 

QUOTIENT TOO LARGE, FLAG A DIVIDE EXCEPTION 
D GO TO STORE INTERRUPT CODE IN PSW. 
SUBTRACT 

E QUOTIENT AND REMAINDER ARE PLACED IN THE 
RST OPERAND LOCATION. 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLA8EL STATEMENT 


COMMENTS 






C DV D 


001 


T 


i 


HNARY DIVIDE 


ROUTINES 




0390 


E195 


COVD 


002 


PR0P1D 




004 


NEQLAB 


BR IF S6=l 




0392 


3485 


CDVD 


00 3 










G0=G0$K80 




0394 


8 AC 8 


CDVD 


004 


NEQLAB 


CCOM 


02 9 


LGET 


BAL 




0396 


B2C2 


CDVD 


00 5 






009 


MEET 


BR 




32 BC 


5618 


CDVD 


CO 6 


RX0P5D 








RDH D U+2 


READ 


32BE 


5E10 


CDVO 


007 










RDH H U 


OUT DIV 


32C0 


55BB 


CDVD 


0C8 










T1=G1H 




32C2 


F54 6 


CDVD 


009 


MEET 




Oil 


MEETA 


BR IF G13=0 




32C4 


AE94 


CDVD 


010 




CICY 


070 


SPECHK 


BR 




32C6 


9814 


CDVD 


Oil 


MEETA 


CCOM 


057 


LSAVEA 


BAL 




32C8 


5448 


CDVD 


012 










RDH G AS,T+2 


READ 


32CA 


5 8AA 


CDVD 


013 










RDH I AS,T-2 


OUT 


32CC 


3B15 


CDVO 


014 










T1=T1$K10 


THE 


32CE 


5 2A8 


CDVD 


015 










RDH V AS,T+2 


DVD 


32D0 


50AA 


CDVD 


016 










RDH U AS,T-2 




32D2 


C65S 


CDVD 


017 






020 


MEETB 


BR IF 000=0 




32D4 


B30A 


CDVD 


018 




CCOM 


076 


COM PL 


BAL 


MINUS 


32D6 


3B13 


CDVD 


019 










T1=T1$K01 


DIV 


32D8 


C45E 


CDVD 


02 


MEETB 




02 3 


MEETD 


BR IF GC0=0 




32DA 


9676 


CDVD 


021 






08 8 


COMDVD 


BAL 


MINUS 


32DC 


3B2 3 


CDVD 


022 










T1=T1$K0 2 


DVD 


32DE 


4C86 


CDVD 


023 


MEETD 








P=I 


SETUP 


32E0 


3 00 2 


CDVD 


024 










SET S K=90 


AND DO 


32E2 


7DFD 


CDVD 


025 










P1C=P1«H1+C 


TRIAL 


32E4 


7CFD 


CDVD 


026 










PaC=PO£HO+C 


SUBTRACT 


32E6 


4C46 


CDVD 


027 










P=G 




32E8 


7D7D 


CDVD 


028 










PlC=PlfDl+C 





ADOR 



WORD SEQUENCE NO. LABEL 



32 E A 


7C6D 


COVD 


029 




32EC 


F5F0 


COVD 


030 




32EE 


A8FC 


COVO 


031 




32E0 


4C52 


COVD 


032 


MEETC 


32E2 


10CE 


COVO 


033 




32F4 


AEF8 


COVO 


034 




32F6 


8DDC 


COVD 


035 




ODDA 


AEF6 


COVO 


036 


INSERT 


ODDC 


3 00 2 


COVD 


03 7 


ARND 


OODE 


79F0 


COVD 


03 8 


COM PUT 


ODEO 


78ED 


COVO 


039 




0DE2 


7 57D 


COVD 


040 




0DE4 


746D 


CDVO 


041 




00E6 


F5D8 


COVD 


042 




ODE8 


AFF6 


COVD 


043 




ODEA 


1002 


COVO 


044 




ODEC 


8DDE 


COVD 


045 




?PE6 


2C1B 


CDVO 


046 


SHIFT 


2EF8 


611D 


CDVO 


04 7 


SHIFTA 


2EFA 


6000 


CDVO 


048 




2EFC 


633D 


CDVO 


04 9 




2EFE 


622D 


COVD 


050 




2F00 


ECOO 


CDVD 


051 




2F02 


6990 


COVD 


05? 




2F04 


688D 


CDVD 


05 3 




2F06 


655D 


CDVD 


054 




2F08 


6440 


CDVD 


055 




2F0A 


128E 


CDVD 


056 




2FOC 


418 


COVD 


057 


CYCLE 


2F0E 


100 2 


CDVD 


05 8 




2F10 


7 9FD 


CDVD 


059 




2F12 


78E0 


CDVD 


060 




2*=14 


757D 


CDVD 


061 




2F16 


746D 


CDVD 


062 




2F18 


5BC9 


CDVD 


06 3 


ARNQ 


2F1A 


5 209 


CDVD 


064 




2F1C 


E82 7 


CDVD 


065 




2F1E 


C43 6 


CDVD 


066 




2F20 


968A 


CDVO 


067 




2F22 


C43 6 


CDVD 


068 




2F24 


A3FC 


CDVD 


069 


LABELQ 


2F26 


C42B 


CDVD 


070 


NXTA 


2F28 


968 A 


CDVD 


071 




2F2A 


F839 


CDVD 


072 


NXTD 


2F2C 


968E 


CDVD 


073 


NXTC 


2F2E 


52D9 


CDVD 


074 




2F3C 


D5BA 


CDVD 


075 




2F32 


C03B 


CDVD 


076 




2F34 


ABFC 


CDVD 


077 




2E36 


F82D 


CDVD 


078 


NXTB 


2F38 


C025 


COVD 


079 


NXTF 



^EXTSEQ 


NEXTLABEL 


STATEMENT 
POC=PO^DO+C 


032 


MEETC 


BR IF 


S3=0 


09 8 


DIVCHK 


BR 








RDH P 


DC,9A 






RST S 


K=FC 


04 7 


SHIFTA 


BAL 




03 7 


ARND 


BR 




046 


SHIFT 


BAL 








SET S 


K=90 






UC = Il*Hi + C 






I0C=IC2HO+C 






G1C=G1*D1+C 






G0C=G02D0+C 


036 


INSERT 


BR IF 


S3 = l 


046 


SHIFT 


BAL 








RST S 


K=90 


03 8 


COMPUT 


BR 








P0=PC+K01 






U1C=U1+U1+C 






U0C=U0+U0+C 






V1C=V1 


+ V1+C 






V0C=V0+V0+C 


057 


CYCLE 


BR IF 


P02=l 






UC = I1+I 1+C 






I0C=I0+I0+C 






G1C=G1 


L+Gl+C 






GOC=G0+G0+C 






RTN 




063 


ARNO 


BR IF 


GO 0=0 






RST S 


K = 90 






IlOUSHl+C 






I0C=I0$H0+C 






G10G135DH-C 






GOC=GC£DO+C 






P0=T1 








P1 = VC 




070 


NXTA 


BR IF 


P06=l 


07 8 


NXTB 


BR IF 


GO 0=0 


100 


COMR 


BAL 




078 


NXTB 


BR IF 


GO 0=0 


09 8 


DIVCHK 


BR 




07 2 


NXTD 


BR IF 


GC0=1 


100 


COMR 


BAL 




079 


NXTF 


BR IF 


P0 7=l 


102 


COM QUO 


BAL 
P1 = VC 




080 


FINISH 


BR IF 


S1=0 


08 


FINISH 


BR IF 


PI BITC=1 


09 8 


DIVCHK 


BR 




073 


NXTC 


BR IF 


P0 7=l 


069 


LABELQ 


BR IF 


P10=l 



CL0AD=*E60t 
COMMENTS 



BRANCJ OK 



EC LEVEL=128266 PAGE 81 



SHIFT 
LEFT 
ROUTINE 



REM 
REM 



SHD BE + IS *• 



ADOR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL STATEMENT 


I 


2F3A 


5BBB 


COVD 


080 


FINISH 








T1=T1H 




2F3C 


72A8 


CDVO 


081 










STH V AStT+2 




2F3E 


7 0AA 


CDVD 


082 










STH U AS,T-2 




2F40 


1B15 


CDVD 


08 3 










T1=T1*-K1C 




2F42 


74A8 


COVO 


084 










STH G AS,T+2 




2F44 


78AA 


COVD 


085 










STH I AS,T-2 




2F46 


8 176 


CDVD 


086 




CCOM 


065 


LRSTRA 


BAL 




2F48 


AA76 


CDVD 


087 




CICY 


00 4 


CHECK 


BR 




16 76 


2002 


CDVD 


088 


COMOVD 








SET S K=10 


COMP 


1678 


711B 


CDVD 


089 










U1C=C-U1+C 


DVD 


167A 


700B 


CDVD 


090 










U0C=0-U0+C 




167C 


733B 


COVO 


091 










V1C=0-V1+C 




167E 


7 22 3 


CDVD 


092 










V0C=0-V0+C 




1680 


799B 


COVD 


093 


CMOVA 








I1C=C-IH-C 




1682 


78SB 


COVD 


094 










I0C=0-I0+C 




1684 


755B 


CDVD 


09 5 










G1C=0-G1+C 




1686 


7 44B 


COVD 


096 










G0C=0-G0+C 




1688 


128E 


CDVD 


097 










RTN 




23FC 


8176 


COVD 


098 


DIVCHK 


CCOM 


06 5 


LRSTRA 


BAL 




2BFE 


ABE2 


CDVD 


099 




CNVR 


120 


LAB14 


BR 


GO F 


168A 


2002 


CDVO 


100 


COMR 








SET S K=10 




168C 


F581 


CDVD 


101 






093 


CMDVA 


BR IF S3=l 




"16 8E 


0008 


CDVD 


10 2 


COMQUO 








RST SI 




1690 


3 00 2 


CDVD 


103 










SET S K=90 




1692 


711B 


CDVD 


104 










U1C=0-U1+C 




1694 


7008 


CDVD 


1C5 










U0C=0-U0+C 




1696 


7 33B 


COVD 


106 










V1C=0-V1+C 




1693 


722B 


CDVD 


107 










V0C=0-V0+C 




169A 


128E 


CDVD 


108 










RTN 


















*$$*$ *$#*$**:*$$£$*$£$«$£$$$$$$$-*$* 
















* CROSS 


REFERENCE FOR CSECT 


COVD * 
















^C 9§C3$C 9$C 3pC 3$C1$C 3$C 2$C <$: 3$C 2$C & 3$C3$;3i^9§:2£c2§C3$CJ$C3$C3$C2$C2$C a$C3$£)$C)£c3$cafcj$C3$c)$e 



CL0AD=*E6Qt 

COMMENTS 



EC LEVEL=128266 PAGE 82 



FLAG DIVIDE CHECK AND INTRPT 



CDVD 


00? 


CICY 


182 


CDVD 


004 


CDVD 


00? 


CDVD 


006 


CICY 


214 


CDVD 


009 


CDVD 


00 5 


CDVD 


Oil 


CDVD 


009 


CDVD 


020 


CDVD 


017 


CDVO 


023 


CDVD 


020 


CDVD 


032 


CDVD 


030 


CDVD 


036 


CDVD 


042 


CDVD 


037 


CDVD 


035 


CDVD 


038 


CDVD 


04 5 


CDVD 


046 


CDVD 


03 6 


COVD 


047 


CDVD 


034 


CDVD 


057 


CDVD 


051 


CDVD 


063 


CDVD 


057 


CDVD 


069 


CDVD 


079 


CDVD 


070 


CDVD 


06 5 


CDVD 


072 


CDVD 


070 


CDVD 


73 


CDVD 


078 



COVD 043 



CDVD 


078 


CDVD 


066 


CDVD 


06 8 


CDVD 


079 


CDVD 


072 






CDVD 


080 


CDVD 


075 


CDVD 


076 


CDVD 


088 


CDVD 


021 






CDVD 


093 


CDVD 


101 






CDVD 


098 


CDVD 


031 


CDVD 


06 9 


CDVD 


100 


CDVD 


067 


CDVD 


071 


CDVD 


102 


CDVD 


073 







CDVD 077 



* CROSS REFERENCE FOR CSECT CDVD * 
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CFAD DESCRIPTIVE TEXT 



CLOAD=*E60, EC LEVEL=128266 PAGE 84 



ENTRY IS MADE TO THE -CFAD- ROUTINE FROM FLOATING 
POINT I-CYCLES -CFCY-. THE NORMALIZED AND UNNOR MALI ZED 
ADD OR SUBTRACT, AND COMPARE OP CODES LISTED BELOW ARE 
HANDLED BY THIS ROUTINE. 



OBJECTIVES 



* OP CODE TYPE * BYTE 1 * BYTE 2 * BYTE 3 * BYTE 4 * 

* RR COMPARE (LONG) * 29 * Rl R2 * * * 

sfc— — ——— — — — ——————— — — —— ———— — 3$e — — — — — — — — — j$e — ■— -——. — — — $— — — — — — — — 3$: — — — — — — — — — j$c 

* RR ADD NORM. (LONG) * 2A * Rl R2 * * * 

* RR SUB. N1RM. (LONG) * 2B * Rl R2 * * * 

* * * * * * 

* RR ADD UNORM. (LONG) * 2E * Rl R2 * * * 

* . * * * * * 

* RR SUB UNARM. (LONG) * 2F * Rl R2 * * * 

sjc— — — — — — — — — — — — — — — — — j$e— — — — — — — — — 3$e— — —— — —— — # — — .— — — — — — — j&— — — — — — — — — $ 

* RR COiMPARE (SHORT) * 39 * Rl R2 * * * 

$ $ .---# — , — . $ # # 

* RR ADD NORM. (SHORT) * 3A * Rl R2 * * * 

3$C — ———— — — — — — — — _ — — «■.— — — — — — — — 3$C — — — .— — — — — — 3$C —————— — — — )$g MaKBaioooo*^ — — — — — — — — — J$C 

* RR SUB NORM. (SHORT) * 3B * Rl R2 * * * 

#— , , ajc # — ^ • * # ajc 

* RR ADD UNORM. (SHORT! * 3E * Rl R2 * * * 

& . $ — # $ , # # 

* RR SUB UNORM. (SHORT) * 3F ^ Rl R2 * * * 

s*c _— «. «»«.«.«.«.„— — . ...» — — — — — — — — — jfc— — — — — — — — — jfc — ————— — — — # — — — — _— — — — # ——————— — — $ 

* PX COMPARE (LONG) * 69 * Rl X2 * B2 D2 * D2 * 

sj: __.£ !jc — — * * _ # 

* RX ADD NORM. (LONG) * 6A * Rl X2 * 82 D2 * D2 * 

3^?— — ——— — — — — —— —— — — — — — — «_——_.— 3$: — — ——— — — — $ ————————— $————— — — — — 3$C — ———————— 3$C 

* RX SUB NORM. (LONG) * 6B * Rl X2 * 82 D2 * D2 * 

* # # * * * 

* RX ADD UNORM. (LONG) * 6E * Rl X2 * B2 02 * D2 * 

# , * . * * # # 

* RX SUB UNORM. (LONG) * 6F * Rl X2 * B2 D2 * 02 * 

* RX COMPARE (SHORT) * 79 * Rl X2 * B2 02 * D2 * 

* RX ADD NORM. (SHORT) * 7A * R2 X2 * 82 D2 * 02 * 

$£ — — — ———————————— ———————— — ^j — ——————— — j£ — — — — — — — — j$e— — — — ——— — — # —— — — — — — — — jjc 

* RX SUB NORM. (SHORT) * 7B * R2 X2 * 82 D2 * D2 * 

30C. . ■ — ■ #— — — — — — — — 3?C— — — — — — — — & — — , # — — — — 3fC 

* RX ADD UNORM. (SHORT) * 7E * Rl X2 * 82 D2 * D2 * 

* _ ajt * # # * 

* RX SUB UNORM. (SHORT) * 7F * Rl X2 * 82 02 * 02 * 

# . # ___._#__ * * # 



COMPARE OPS - 



ADD OPS 



THE FIRST OPERAND IS COMPARED WITH 
THE SECOND OPERAND. THE CONDITION CODE 
IS SET TO INDICATE THE RESULT OF THE 
COMPARE. COMPARISON TAKES INTO ACCOUNT 
THE SIGN, FRACTION, AND EXPONENT OF 
EACH OPERAND. 



- THE SECOND OPERAND IS ADDED TO THE 
FIRST OPERAND, AND THE SUM IS PLACED 
IN THE FIRST OPERAND LOCATION. FOR 



SHORT OP FORMATS, THE 
OF THE FLOATING POINT 
NOT USED. 

CHARACTERISTICS ARE 
AOOITION TAKES PLACE. 



LOW ORDER 
REGISTERS 



HALVES 
ARE 



ALIGNED BEFORE 



SUBTRACT OPS- THE SECOND OPERAND IS SUBTRACTED 
FROM THE FIRST OPERAND, AND THE 
DIFFERENCE IS PLACED IN THE FIRST 
OPERAND LOCATION. FOR SHORT OP FORMATS 
THE LOW ORDER HALVES OF THE FLOATING 
POINT REGISTERS ARE NOT USED. 

CHARACTERISTICS ARE ALIGNED BEFORE 
SUBTRACTION TAKES PLACE. 



CONDITION CODES 



COMPARE 



ADD 
AND 
SUBTRACT 



0=OPERANDS ARE EQUAL 
1=FIRST OPERAND IS LOW 
2=FIRST OPERAND IS HIGH 

0=RESULT FRACTION IS ZERO 
1=RESULT IS LESS THAN ZERO 
2=RESULT IS GREATER THAN ZERO 
3=RESULT EXPONENT OVERFLOWS 



ADDR 



WORD SEQUENCE NO, 



0AF2 
OAF4 
0AF6 
OAFS 
OAFA 
OAFC 
OAFE 

OBGO 
0B02 
OB04 

0B06 
0308 
OBOA 
OBOC 
OBOE 
OB 10 

0B12 
0B14 
0B16 
0B18 

0B1A 
CB1C 
0B1E 
0B20 
0B22 
0B24 
0B26 
0B28 
0B2A 
0B2C 
0B2E 
0B30 
0B32 
0B34 
0B36 
0838 
0B3A 
0B3C 
083E 
0B40 
GB42 
0B44 
0346 



3B35 
896A 
5E79 
5AE2 
B42E 
2 CO 7 
5E69 
5ED9 
2 040 
7671 

E48E 
F491 
56C9 
8B16 
F48B 
0040 

5 7E9 
7C61 

F01A 
1C8D 
CC1E 
3002 
1C8 5 
E0A5 
2CF3 
F08P 
0186 
3B3 5 
B42E 
A 65 6 
8 96 A 
5AE2 
B42E 
8B40 
1E8 5 
CD3C 
3E85 
A 65 6 
0040 
3B3 5 
000 8 
D1CB 
75A0 



CFAD 
CFAD 
CPAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 
C n A0 
CFAD 
CFAD 
CFAD 
CFAD 
CFAD 



001 
002 

00 3 
004 
005 
006 
007 
008 
009 
010 
Oil 
012 
013 
014 
015 
016 
017 

1 8 
019 
020 
021 
022 

02 3 
024 
02 5 
02 6 
02 7 
028 
029 
030 
031 
032 
033 
034 
035 
036 
037 
038 
039 
040 
041 
04 2 
043 
044 
045 
046 
047 
04 8 
049 
050 
051 



LABEL 

T 

* 
* 

ASEO 
SCAD 



NEXTSEQ 



AL07=72 



HAV1BC 

NOTOVF 

NGT1BC 



TCCTRL 

THISAD 
TRUE 

SPEEDY 



SHIFR1 



DESADD 
NOSHIF 

ADD 



R2TRUE 



C2 2 

02 3 

027 
020 



029 

031 



047 
043 

CFCO 090 
CFCO 007 
CFCO 078 

CFCO 090 
04 8 

046 

CFCO 007 



NEXTLABEL STATEMENT 

ADDtSUBTRACTtCOMPARE FLOATING POINT 



CL0AD=*E60, EC LEVEL=128266 PAGE 85 

COMMENTS 



CFCO 078 ST0RE2 



CFCO 090 RDOPER 



NOTOVF 
N0T1BC 

TCCTRL 
HAV18C 



THISAD 

TRUE 



034 SPEEDY 



NOSHIF 
SHIFR1 

RDOPER 
SHIFR4 
STORE 2 

RDOPER 
ADD 

DESAOD 

SHIFR4 



T1=T1$K30 ** T=ADD 
BAL 

D1 = H0 

RDM T DA,BC 

BAL 

P0=0 

DO=HO 

P1 = H0 

SET S5 



OF SAVE AREA-38 OR 
SAVE 2ND OPERAND 
SAVE R2 EXPONENT 
GET Rl ADDRESS 
GET Rl OPERAND 



78 IN AUX 



** S5 WILL 



00=00-01+1 



NO 



SAVE Rl EXP 

SAVE Rl EXP FOP ORIG SIGN 
BE RST IF Rl MUST BE RIGHT SHIFT 
SUBTRACT R1EXP-R2EXP 
1BC IND. Rl MUST SHIFT DO HAS COUNT 



053 R2GUAR 



BR IF NOVFL 
BR IF AC=1 
PO=DO ** SHIFT 
BR 

BR IF AC=1 

RST S5 ** NO 1BC Rl IS 
R2 IS RES EXP 
H0 = D1 

P0=P0-D0+1 ** SHIFT 
BR IF G07=0 
P0=P0<K80 
BR IF P00=0 
SET S K=90 ** SET 
P0=PC*-K8C 
BR IF HZ=0 
P0=0$K0F 
BR IF L7=0 
BR IF S5=0 
T1=T1$K30 
BAL 
BAL 
BAL 

RDH T DAtBC 
BAL 
BR 

H0=H0*-K80 
BR IF P10=0 
H0=H0$K80 
BAL 

RST S5 ** NO SHIFT 
T1=T1$K30 
RST SI 
BR IF S5=l 
G1C=G1£T0+C 



OVFL IS ON 
COUNT TRUE FORM TO PO 



SMALL-MUST SHIFT 
MOVE R2 EXP TO Rl 



OPERAND 



COUNT IS IN COMP. MUST RECOMP 
BR IF ADD COMP CTRL IS OK 
SUB,COMP-MUST INVERT T/C BIT 
BR IF TRUF 
COMP CTRL AND CARRY 
REMOVE SIGN FROM SHIFT COUNT 
BR IF NO HI COUNT ALIGNMENT 
USE COUNT OF 15 TO ZERO OUT REG 
BR IF EXPONENTS ARE EQUAL 
BR IF Rl MUST SHIFT 
T= R2 SAVE 
GET R2 



PUT SHIFTED R2 BACK 
GET Rl ADD T=00X8 



IN SAVE 



MAKE RESULT SIGN *■ 
BR IF OR IG SIGN + SIGN 
ORIG WAS - MAKE RES - 
GO SHIFT Rl RIGHT 
RST S5 FOR GUARD DIGIT 
T= 38 OR 78 =R2 SAVE 
FOR GUARD SIGNIF. TEST 
BR IF GUARD IS R2 
DO SIG TEST ON Rl 



IS OK 



CTRL 



ADDR 


WORD 


SEQUENC 


;e no. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


0B48 


8B4E 


CFAO 


052 






05 5 


CHKNOR 


BR 


0R4A 


C5C6 


CPAD 


053 


R2GUAR 




051 


R2TRUE 


BR IF S0=0 


0B4C 


755B 


CFAD 


054 










G1C=C-G1+C 


0B4E 


005 2 


CFAD 


055 


CHKNOR 




057 


NORM 


BR IF G05=0 


0B50 


0008 


CFAD 


056 










RST SI ** UNO 


0B52 


B04A 


CFAD 


057 


^ORM 


CFCO 


120 


COM PUT 


BAL 


0B54 


5AE2 


C=AD 


05 8 










RDH T DA,BC 


0B56 


C5EE 


CFAD 


059 






071 


TCOMPU 


BR IF S0=0 


0B58 


F5DE 


CFAD 


060 






063 


NOCARY 


BR IF S3=0 


0B5A 


COO 2 


CFAD 


061 










RST S3 


0B5C 


8B6E 


CFAD 


062 






071 


TCOMPU 


BR 


0B5E 


1E8 


CFAD 


063 


MOCARY 








H0=H0<K80 


OB60 


E070 


CFAD 


064 






072 


CPFIN 


BR IF G06=0 


0B62 


0008 


CFAD 


065 










RST SI 


0B64 


2002 


CFAD 


066 










SET S3 


0B66 


755B 


CFAD 


067 










G1C=0-G1+C 


0B68 


D06C 


CFAD 


068 






070 


SAVSIG 


BR IF GO 5=0 


0B6A 


0008 


CFAD 


069 










RST SI (_ 


OBfeC 


9564 


CFAD 


070 


SAVSIG 


CFCO 


103 


RECOMP 


BAL \ 


0B6E 


F07F 


CFAD 


071 


TCOMPU 




080 


NOTCP 


BR IF GO 6=1 / 


0B70 


8178 


CFAD 


072 


CPFIN 


CCOM 


066 


LRSTRB 


BAL \ 


0B72 


D5F9 


CFAD 


073 






07 7 


COMNZ 


BR IF Sl=l 


OB74 


F5F9 


CFAD 


074 






077 


COMNZ 


BR IF S3=l 


0B76 


AA74 


CFAD 
CFAD 


075 
076 


# 


CICY 


003 


CHECKX 


BR ** RES =0 


0B78 


CE7D 


CFAD 


077 


COMNZ 




079 


COHPNE 


BR IF H00=1 


0B7A 


A824 


CFAD 


078 




CLOG 


06 3 


0P95A 


BR 


0B7C 


A 82 


C C AD 


079 


COMPNE 


CLOG 


061 


0P95C 


BR 


0B7E 


F5A9 


CFAD 
CFAD 


080 
08 1 


NOTCP 




104 


FRACOV 


BR IF S3 = l 


OB 80 


5CC? 


CFAD 


C82 










RDH P DA f BS 


0B82 


D5CA 


CFAD 


08 3 






123 


FRACZO 


BR IF S1=0 


0884 


004? 


CFAD 


084 






118 


UNOREN 


BR IF GO 5=1 


0B86 


0FF3 


CFAD 


085 


CONORM 








Z=H1*-K0F 


0B88 


C4C2 


CFAO 


086 






118 


UNOREN 


BR IF ZNZ 


0B8A 


B2F8 


CFAD 


087 




CFCO 


034 


SHIFL4 


BAL 


0B8C 


2EFF 


CFAD 


088 










H0=H0+KFF 


0B8E 


E496 


CFAD 


C89 






093 


NOOVER 


BR IF NOVFL 


0B9G 


F499 


CFAD 


090 






094 


UNDERF 


BR IF AC = 1 


0B92 


2 50 7 


CFAD 


091 


HA1BC 








G1=0 ** ZERO 


0B94 


8B86 


CFAD 


09 2 






085 


CONORM 


BR 


0B96 


F493 


CFAD 


09 3 


NOOVER 




091 


HA1BC 


BR IF AC=1 


0B98 


ED1F 


CFAD 
CFAD 
CFAD 


094 

095 
096 


UNDERF 
* 
* 




099 


TAKEIN 


BR IF P12=l 

IF 
IF 


0B9A 


2 CO 7 


CFAD 


097 










P0 = 


0B9C 


B1A0 


CFAD 


09 8 




CFHA 


02 9 


DIVNOI 


BR ** UNDERFLO 


0B9E 


2080 


CFAD 


099 


TAKE IN 








SET S4 


OBAO 


1E8D 


CFAD 


100 










H0=H0<K80 


0BA2 


27D3 


CFAD 


101 










D1=0$KOO 


0BA4 


2507 


CFAD 


102 










G1 = 



D 
R2 



CL0AD=*E60, 

COMMENTS 



TRUE ADD 
GUARD COMP 
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UNORMALIZED-GUARD NOT TESTED 
GO ADD,S,C R1%R2 
GET Rl ADDRESS 
BR IF TRUE COMPUTE 
COMPLIMENT -CHECK CARRY 



FOR SIGNIFI. 



ALL OK RESULT 
INV SIGN-COMP 
BR IF COMPARE 

RST SI FOR RES 
COMP GUARD 



IS TRUE FORM 
OP -MUST RECOMP 



CHECK OF COMP 



BR IF NORMAL. SAVE GUARD SIGNIF, 
UNORM. RST SIG. TEST BIT 

BR IF ADD OR SUB 

SET 

3R IF OVERFLOW ON CMP.— NOT-0 
COND 

COOE 
BR IF NEG 
SET CC 2 
SET CC 1 
BR IF CARR RES NOT 

FRACTION MUST SHIFT RIGHT 4 
RESTORE P 
GO CHECK SIG MASK 

CHECK HI DIGIT FOR NORMALIZING 
BR IF NO NORMALIZE REQUIRED 

DECREMENT EXPONENT 



ERO GUARD-HAVE 1BC NO UNDERFLOW 



EXPONENT HAS UNDERFLOWED 
UNDF IS MASKED RESULT IS O'D OUT 
NOT MASKED CONT NORM. BUT TAKE INTER. 

SET CCO 
i BUT NO INT, GO STORE CREST I, GO ICYC 

REMEMBER INT 

INVERT SIGN 

UNDERFLOW INT CODE 

ZERO OUT GUARD 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E60t 
COMMENTS 



EC LEVEL=128266 PAGE 87 



0BA6 


8B86 


CFAD 


103 






085 


CONORM 


BR 


CONTINUE NORMALIZING 


0BA8 


2A13 


CFAD 
CFAD 


104 

105 


FRACOV 








T0=0$K01 


FRAC.HAS OVERF. INSERT 01 FOR 
RIGHT SHIFT 


08AA 


2C13 


CFAD 


106 










P0=0$K01 


SET SHIFT COUNT =1 


OBAC 


A656 


CFAD 


10 7 




CFCO 


007 


SHIFR4 


BAL 




OBAE 


5CC2 


CFAD 


108 










RDH P DA,B8 


RESTORE P 


OBBO 


2A0 7 


CFAD 


109 










T0=0 




0BB2 


2E1B 


CFAD 


110 










H0=H0+K01 


INC EXPONENT 


0BB4 


E4BB 


CFAD 


111 






114 


ACBRAN 


BR IF OVFL 


CHECK 


0BB6 


F4BD 


CFAD 


112 






115 


EXPOV 


BR IF AC=1 


FOR EXPONENT OVERFLOW 


OBB8 


R8C2 


CFAD 


113 


N01BC 




118 


UNOREN 


BR ** NO 1BC-N0 


OVERFLOW-GO SET CC+STORE RESULT 


OBBA 


F4B9 


CFAD 


114 


ACBRAN 




113 


N01BC 


BR IF AC=1 




OBBC 


1E8D 


CFAD 


115 


EXPOV 








H0=H0<K80 


INVERT SIGN 


OBBE 


2 7C3 


CFAD 


116 










Dl=C$K0C 


SET OVERF INT CODE 


OBCO 


208C 


CFAD 


117 










SET S4 


REMEMBER INT TO BE TAKEN 


OBC2 


2C25 


CFAD 


118 


UNO REN 








PO=0$K20 


SET CC 2 + 


OBC4 


CE4 8 


CFAD 


119 






121 


FIN 


BR IF H00=0 


IF POS CC IS CORRECT 


08C6 


1C7D 


CFAD 


120 










P0=P0<K70 


RES - CORRECT CC = 1 


0BC8 


B1A6 


CFAD 
CFAD 


121 
122 


FIN 
* 


CFHA 


03 2 


ST0RE1 


BR 


STORE RESULT, RESTORE I , GO TO 
I CYCLES OR INTER. IF S4=l 


OBCA 


FD4F 


CFAD 


123 


FRACZO 




12 5 


SIGINT 


BR IF P13=l 


BR IF SIG INT NOT MASKED 


OBCC 


2 EC 7 


CFAD 


124 










H0=0 


ZERO OUT EXP -NO INT 


08CE 


1F8 5 


CFAD 


12 5 


SIGINT 








H0=H0*-K80 


MAKE TRUE ZERO 


OBDO 


8 96 A 


CFAD 


126 




CFCO 


07 8 


ST0RE2 


BAL 


STORE RES 


OBD2 


817A 


C=AD 


127 




CCOM 


06 7 


LRSTRC 


BAL 


RESTORE I 


OB04 


2 CO 7 


CFAD 


128 










P0 = 


C C c 


0BD6 


FD5B 


CFAD 


129 






131 


TSIGIN 


BR IF PI 3= I 




0BD8 


AA76 


CFAO 


130 




CICY 


004 


CHECK 


BR 




08DA 


2 BE 3 


CFAD 


131 


TSIGIN 








T1=C$K0E 




OBDC 


8 9FC 


CFAD 
CFAD 


132 
133 


AEND 


8PSW 


00 3 


PROG 


BR 





CFAD 


007 


CFCY 


06 1 


CFAD 


020 


CFAD 


022 


CFAO 


022 


CFAD 


01 s 


CFAD 


023 


CFAD 


019 


CFAD 


027 


CFAO 


021 


CFAD 


029 


CFAD 


02 7 


CFAD 


031 


CFAD 


02 9 


CFAD 


34 


CFAD 


03? 


CFAD 


043 


CFAD 


03 5 


CFAD 


046 


CFAO 


044 


CFAD 


047 


CFAD 


034 


CFAD 


048 


CFAD 


042 


CFAD 


051 


CFAD 


053 


CFAD 


053 


CFAD 


050 


CFAD 


055 


CFAD 


052 


CFAD 


057 


CFAD 


055 


CFAD 


063 


CFAD 


060 



CFCY 062 CFCY 063 CFCY 



********************************** 

* CROSS REFERENCE FOR CSECT CFAO * 
066 CFCY 067 



CFAD 


070 


CFAD 


068 


CFAD 


071 


CFAD 


059 


CFAD 


072 


CFAD 


064 


CFAD 


077 


CFAD 


073 


CFAD 


079 


CFAD 


077 


CFAD 


080 


CFAD 


071 


CFAD 


085 


CFAD 


092 


CFAD 


091 


CFAD 


093 


CFAD 


093 


CFAD 


089 


CFAD 


094 


CFAD 


090 


CFAD 


099 


CFAD 


09 4 


CFAD 


104 


CFAD 


080 


CFAD 


113 


CFAD 


114 


CFAD 


114 


CFAD 


111 


CFAD 


115 


CFAD 


112 


CFAD 


118 


CFAP 


84 


CFAD 


121 


CFAD 


119 


CFAD 


123 


CFAD 


083 


CFAD 


125 


CFAD 


123 


CFAD 


131 


CFAD 


129 



************* ********************* 

* CROSS REFERENCE FOR CSECT CFAD * 
********************************** 
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CFAD 062 



CFAD 074 



CFAD 103 



CFAD 086 CFAD 113 



ADOR 



WORD SEQUENCE NO, 



LABEL 







CFCO 


001 


T 






CFCO 


00 2 


* 






CFCO 


00 3 


* 






CFCO 


004 


* 






CFCO 


005 


* 






CFCO 


006 


* 


2656 


F45C 


CFCO 


00 7 


SHIFR4 


2658 


4953 


CFCO 


008 




265A 


F46F 


CFCO 


009 




265C 


415 3 


CFCO 


010 


RLONG 


265E 


5115 


CFCO 


Oil 




2660 


4013 


CFCO 


012 




2662 


500 5 


c=co 


013 




2664 


430 3 


CFCO 


014 




2666 


5335 


CFCO 


015 




2668 


4233 


CFCO 


016 




26 6A 


5225 


CFCO 


017 




266C 


4^23 


CFCO 


018 




26 6E 


5995 


CFCO 


019 


R SHORT 


2670 


4893 


CFCO 


020 




2672 


5 885 


CFCO 


021 




2674 


4F83 


CFCO 


022 




2676 


5FF5 


CFCO 


02 3 




2678 


4AF3 


CFCO 


024 




26 7 A 


2CFF 


CFCO 


025 




267C 


C4D6 


C^CO 


026 




267E 


128E 


CFCO 


027 








CFCO 


028 


* 






CFCO 


029 


* 






CFCO 


030 


* 






CFCO 


031 


* 






CFCO 


03 2 


* 






CFCO 


033 


* 


32F8 


5FF3 


CFCO 


034 


SHIFL4 


32 FA 


4 8F5 


CFCO 


035 




32FC 


5883 


CFCO 


03 6 




32FE 


4 98 5 


CFCO 


037 




3300 


599 3 


CFCO 


038 




3302 


F408 


C^CO 


039 




3304 


4 59 5 


CFCO 


040 




3306 


128F 


C FC 


041 




3308 


4295 


CFCO 


042 


LONGL 


330A 


5 22 3 


CFCO 


043 




330C 


432 5 


CFCO 


044 




330E 


5333 


CFCO 


045 




3310 


4035 


CFCO 


046 




3312 


5 003 


CFCO 


04 7 




3314 


4105 


CFCO 


048 




3316 


511 3 


CFCO 


049 




3318 


4515 


CFCO 


050 




331A 


128E 


CFCO 


051 





NEXTSEQ NEXTLABEL STATEMENT 

*** COMMON FLOATING POINT ROUTINES **# 

*** SHIFT RIGHT 4 *** 
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COMMENTS 



010 RLONG 
019 R SHORT 



007 SHIFR4 



042 LONGL 



BR IF 
G1=I1 
BR IF 
Gi = Ul 
Ul = Ul 
U1 = U0 
U0=U0 
U0=V1 
V1 = V1 
V1 = V0 

vo=vo 

V0=I1 

11 = 11 

11=10 
10=10 
I0=H1 
H1 = H1 

H1=T0 
P0=P0 
BR IF 
RTN 



G03=0 
XH+G1L 

GO 3=1 
XH+G1L 
XL 

XH+U1L 
XL 

XH+UOL 
XL 

XH+V1L 
XL 

XH+VOL 
XL 

XH+I1L 
XL 

XH+IOL 
XL 

XH+H1L 
+ KFF 

INI 



BR IF LONG 

UNC BRANCH TO SHORT OP 
SAVE GUARD LONG 



DEC SHIFTCOUNT 



*** SHIFT LEFT 4 *** 



H1 = H1 

H1=IC 

10=10 

10=11 

11=11 

BR IF 

U = G1 

RTN 

I1 = V0 

V0=VC 

V0=V1 

V1 = V1 

V1 = U0 

U0=U0 

U0=U1 

U1 = U1 

U1=G1 

RTN 



XH 

XL$H1H 

XH 

XLSIOH 

XH 

GO 3=0 
XL$I1H 

XL$I1H 

XH 

XL$V0H 

XH 

XL$V1H 

XH 

XL$U0H 

XH 

XL$U1H 



BR IF LONG 
SHIFT IN GUARD 



SHIFT IN LONG GUARD 



AODR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEO 



NEXTLABEL STATEMENT 
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COMMENTS 







C.FCO 


052 


* 






CFCO 


053 


* 






CFCO 


054 


* 






CFCO 


055 


# 


3170 


0008 


CFCO 


056 


ZTEST 


3172 


6FF5 


CFCO 


057 




3174 


4886 


CFCO 


058 




3176 


F47D 


CFCO 


059 




3178 


4226 


CFCO 


060 




31 7A 


4006 


CFCO 


061 




317C 


128E 


CFCO 


06 2 


Z SHORT 






CFCO 


063 


* 






CFCO 


064 


* 






CFCO 


065 


* 






CFCO 


066 


* 






CFCO 


067 


* 






CFCO 


068 


* 


166C 


4E5 2 


CFCO 


06 9 


ZEROUT 






CFCO 


070 


* 


166E 


48E6 


CFCO 


071 




1670 


42E6 


CFCO 


072 




1672 


40E6 


CFCO 


073 




1674 


12*E 


CFCO 


074 








CFCO 


075 


* 






CFCO 


076 


* 






CFCO 


077 


* 


096A 


7EA8 


CFCO 


078 


ST0RE2 


096C 


7 8AR 


CFCO 


079 




096E 


F47 5 


CFCO 


080 




0970 


72A8 


CFCO 


081 




0972 


70A0 


CFCO 


082 




0974 


1873 


CFCO 


08 3 


SHORTS 


0976 


128E 


CFCO 


084 








CFCO 


085 


* 






CFCO 


086 


* 






CFCO 


087 


* 






CFCO 


088 


* 






CFCO 


089 


* 


34 2 E 


5EA8 


CFCO 


090 


RDOPER 


3430 


5 8A8 


CFCO 


091 




3432 


F43 9 


CFCO 


092 




3434 


52A8 


CFCO 


09 3 




3436 


5 0A0 


CFCO 


094 




3438 


1B73 


CFCO 


095 


SHORTR 


343 A 


128E 


CFCO 


096 








CFCO 


097 


* 






CFCO 


098 


* 






CFCO 


099 


* 






CFCO 


100 


* 






CFCO 


101 


* 






CFCO 


10 2 


* 



062 ZSHORT 



08 3 SHORTS 



095 SHORTR 



*** ZERO TEST *** 
RST SI 
H1=H1$H1 
1=1 

BR IF 00 3=1 
V = V 
U=U 
RTN 



MOVE THRU ALU -SET SI IF NZ 
BR IF SHORT 



*## 


ZERO 


OUT RESULT *** 


ROH H 


DC9A 


READ ZERO CONSTANT 


I=H 






V=H 






U=H 






RTN 






*** 


STORE 


ROUTINE *** 


STH H 


AS,T+2 




STH I 


AS,T+2 




BR IF 


GO 3= 1 


BR IF SHORT 


STH V 


AS,T+2 




STH U 


AS,T+0 




T1=T1*~K07 


RST T TO 00X8 


RTN 







INTO H 



ROH H 
ROH I 
BR IF 
ROH V 
ROH U 
T1=T1*-K07 
RTN 



READ REGISTER 

AS,T+2 

AS,T+2 

G03=i 

AS t T+2 

AS,T+0 



*#* 



BR IF SHORT 



Tl= X8 



*** COMPLIMENT ROUTINE *** 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


COMMENTS 




1564 


F46F 


CFCO 


103 


RECOMP 


10 8 


SHORTC 


BR IF G03=l 


BR IF SHORT 




1566 


7118 


CFCO 


10 4 








U1C=0-U1+C 






1568 


700B 


CFCO 


105 








U0C=0-UO+C 






156A 


7 33 8 


CFCO 


106 








V1C=0-V1+C 






156C 


722B 


CFCO 


107 








V0C=0-VC+C 






156E 


799B 


CFCO 


10 8 


SHORTC 






I1C=0-IH-C 






1570 


7888 


CFCO 


109 








I0C=0-IC+C 






157? 


7FF8 


CFCO 


110 








H1C=C-H1+C 






1574 


E079 


CFCO 


111 




113 


COMPAR 


BR IF G06=l 


BR IF NOT COMPARE OP 


15 76 


0002 


CFCO 


112 








RST S3 






1578 


128E 


CFCO 
CFCO 
CFCO 
CFCO 


113 
114 
115 
116 


COMPAR 
* 
* 
* 






RTN 










CFCO 


117 


* 






*** ADD AND 


DIVIDE COMUTE R1-R2 


5K 3eC5v* 






CFCO 


118 


* 
















CFCO 


119 


* 












304A 


38E3 


CFCO 


120 


COMPUT 






T1=T1$K0E 


SET T TO LOW HALF OOXF 


304C 


F452 


CFCO 


121 




124 


LOCOMP 


BR IF GO 3=0 


BR IF LONG 




304E 


1B4 3 


CFCO 


122 








T1=T1*-K04 


Tl = OOXA FOR 


SHORT LOW 


30 50 


F45F 


CFCO 


123 




130 


SHCOMP 


BR IF G03=l 


UNC BRANCH 




3052 


56AA 


CFCO 


124 


LOCOMP 






RDH D AS,T-2 


T= OOXE 


T IS SET 


30 54 


717D 


CFCO 


125 








UlC=UltDl+C 




TO 38 OR 78 


3056 


7 06D 


Cf=CO 


126 








UOC=U0fDO+C 




WHICH IS A 


3058 


56AA 


CFCO 


127 








RDH D AS,T-2 


T= OCXC 


SAVE AREA 


305A 


737D 


CFCO 


128 








VlC=VlfDl+C 




FOR R2 OP 


305C 


726D 


CFCO 


129 








V0C=V0?D0+C 






305E 


56AA 


CFCO 


130 


SHCOMP 






RDH D AStT-2 


T= OOXA 




3060 


797D 


CFCO 


131 








I1C = I1%D1«-C 






30 62 


7 86 


CFCO 


132 








IOC=IOXDO+C 






3064 


5 6A0 


CFCO 


133 








RDH D AS,T+0 


T= 00X8 




3066 


7F70 


CFCO 


134 








H1C=H1*DH-C 






3068 


CI ED 


CFCO 


135 




137 


DIVCOM 


BR IF $4=1 


BR IF DIVIDE 




306A 


128E 


CFCO 


136 








RTN 


A.StC 




306C 


7E60 


CFCO 


137 


OIVCOM 






H0C=H0fD0+C 






306E 


128E 


CFCO 
CFCO 
CFCO 


13 8 
13 9 

140 


* 
# 






RTN 










CFCO 


141 


* 






*** RX OPERAND FETCH *** 








CFCO 


142 


* 












3454 


5F18 


CFCO 


143 


RXOPER 






RDH H U+2 






3456 


5818 


CFCO 


144 








RDH I U+2 






3458 


F45F 


CFCO 


145 




148 


XSHORT 


BR IF G03=l 






3 45 A 


5218 


CFCO 


146 








RDH V U+2 






345C 


5010 


CFCO 


147 








RDH U U+0 






345E 


128E 


CFCO 


148 


XSHORT 






RTN 
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CFCO 


007 


CFAD 


038 


CFCO 


010 


CFCO 


00 7 


CFCO 


019 


CFCO 


00 9 


CFCO 


034 


CFAD 


08 7 


CFCO 


042 


CFCO 


03 9 


CFCO 


056 


CFDV 


048 


CFCO 


062 


CFCO 


059 


CFCO 


069 


CFHA 


030 


CFCO 


078 


CFAO 


00 8 


CFCO 


083 


CFCO 


08 


CFCO 


90 


CFAD 


Oil 


CFCO 


095 


CFCO 


09 2 


CFCO 


103 


CFAO 


070 


CFCO 


108 


CFCO 


10 3 


CFCO 


113 


CFCO 


111 


CFCO 


120 


CFAD 


057 


CFCO 


124 


CFCO 


121 


CFCO 


130 


cfco 


123 


CFCO 


137 


CFCO 


135 


CFCO 


143 


CFCY 


044 


CFCO 


148 


CFCO 


145 
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* CROSS REFERENCE FOR CSECT CFCO * 
CFAD 046 CFAO 107 CFCO 026 CFDV 016 CFHA 010 

CFHA 016 CFMD 030 CFMU 046 
CFLS 025 CFMD 010 CFMU 051 

CFAD 039 CFAD 126 CFHA 032 CFMD 037 CFMD 051 

CFAO 037 CFAD 041 CFCY 019 CFDV 009 CFDV 047 CFLS 036 CFMD C39 CFMD 060 CFMD 06 8 



CFDV 007 CFDV 026 
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CFCY DESCRIPTIVE TEXT 



THE FLOATING POINT I-CYCLES ROUTINE -CFCY- IS ENTERED 
AT LABELS -RROP- OR -RXOP- FROM THE MAIN I-CYCLES ROUTINE 
-ICYC-. 

THE CHECK FOR CORRECT OPERAND ADDRESS BOUNDRIES AND THE 
CHECK FOR VALID FLOATING POINT REGISTER ADDRESSES IS MADE. 



THE SECOND OPERAND IS FETCHED AND THE FIRST OPERAND 
ADDRESS IS DEVELOPED BEFORE A BRANCH IS TAKEN TO THE 
INDIVIDUAL FLOATING POINT OPERATION ROUTINES. 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL 



28C4 
28C6 
28C8 
28CA 
28CC 
28CE 
28D0 
28D2 

28D4 
28D6 
28D8 
23DA 
28DC 



28A0 
28A2 
28A4 
28A6 
28A8 
28AA 
28AC 
28AE 
28B0 
28B2 
28B4 
28B6 
28B8 
28BA 
28BC 
28BE 



E1C9 
3485 
0567 
C4C2 
9814 
55B3 
3B8 3 
B42E 

45BB 
2 50 7 

7AE2 
10CE 
BOH 



A6D8 
?B83 
9814 
0565 
E0C2 
A825 
F43F 
C183 
F0C2 
C03 8 
B454 
A8D4 
G4F5 
F08A 
8924 
01C3 



CFCY 
C C CY 
CFCY 
CFCY 
C^CY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CPCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 



001 
00 3 
004 
005 
006 
007 
00 8 
012 
013 
014 
015 
016 
017 
018 
019 
020 
021 
022 
023 
024 
025 
026 
031 
032 
033 
034 
035 
03 6 

03 7 
038 
039 
040 
041 
042 
043 
044 

04 5 
046 
047 
048 
049 



T 
* 
* 
* 



STATEMENT 
FLOATING POINT 



COMMENTS 



I CYCLE DECODE RR AND RX 
* 

ALL OPS EXCEPT STORE BEGIN ALIKE AS FOLLOWS 
2ND OPERAND IS IN LS HO, HI IQ,II,G1 (SHORT) 

H0,H1, 10,11, VO, VI, U0,U1,GI (LONG ) 
1ST OPERAND-NORM. OR UNNOR. IS IN Rl LOCATION 

*** RR I CYCLES FLTPT *** 



RROP 



NOEXEC 



014 NOEXEC 



051 SPEC 
CCOM 057 LSAVEA 



CFCO 090 RDOPER 



RIO PER 



052 FLOAT 



* 
* 



RXOP 



LOOKLD 



STORCK 



SHORT 



CICY 092 

CCOM 057 

051 
CICY 05 6 

04 9 

051 

046 

CFCO 143 

021 

05 7 
CFLS 034 



BASE2 
LSAVEA 

SPEC 

A ODER R M 
SHORT 

SPEC 
STORCK 
RXOPER 
R10PER 

FLOAT 5 
STORE 



BR IF S6=l 

G0=G0$K80 

Z=G1*-K66 

BR IF ZNZ 

BAL 

T1=G1XH 

T1=T1$K08 

BAL 

T1=G1H+T1L 
Gl=0 

STH T DA,BC 
RST S K=FC 
N=GOL 



CHK EXECUTE STAT BR IF NOT 

REMEMBER EXECUTE 

CHEC FOR ODD REG=SPEC CHECK 

SAVE P,l,G 

R2 ADDRESS 

GET 2ND OP- H0H1I0I1 (SHORT) 

H0H1I0I1V0V1U0U1 (LONG ) 
Rl ADDRESS=T1 X8 

SAVE Rl OPER ADD IN AUX 

SEP. OPS 



*** RX I CYCLES FLTPT *** 



BAL 

T1=0$K 
BAL 

Z=G1*- 
BR IF 
BR IF 
BR IF 
Z=U1*- 
BR IF 
BR IF 
BAL 
BR 

Z=GO*- 
BR IF 
BR 
Z=U1*- 



08 

K60 

HZNZ 

H1=NZ 

GO 3=1 

K08 

LZNZ 

GO 4=0 



KFO 
LZNZ 

KOC 



GET REST OF OP 

SAVE P,I ,G 

CHK IF R2 NOT 0,2,4,6 

CHK 2ND OPER ADO TOO LARGE 

BR IF SHORT OP 

CHK FOR DOUBLE BOUNDARY 



LOOK FOR 60 OR 70 OP 
OPER NOT STORE OP 

CHK WORD BOUNDARY 



AODR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CLOAD= 
COMMENTS 
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28C0 
28C2 
2880 
2882 
2884 
2886 
2888 
288A 
288C 
288E 
2890 
2892 
2894 
2896 
2898 
289A 
289C 
289E 
3484 
3486 



F0B3 
AE94 
A 150 

93EE 
9BF2 
9BF0 
B17E 
B484 
B484 
B484 
B1A6 
8AF2 
8AF2 
8AF2 
9E00 
90FE 
8AF2 
8AF2 
817A 
83B4 



CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
C FC Y 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 
CFCY 



CFCY 


012 


CTCY 


015 


CFCY 


014 


CFCY 


01? 


CFCY 


021 


CFCY 


04 5 


CFCY 


034 


CICY 


019 


CFCY 


043 


CFCY 


050 


CFCY 


046 


CFCY 


043 


CFCY 


049 


CFCY 


04 C 


CFCY 


051 


CFCY 


015 


CFCY 


052 


CFCY 


025 


CFCY 


057 


CFCY 


047 


CFCY 


068 


CFCY 


05 7 



050 
051 
052 
053 
054 
055 
056 
057 
058 

05 9 
060 

06 1 
062 
063 
064 
065 
066 
06 7 
06 8 
069 



SPEC 

FLOAT 

FLOAT 

FLOAT 

FLOAT 

FLOAT 

FLOAT 

FLOAT 

FLOAT 

FLOAT 

FLOAT 

FLOAT 

FLOAT 

FLOAT 

FLOAT 

FLOAT 

FLOAT 

NOGOOD 



CTCY 016 



CICY 020 



CICY 
CFLS 
CFLS 
CFLS 
CFLS 
CFHA 



CFHA 
CFAD 
CFAD 
CFAO 
CFMD 
CFMO 
CFAO 
CFAD 
CCOM 
CICY 



043 LOOKLD BR IF LZ=0 

070 SPECHK BR 

007 LOADP BR 

014 LOADN 8R 

022 LOADT BR 

021 LOADC BR 

006 HALVE BR 

06 8 NOGOOD BR 

068 NOGOOD BR 

06 8 NOGOOD BR 
032 STORE 1 BR 

007 SCAD BR 
007 SCAD BR 
007 SCAD BR 
010 MULPRE BR 
009 DIVPRE BR 
007 SCAD BR 
00 7 SCAD BR 
067 LRSTRC BAL 
077 OPERR BR 

* CROSS REFERENCE FOR CSECT C 



LOAD POS 

LOAD NEG 

LOAD AND TEST 

LOAD COMPLIMENT 

HALVE 

OP ERROR 

OP ERROR 

OP ERROR 

LOAD 

COMPARE-LONG, SHORT-RR OR RX 

ADD NORMALIZED LONG OR SHORT 

SUBTRACT NORM LONG OR SHORT 

MULTIPLY LONG OR SHORT 

DIVIDE LONG OR SHORT 

ADD UNORMALIZED LONG OR SHORT 

SUBTRACT UNORMALIZED LONG OR SH 

RESTORE I 

***** 

FCY * 
***** 



CFCY 03 8 CFCY 042 



CFCY 058 CFCY 059 



CFDV DESCRIPTIVE TEXT 
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THE FLOATING POINT DIVIDE INSTRUCTIONS ARE FIRST 
HANDLED BY THE -CFMD- ROUTINE. THERE THE ZERO FRACTION 
TEST, PRENORMALIZATION, AND SUBTRACTION OF EXPONENTS 
IS MADE. 

THE -CFDV- ROUTINE HANDLES THE COMPUTATION OF THE 
QUOTENT AND THE STORING OF THE RESULTS. THE -CFCO- 
ROUTINE IS USED FOR ACTUAL COMPUTATION, RIGHT SHIFTING, 
AND ZERO TESTING OF THE RESULT. THE -CFHA- ROUTINE 
HANDLES LEFT SHIFTING, INTERRUPT CHECKING, AND THE 
DIVIDE EXIT TO EITHER THE INTERRUPT OR I-CYCLES ROUTINE 



OP CODES HANDLED BY THE -CFDV- ROUTINE 

* *************************** ************************************* 

* OP CODE TYPE * BYTE 1 * BYTE 2 * BYTE 3 * BYTE 4 * 
***************************************************************** 

* RR DIVIDE (LONG) * 2D * Rl R2 * * * 

* * * * * * 

* RR DIVIDE (SHORT) * 3D * Rl R2 * * * 

* * * * * * 

* RX DIVIDE (LONG) * 6D * Rl X2 * B2 D2 * D2 * 

*— _ * *_ __*_ — -. __*________* 

* RX DIVIDE (SHORT) * 7D * Rl X2 * B2 D2 * D2 * 
***************************************************************** 



OBJECTIVE — 



THE FIRST OPERAND IS DIVIDED BY THE 
SECOND OPERAND. THE QUOTIENT REPLACES 
THE FIRST OPERAND. 



AD OR 



WORD SEQUENCE NO. LABEL 







CFDV 


001 


T 






CFDV 


00 2 


* 






CFDV 


003 


* 






CFDV 


004 


* 






CFDV 


00 5 


* 


1F82 


3082 


CFDV 


006 


DIVIDE 


1F84 


B04A 


CFDV 


00 7 




1F86 


5AE2 


CFDV 


008 




IF 88 


R42E 


CFDV 


009 




1F8A 


4 6A6 


CFDV 


010 




1F8C 


3835 


CFDV 


on 




1F8E 


3 71 3 


CFDV 


012 




1F90 


76F2 


CFDV 


013 




1F92 


F5A2 


CFDV 


014 




1F94 


2C13 


CFDV 


CI 5 




1F96 


A 65 6 


CFDV 


016 




1F98 


5CA2 


CFDV 


017 




1F9A 


2C18 


CFDV 


018 




1F9C 


C4A0 


CFDV 


019 




1F9E 


1D13 


CFDV 


020 




1FAO 


7CA2 


CFDV 


021 


FIXUND 


1FA2 


9 DEO 


CFDV 


02 2 


VICNOSH 


1FA4 


3002 


CFDV 


02 3 




1FA6 


0040 


CFDV 


024 


L00P1 


1FA8 


2D13 


CFDV 


025 




1FAA 


B04A 


CFDV 


026 


LOOP 


1FAC 


F5EE 


CFDV 


02 7 




1FAE 


90E0 


CFDV 


028 




1FBO 


3002 


CFDV 


02 9 




1FB2 


D1BB 


CFDV 


030 


QUOTCH 


1FB4 


CD2A 


CFDV 


031 





NEXTSEQ NEXTLABEL STATEMENT 

FLOATING POINT DIVIDE 



COMMENTS 









SET S K=98 


CFCO 


120 


COM PUT 


BAL 

RDH T DA,BC 


CFCO 


090 


RDOPER 


BAL 
D = T 
T1=T1$K30 

D1=D1$K01 
STH D DA, BE 




02 2 


NCNOSH 


BR IF S3=0 
PO=0$K01 


CFCO 


00 7 


SHIFR4 


BAL 

RDH P DA, AC 

P0=P0+K01 




021 


F IXUND 


BR IF ZNZ 
P1=P1*-K01 
STH P DA, AC 


CFHA 


044 


OIVIDL 


BAL 

SET S K»90 

RST S5 
P1=Q$K01 


CFCO 


120 


COM PUT 


BAL 




03 4 


DOADD 


BR IF S3=0 


CFHA 


044 


DIVIOL 


BAL 

SET S K=90 




03 7 


STQUOT 


BR IF S5=l 




02 6 


LOOP 


BR IF P10=0 



SET S0,S3,S4 

DO TRIAL SUBTRACT 

GET Rl 

T= R2 SAVE 0038 OR 0078 
D=QUOTIENT ADD 00R19 
SAVE QUOT ADD 

Rl MUST SHIFT RIGHT ONE DIGIT 

GET RESULT EXPONENT 

INC EXP 

CHK FOR PREV. UNDERFLOW 

UNDERFLOW-CORRECTED RST IND. 
PUT ADJ. RES. EXPONENT BACK 
SHIFT LEFT 1 
SET SO, S3 

SET QUOTIENT FLAG 

SUB VISOR FROM DEND 

IF NO CARRY - DO AN ADD 

SHIFT DEND AND QUOT FLAG LEFT I 

BR IF QUOTIENT BYTE FULL 
CONTINUE COMPUTE IF NO QUOT FLAG 



ADDR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CL0AD=*E60, 

COMMENTS 
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1FB6 
1FB8 
1FEE 
1FFO 
1FF2 
1FBA 
1FBC 
1FBE 
1FCO 
1FC2 
1FC4 
IFC6 
1FC8 
1FCA 
1FCC 
1FCE 
1FDO 
1FD2 
1FD4 
1FD6 
1FD8 
1FDA 
1FOC 
1FDE 
1FEO 
1FE2 
1FE4 
1FE6 
1FE8 
1FEA 
1FEC 
1FF4 
1FF6 
1FF8 



2040 
9FAA 
9DE0 
1002 
9FS2 
56F2 
7068 
76F2 
F448 
7CB 
F0&6 
9FCC 
5 77 9 
F0A6 
5AE2 
B42E 
B170 
D5D7 
B1A0 
5 6A2 
5 65 9 
5CC2 
158 5 
C762 
3585 
7 5A0 
F37 5 
C66B 
C080 
2 7C3 
B1A8 
2 7D3 
5 5E9 
B19E 



CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 

CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 
CFDV 



032 
033 
034 
035 

036 
037 

038 

03 9 
040 
041 
042 
043 
044 

04 5 
046 
04 7 
04 8 

04 9 
050 
051 

05 2 
053 
054 
05 5 
056 
057 
05 8 
05 9 
060 
061 
062 
063 
^64 
065 



DOADD 



STQUOT 



026 
CFHA 044 



024 
046 



LONGD 
ENDDIV 



CFCO 090 

CFCO 056 

051 

CFHA 029 



GETEXP 



STOEXP 

OVFLOW 
UNDERF 



063 
061 



CFHA 028 



CFDV 


006 


CFMD 


54 




CFDV 


021 


CFDV 


019 




CFDV 


022 


CFDV 


014 




CFDV 


024 


CFDV 


042 


CFDV 045 


CFDV 


026 


CFDV 


031 


CFDV 03 3 


CFDV 


30 


CFDV 


036 




CFDV 


034 


CFDV 


027 




CFDV 


037 


CFDV 


030 




CFDV 


044 


CFDV 


040 




CFDV 


046 


CFDV 


04 3 




CFDV 


051 


CFDV 


049 




CFDV 


057 


CFDV 


055 




CFDV 


061 


CFDV 


059 




CFDV 


063 


CFDV 


058 





LOOP 
DIVIDL 



030 QUOTCH 



044 LONGD 



LOO PI 

ENDDIV 



024 LOO PI 



RDOPER 
ZTEST 
GETEXP 
DIVNOI 



057 STOEXP 



UNDERF 
OVFLOW 



CFHA 033 DIVOVF 



SET 

BR 

BAL 

RST 

BR 

RDH 

STB 

STH 

BR 



S5 



S K = 90 



D DA 

PI A 

D DA 

IF GO 



LZ 

DA 



DA 



UNDCHK 

3$C 3$C J$C JJC 3$C JJC 3$C 3$C3$C 

* CROSS R 

^S *S* t* t* ™ *S* "Sr t^ t* 



Z = DKKOC 
BR IF LZ 

BR 

Dl = 01 

BR IF 

RDH T 

BAL 

BAL 

BR IF 

BR 

RDH D 

G1 = D0 

RDH P 

G1=G1*-K 

BR IF Dl 

G1=G1$K8 

STB Gl A 

BR IF Dl 

BR IF DO 

RST S4 

Di=0$KOC 

BR 

Dl=O$K0D 

H0 = G1 

BR 

3$e3§C 5&3*C Sfc 3$C 5$C jfc 3& 

EFERENCE 



,BE 
S,D + 1 
,BE 
3=0 

NZ 



NZ 
,BC 



Sl = l 



DA, AC 



,B8 

80 

0=0 



S,T+0 

7=1 

0=1 



7TH TIME-DO 1 MORE THEN STORE QU 

SHIFT LEFT 
ADD VISOR 
TO DEND 
GET OUOT ADDRESS 
STORE OUOT BYTE 
STORE EQUOT ADDRESS 

CHECK FOR OOXC 

END OF SHORT 
SHORT DIV FINISHED 



BR IF LONG NOT 
GE Rl ADDRESS 
GET QUOTIENT 



FINISHED 



BR IF OUOT NOT ZERO 

RESULT IS STORE 0,GET I,GO,ICY 

D0=EXP D1=SIGN+FLAGS 

MOVE RES EXP FOR CORREC+STORE 
RESTORE MASK 
MAKE RES SIGN + 
BR IF RES IS + 
SIGN - MAKE RESULT - 

BR IF UNDERFLOW FLAG IS ON 

BR IF OVERFLOW 

REST INT FLAG IF NO OVERFLOW 

GO RESTORE I »TAKE INT OR GO ICY 



MOVE RES 
GO CHECK 

:^c $ $ £ $ 3^ $ 3^ )^ $ ;$ $ $ # $ $ 

FOR CSECT CFDV * 



EXP FOR UNO STORE 
UNDERFLOW MASK 



CFHA DESCRIPTIVE TEXT 
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THE -CFHA- ROUTINE HANDLES THE FOLLOWING OP CODES- 

RROP 34 (SHORT OPERANDS) 

RXOP 2 4 (LONG OPERANDS) 

THE -CFHA- ROUTINE PERFORMS THE FLOATING POINT HALVE 
OPERATION. THIS IS DONE BY SHIFTING THE SECOND OPERAND 
FRACTION LEFT 3 BITS THEN RIGHT 4 BITS. THE RESULT 
IS NORMALIZED AND STORED IN THE FIRST OPERAND LOCATION. 



THE -CFHA- ROUTINE 
THE INTERRUPT ROUTINE 
AND CERTAIN CASES FOR 
ADD OPS. 

THE -CFHA- ROUTINE 
THE QUOTIENT FOR THE 



PERFORMS THE EXIT TO I -CYCLES OR 
FOR THE FLOATING POINT LOAD OPSt 
FLOATING DIVIDE, MULTIPLY, AND 

ALSO PERFORMS THE LEFT SHIFT OF 
FLOATING DIVIDE OPERATION. 



ADDR 


WOPC 


SEQUENt 


:e no. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


COMMENTS 






CFHA 


001 


T 








*** HALVE OP *** FLOATING POINT 






CFHA 


002 


* 
















CFHA 


00 3 


* 
















CFHA 


004 


* 
















CFHA 


00 5 


* 












317E 


2C13 


CFHA 


0C6 


HALVE 








P0=0$K01 


SET RIGHT SHIFT COUNT 


3180 


9DE4 


CFHA 


00 7 






046 


LEFT1 


BAL 


SHIFT 


3182 


9DE4 


CFHA 


00 8 






046 


LEFT1 


BAL 


LEFT 


3184 


9DE4 


CFHA 


009 






04 6 


LEFT! 


SAL 


ONE THREE TIMES 


3186 


A 65 6 


CFHA 


010 




CFCO 


007 


SHIFR4 


BAL 


RIGHT I = LEFT 3 THEN RIGHT 4 


3188 


5CC2 


CFHA 


Oil 










RDH P DA,B8 




318A 


D5A4 


CFHA 


012 






031 


FRACOO 


BR IF S1=0 


BR IF 2ND OPER WAS 


3 1 8C 


2A0 7 


CFHA 


013 










T0=0 




318E 


OFF 3 


CFHA 


014 


HNORM 








Z=H1*-K0F 


CHECK HI DIGIT 


3190 


C4A6 


CFHA 


015 






032 


ST0RE1 


BR IF ZNZ 




3192 


B2F8 


CFHA 


016 




CFCO 


034 


SHIFL4 


BAL 


GO NORMALIZE 


3194 


2 50 7 


CFHA 


017 










Gl = 


ZERO OUT GUARD 


3196 


2FFF 


CFHA 


018 










H0=HO+KFF 


DEC EXPONENT 


3198 


E4B2 


CFHA 


019 






022 


NOVFLH 


BR IF NOVFL 


CHECK 


319A 


F4B5 


CFHA 


020 






02 3 


HAUND 


BR IF AC=1 


1BC 


319C 


B18E 


CFHA 


021 


0K1BC 




014 


HNORM 


BR 


FOR 


31B2 


F49D 


CFHA 


02 2 


NOVFLH 




021 


0K1BC 


8R IF AC=1 


UNDERFLOW NO 1BOUNDERF 


31B4 


ED2 2 


CFHA 


02 3 


HAUND 




030 


HZER 


BR IF P12=0 


BR IF NO INT. TO BE TAKEN 


31B6 


1 E8D 


CFHA 


24 










H0=H0<K80 


INVERT THE SIGN BIT 


31B8 


2 7D3 


CFHA 


02 5 










D1=0$K0D 


INT CODE SAVE 


31BA 


2080 


CFHA 


02 6 










SET S4 


REMEM8ER INT 


31BC 


B18E 


CFHA 


027 






014 


HNORM 


BR 




319E 


ED2 7 


CFHA 


02 8 


UNDCHK 




03 2 


ST0RE1 


BR IF P12=l 


BR IF INT TO BE TAKEN 


31A0 


C08C 


CFHA 


029 


DIVNOI 








RST S4 




31A2 


966C 


CFHA 


030 


HZER 


CFCO 


06 9 


ZEROUT 


BAL 




31 A4 


2E07 


CFHA 


031 


FRACOO 








H0=0 


ZERO OUT EXPONENT 


31 A6 


8 96 A 


CFHA 


032 


ST0RE1 


CFCO 


07 8 


ST0RE2 


BAL 




31A8 


8 17 A 


CFHA 


033 


DIVOVF 


CCOM 


067 


LRSTRC 


BAL 




31AA 


C1AF 


CFHA 


034 






03 6 


HTAKE 


BR IF S4=l 




3 1 AC 


AA76 


CFHA 


035 




CICY 


004 


CHECK 


BR 




31AE 


5739 


CFHA 


036 


HTAKE 








T1 = D1 




3180 


89FC 


CFHA 
CFHA 
CFHA 


037 
038 
039 


* 
* 


BPSW 


00 3 


PROG 


BR 
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ADDR WORD SEQUENCE NO. LABEL NEXTSEQ NEXTLABEL STATEMENT COMMENTS 

CFHA (HO * ** LEFT ONE FOR DIVIDE AND HALVE ** 

CFHA 041 * 

CFHA 042 * 

CFHA 043 * 

IDEO 6DDD CFHA 044 DIVIDL P10Pl + Pi*C SHIFT QUOTIENT FOR DIVIDE 

IDE2 655B CFHA 045 G1C=G1+G1 SHIFT DIVIDE GUARD 

1DE4 F46F CFHA 046 LEFT1 051 HSHORT BR IF G03 = l BR IF SHORT 

1DE6 611D CFHA 047 U1C=U1+U1+C 

1DE8 600D CFHA 048 U0C=U0+U0+C 

IDEA 633D CFHA 049 V1C=V1+V1+C 

1DEC 622D CFHA 050 V0C=V0+VO+C 

IDEE 6990 CFHA 051 HSHORT UC=I1+I1+C 

1DF0 688D CFHA 05 2 I0C=IC+I0+C 

1DF2 6FFD CFHA 053 H1C=H1+H1+C 

1DF4 C1FB CFHA 054 057 DIV BR IF S4=l 

1DF6 6AAD CFHA 055 T0C=T0+T0+C HALVE 

1DF8 128E CFHA 056 RTN ONLY 

1DFA 6EED CFHA 057 DIV H0C=HC+H0+C DIVIDE 

1DFC 128E CFHA 058 RTN ONLY 

* CROSS REFERENCE FOR CSECT CFHA * 
********************************** 



CFHA 


006 


CFCY 


056 










CFHA 


014 


CFHA 


021 


CFHA 


02 7 






CFHA 


021 


CFHA 


022 










CFHA 


022 


CFHA 


019 










CFHA 


023 


CFHA 


02 










CFHA 


028 


CFDV 


06 5 


CFMU 


061 






CFHA 


029 


CFAD 


098 


CFDV 


050 


CFMD 


020 


CFHA 


030 


CFHA 


023 










CFHA 


031 


CFHA 


012 










CFHA 


32 


CFAD 


121 


CFCY 


060 


CFHA 


015 


CFHA 


033 


CFDV 


062 


CFMD 


015 






CFHA 


036 


CFHA 


034 










CFHA 


044 


CFDV 


02 2 


CFDV 


02 8 


CFDV 


034 


CFHA 


046 


CFHA 


00 7 


CFHA 


00 8 


CFHA 


009 


CFHA 


051 


CFHA 


046 










CFHA 


057 


CFHA 


054 











CFMU 053 



CFHA 028 CFLS 028 CFMU 065 



CFLS DESCRIPTIVE TEXT 
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THE -CFLS- ROUTINE HANDLES THE FOLLOWING OP CODES- 
LOAD POSITIVE -20-,-30-,( SHORT) AND ILONG) 
LOAD NEGATIVE -2 1- , -31-, i SHORT ) AND CLONG) 
LOAD AND TEST - 22-, -32- ,( SHORT) AND (LONG) 
LOAD COMPLEMENT -23-, -33- ,( SHORT) AND (LONG) 
STORE -60-, -70-, (SHORT) AND (LONG) 

OBJECTIVFS- 



LOAD NEGATIVE 



LOAD COMPLEMENT 



LOAO AND TEST 



LOAD POSITIVE 



THE SECOND OPERAND IS PLACED IN THE FIRST 
OPERAND LOCATION WITH THE SIGN FORCED 
POSITIVE. 



THE SECOND OPERAND IS PLACED IN THE FIRST 
OPERAND LOCATION WITH THE SIGN FORCED 
NEGATIVE. 

THE SECOND OPERAND IS PLACED IN THE FIRST 
OPERAND LOCATION WITH THE SIGN INVERTED. 

THE SECOND OPERAND IS PLACED IN THE FIRST 
OPERAND LOCATION AND THE CONDITION CODE 
IS SET TO INDICATE THE RESULT STATUS. 
CC=0 RESULT FRACTION IS ZERO 
CC=1 RESULT IS LESS THAN ZERO 
CC=2 RESULT IS GREATER THAN ZERO 



STORE 



THE FIRST OPERAND IS STORED 
SECOND OPERAND LOCATION. 



AT THE 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



COMMENTS 







CFLS 


001 


T 






CFLS 


002 


* 






CFLS 


00 3 


* 






CFLS 


00 4 


* 






CFLS 


005 


* 






CFLS 


006 


* 


2150 


1E85 


CFLS 


007 


LOADP 


2152 


98F2 


CFLS 


008 








CFLS 


009 


* 






CFLS 


010 


* 






CFLS 


Oil 


# 






CFLS 


012 


# 






CFLS 


013 


* 


1REE 


IE85 


CFLS 


014 


LOADN 






CFLS 


015 


* 






CFLS 


016 


* 






CFLS 


017 


* 






CFLS 


018 


* 






CFLS 


019 


* 






CFLS 


020 


* 


1BF0 


IE8D 


CFLS 


021 


LOADC 


1BF2 


2C25 


CFLS 


022 


LOADT 


1BF4 


CE78 


CFLS 


02 3 




1BF6 


1C7D 


CFLS 


024 




1BF8 


B170 


CFLS 


025 


OKSOFA 


1BFA 


D5FF 


CFLS 


026 




1BFC 


2C07 


CFLS 


027 




1BFE 


B1A6 


CFLS 


02 8 


:odcor 






CFLS 


029 


* 






CFLS 


030 


* 






CFLS 


031 


* 






CFLS 


032 


* 



022 LOADT 



025 OKSOFA 

CFCO 056 ZTEST 

028 CODCOR 

CFHA 032 STORE 1 



LOAD AND STORE OPS FLOATING POINT 



*** LOAO POSITIVE ** 



H0=H0*-K80 
BR 



*** LOAD NEGATIVE 



MAKE SIGN + 



tSJtSJS* 



H0=H0*-K80 



MAKE THE SIGN PLUS 

FALL THROUGH TO COMPLIMENT 



*** LOAD COMPLIMENT 



H0=H0<K80 

P0=0$K20 

BR IF H00=0 

P0=PO<K70 

BAL 

BR IF Sl=l 

P0=0 

BR 



*** STORE OP *** 



INVERT SIGN 
SET + 

NOT + CHANGE CC TO - 0101 CC=1 

GO TEST FRACTION FOR C 

BR IF FRAC NOT CC IS SET 

SET CC=0 FRAC=0 

GO LOAD R2 TO Rl.REST I, GO I CYC 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CL0AD=*E60t 
COMMENTS 
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CFLS 


033 


* 






* 




0924 


4 606 


CFLS 


034 


S TORE 








D=U 


0926 


45BB 


CFLS 


035 










TI = G1H+T1L 


0923 


B42E 


CFLS 


036 




CFCO 


090 


RDOPER 


BAL 


092A 


7E78 


CFLS 


037 










STH H D + 2 


092C 


7878 


CFLS 


038 










STH I D + 2 


092E 


F435 


CFLS 


039 






042 


ENDSTO 


BR IF G03=l 


0930 


7278 


CFLS 


040 










STH V D+2 


0932 


7070 


CFLS 


041 










STH U D + 


0934 


817A 


CFLS 


042 


ENDSTO 


CCOM 


067 


LRSTRC 


BAL 


0936 


AA76 


CFLS 


04 3 




CICY 


004 


CHECK 


SR 



MOVE DESTINATION 
Rl OPERAND ADDR 
GET Rl OPER 



BA IF SHORT 



ADDRESS 



RESTORE I 



* CROSS REFERENCE FOR CSECT CFLS * 



CFLS 


007 


CFCY 


052 


CFLS 


014 


CFCY 


05 3 


CFLS 


021 


CFCY 


055 


CFLS 


022 


CFCY 


05 4 


CFLS 


025 


CFLS 


023 


CFLS 


028 


CFLS 


026 


CFLS 


034 


CFCY 


04 8 


CFLS 


042 


CFLS 


03 9 



CFLS 00 8 



CFMD DESCRIPTIVE TEXT 
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THE -CFMD- ROUTINE IS ENTERFD FROM THE 
T-CYCLES ROUTINE -CFCY- TO PREPARE FOR THE 
THE FOLLOWING OP CODES - 

DIVIDE MULTIPL 

RROP 3D RROP 3C 

RROP 2D RROP 2C 

RXOP 7D RXOP 7C 

RXOP 60 RXOP 6C 



FLOATING POINT 
EXECUTION "OF 



PRIOR TO BRANCHING TO THE PROPER EXECUTE ROUTINEt THE 
-CFMD- ROUTINE DOES THE FOLLOWING — 

1. TEST MULTIPLIER OR DIVISOR FOR ZERO. 

2. PRENORMALIZE OPERANDS 

3. COMPUTE INTERMEDIATE EXPONENT AND SIGN 
OF THE RESULT. 

4. PREPARE OPERANDS, (FOR FP MULTIPLY) , TO 
SHARE THE BINARY MULTIPLY COMPUTE LOOP IN 
ROUTINE -CMLT-. 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



COMMENTS 







CFMD 


001 


T 






CFMD 


00 2 


* 






CFMD 


00 3 


* 






CFMD 


004 


* 






CFMD 


005 


* 






CFMD 


006 


* 






CFMD 


00 7 


* 






CFMD 


008 


* 


1DFE 


3082 


CFMD 


009 


D I VPR E 


IE 00 


8170 


CFMD 


010 


MULPRE 


1E02 


D595 


CFMD 


OIL 




1EC4 


D18D 


CFMD 


012 




1(=06 


FOCC 


CFMD 


013 




1E08 


2 7F3 


CFMD 


014 




1E0A 


B1A8 


CFMD 


015 




1E0C 


F011 


CFMD 


016 


R1IS0 


1E0E 


1415 


CFMD 


017 








CFMD 


018 


* 


LElO 


5CC2 


CFMD 


019 


DONE 


1E12 


B1A0 


CFMD 


020 




1E14 


D19C 


CFMD 


021 


FNOTZ 


1E16 


5E6 9 


CFMD 


022 




1E18 


3E85 


CFMD 


023 




1E1A 


9E22 


CFMD 


024 




LELC 


5E79 


CFMD 


025 


R2 


IE IE 


1E85 


CFMD 


026 




1E20 


2E4D 


CFMD 


02 7 




1E22 


OFF 3 


CFMD 


02 3 


NJORM 


1E24 


C4AC 


CFMD 


029 




1E26 


B2F8 


CFMD 


030 




1E28 


2EFF 


CFMD 


031 




1E2A 


9E22 


CFMD 


032 




1E2C 


D1BF 


CFMQ 


033 


FNORM 


1E2E 


3 83 5 


CFMD 


034 




1E30 


5 ED 9 


CFMD 


035 




1E32 


2E07 


CFMD 


036 




IE34 


896A 


CFMD 


037 




1E36 


5AE2 


CFMD 


03 8 




IE38 


B42E 


CFMD 


039 











2ND OP IS 








LST OP IS 








RETAINED 








SET S K=98 


CFCO 


056 


ZTEST 


BAL 




021 


FNOTZ 


BR IF Sl=L 




016 


R 1 1 SO 


BR IF S5=l 




0L6 


RLISO 


BR IF GO 7=0 
DL=0$KOF 


CFHA 


03 3 


DIVOVF 


BR 




0L9 


DONE 


BR IF G07=L 

G0=G0*-K10 

RDH P DA,B8 


CFHA 


02 9 


DIVNOI 


BR 




025 


R2 


BR IF S5=0 
00= HO 
H0=H0$K8O 




02 8 


NORM 


BR 

D1 = HC 

H0=HG*-K80 

H0=H0+K40 

Z=H1*-K0F 




03 3 


F NO RM 


BR IF ZNZ 


CFCO 


034 


SHIFL4 


BAL 
HO=HC+KFF 




02 8 


NORM 


BR 




042 


RLD 


BR IF S5=l 
T1=T1$K30 

P1 = H0 
H0=0 


CFCO 


07 8 


ST0RE2 


BAL 

RDH T DA,BC 


CFCO 


090 


R DO PER 


BAL 



MULTIPLY DIVIDE PRENORMALIZE -FLOATING POINT 



PRENOR. FIRST AND PUT IN A SAVE AREA 
THEN PRENOR. AND PUT BACK IN Rl AND 
IN LS H,I t V,U 



SET SC,S3,S4 FOR DIVIDE 
CHECK FRACTION FOR 

PLIER OR DIVISOR IS 

Rl= 

BR IF MULT 

DIVIDE EXCEPTION 
AND STOR 



BR IF 

BR IF 

R2 IS 

IT IS 



NOT 



GO TAKE INT 
BR IF DIVIDE 
MULT TURN OFF SHORT 

FULL STORE FOR MULT. 
RESTORE P 



,REST I 



BR IF USING R2 
USING Rl SAVE ORIG 
MAKE EXCESS 192 

SAVE R2 ORIG EXP 
REMOVE SIGN 
MAKE EXCESS 128 
CHECK HI DIGIT FOR 
BR IF NORMALIZED 

DEC EXP 



EXP 



DOING R2 SET 
SAVE NORM R2 



T TO SAVE 
EXP 



AREA ADO 



SAVE NORM 
T=00X8 
GET Rl OP 



R2 



ADDR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E60, 
COMMENTS 
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1E3A 


2040 


CFMO 


040 


1E3C 


9E00 


CFMD 


041 


1E3E 


5 EC 9 


CFMD 


042 


1E40 


2EC7 


CFMD 


043 


1E42 


6 761 


CFMD 


044 


1E44 


17F3 


CFMD 


045 


1E46 


7C0D 


CFMD 


046 


IE48 


5 7D9 


CFMD 


047 


1E4A 


F5CF 


CFMD 


048 


1E4C 


3D13 


CFMD 


049 


1E4E 


7CA2 


CFMD 


50 


1E50 


896A 


CFMD 


051 


1E52 


3 83 5 


CFMD 


052 


1E54 


F05 8 


CFMD 


053 


1E56 


9F82 


CFMD 


054 


1E58 


10CE 


CFMD 


05 5 


1E5A 


2080 


CFMD 


056 


1E5C 


F46E 


CFMD 


57 


1E5E 


42E6 


CFMD 


058 


1E60 


4086 


CFMD 


059 


1E62 


B42E 


CFMD 


060 


1E64 


2R07 


CFMD 


06 1 


1E66 


46E6 


CFMD 


062 


1E68 


4E86 


CFMD 


063 


1F6A 


4 8A6 


CFMD 


06 4 


IE6C 


89Q2 


CPMD 


065 


1E6E 


4C26 


CFMD 


066 


1E7C 


4606 


CFMD 


067 


1E72 


B42E 


CFMD 


06 8 


1E74 


4A86 


CFMD 


069 


1E76 


4 BE 6 


CFMO 


070 


IE78 


4E06 


CFMD 


071 


1E7A 


4066 


CFMD 


072 


1E7C 


4626 


CFMD 


073 


1E7E 


4 2C 6 


CFMD 


074 


IE80 


8 99 2 


CFMD 


075 



010 MULPRE 



RID 



NOUND 



050 NOUND 



CFCO 078 ST0RE2 



05 5 
CFDV 006 



NDIV 



LONGM 



CMLT 027 



CFMD 


C09 


CFCY 


06 5 






CFMD 


010 


CFCY 


064 


CFMD 


041 


CFMD 


016 


CFMD 


012 


CFMD 


013 


CFMD 


019 


CFMD 


016 






CFMD 


021 


CFMD 


Oil 






CFMD 


025 


CFMD 


021 






CFMD 


28 


CFMO 


024 


CFMD 


032 


CFMD 


033 


CFMD 


029 






CFMD 


042 


CFMD 


03 3 






CFMD 


5C 


CFMD 


04 8 






CFMD 


055 


CFMD 


05 3 






CFMD 


066 


CFMD 


057 







NDIV 
DIVIDE 



06 6 LONGM 



CFCO 090 RDOPER 



CMLT 027 FLTMU1 



CFCO 090 RDOPER 



S K=FC 
S4 
IF GO 3=0 



FLTMU1 

ijc^cjfcsjca^: j$c 3$c :$: afc 

* CROSS R 



SET S5 

BR 

P0 = HC 

H0=0 

D1=0KD0 

D1=D1*-K0F 

P0C=P0*PI+C 

P1 = D1 

BR IF S3=l 

P1=P1$K01 

STH P DA, AC 

BAL 

T1=T1$K30 

BR IF G07=0 

BR 

RST 

SET 

BR 

V=H 

U=I 

BAL 

T1 = 

D = H 

H=I 

I=T 

BR 

P = V 

D = U 

BAL 

T = I 

I=H 

H = U 

U=D 

D = V 

V = P 

BR 

EFERENCE FOR CSE 

if. # 5fc Of 3$C 3$C # # # 3$C 3$C ^C 3$C 3$C 5$C # 



DOING R1,SAVE NORM Rl EXP 
ZERO OUT OPERAND EXPO 
COMPUTE RES SIGN 000 BIT 
ZERO OUT Dl LOW FOR FLAGS 
COMP IF DIV.TRUE IF MULT 
SAVE RES SIGN 

SET UNDERFLOW FLAG 

SAVE RES EXP t SIGN AND FLAGS 

PUT NORMALIZED Rl BACK IN Rl 

T=R2 SAVE 0038 OR 0078 

BR IF MULT 

CONTINUE MULT PREP. 
FOR BINARY MULT 



SAVE 

SHORT CAND Rl 
GET PLIER R2 
SHIFT 
DATA 
TO SHARE 
BINARY 
BR TO SHARE BINARY 
SAVE 

LOW CAND LONG 
GET LONG PLIER 
SHIFT 
DATA 
TO 
SHARE 
BINARY 
MULT 
BR TO SHARE 

# # # #>£ j$c # a}e # 

CT CFMD * 



MULT 



Rl 
R2 



BINARY MULT 



FLOATING 



MULTIPLY 

RROP 
PROP 
RXflP 
RXOP 



OP 
3C 
2C 
7C 
6C 



CODES 



CFMU DESCRIPTIVE TEXT 

-CFMU- 



ADDR 



THE FLOATING POINT MULTIPLY ROUTINE, -CFMU- IS ENTERED 
FROM THE BINARY MULTIPLY ROUTINE -CMLT-. THE FOLLOWING 
SEQUENCE HAS TAKEN PLACE PRIOR TO ENTRY TO THE -CMPU- 
ROUTINE — 

CFCY- THE MULTIPLY OP CODE IS DECODED AND A 

BRANCH TO THE -CFMD- ROUTINE IS TAKEN. 
CPMD- THE OPERANDS ARE PRENORMALIZED AND SAVED. 
THE INTERMEDIATE PRODUCT EXPONENT IS 
COMPUTED AND SAVED. BRANCH TO THE -CLMT- 
ROUTINE. 
CLMT- COMPUTE INTERMEDIATE PRODUCT. BRANCH TO 
THE -CFMU- ROUTINE. 
WORD SEQUENCE NO. LABEL NEXTSEQ NEXTLABEL STATEMENT 
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POSTNORMALIZE THE PRODUCT IF NECESSARY. CHECK 
FOR UNDERFLOW- 

IF UNDERFLOW, SET UNDERFLOW FLAG AND 

BRANCH TO THE -CFHA- ROUTINE 
TO SEE IF AN INTERRUPT IS TO 
BE TAKEN. IF INTERRUPT, ZERO 
OUT RESULT FRACTION AND 
EXPONENT AND GO TO THE -BPSW- 
ROUTINE TO STORE INTERRUPT 
CODE IN PSW. IF NO INTERRUPT, 
GO TO THE NORMAL ENTRY TO THE 
-CFHA- ROUTINE. 

IF NO UNDERFLOW, GO TO THE -CFHA- ROUTINE 
TO STORE THE NORMALIZED 
PRODUCT IN THE FIRST OPERAND 
LOCATION. RETURN TO I-CYCLES 
ROUTINE -CICY-. 

COMMENTS 







CFMU 


00 1 


T 






CFMU 


00 2 


* 






CFMU 


00 3 


* 






CFMU 


004 


# 






CFMU 


005 


* 






CFMU 


006 


* 






CFMU 


007 


* 






CFMU 


008 


* 


2354 


5CB2 


CFMU 


0C9 


! 


2356 


FC08 


CFMU 


010 




2358 


44C6 


CFMU 


on 




235A 


1415 


CFMU 


012 




23 5C 


5CA2 


CFMU 


013 




235E 


5 07 9 


CFMU 


014 




2360 


5FQ9 


CFMU 


015 




2362 


5 7F9 


CFMU 


016 




2364 


5189 


CFMU 


017 




23 66 


5299 


CFMU 


018 




2368 


5329 


CFMU 


019 




236A 


5E39 


CFMU 


020 




236C 


2107 


CFMU 


021 




2 36E 


2507 


CFMU 


022 




2370 


A32C 


CFMU 


023 




2308 


5CA2 


CFMU 


024 


1 


230A 


C91B 


CFMU 


02 5 




230C 


3D8 3 


CFMU 


026 




230E 


7CA2 


CFMU 


027 




2310 


5CE2 


CFMU 


028 




2312 


52C8 


CFMU 


029 




2314 


5EC0 


CFMU 


030 




2316 


2C13 


CFMU 


031 





HULT 



LONG 







RDH P 


DA.AE 


02 4 


LONG 


BR IF 


P03=0 






G=P ** THIS 






G0=G0*-K10 






RDH P 


DA, AC 






D1 = UC 








U0=H1 








H1 = D1 








I0=U1 








I1 = V0 








V0=V1 








V1 = H0 








U1 = 








G1 = 




042 


MULTEN 


BR 








RDH P 


DA, AC 


03 3 


LONGEN 


BR IF 


P14=l 






P1=P1$K08 






STH P 


DA, AC 






RDH P 


DA,BC 






RDH V 


AS,P+2 






RDH H 


AS,P+0 






P0=0$K01 



FLOATING POINT MULTIPLY 



THIS ROUTINE IS ONLY REACHED BY A BRANCH FROM 
BINARY MULTIPLY -IF SHORT MULT IS FINISHED, IF LONG 
THIS ROUTINE GOES BACK TO BINARY FOR SECOND HALF 



RESTORE OP CODE TO P 

IS SHORT MULT IS FIN. PUT OP CODE IN G 
MAKE PRODUCT LONG 
GET RESULT EXPONENT AND FLAGS 

SHIFT 
DATA 
FOR 
POSTNORMALIZE 



ZERO OUT GUARD 

GET RESULT EXPONENT AND FLAGS 

BR IF SECOND TIME 

TURN ON SECOND FLAG 

PUT FLAGS AND EXPONENT BACK 

GET Rl ADD 

GET CAND HI Rl 

FOR BINARY MULT 























CL0AD=*E60, 


ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL STATEMENT 


COMMENTS 


2318 


6906 


CFMU 


032 




CMLT 


061 


FLTMU2 


BR 




BR TO SHARE BINARY MUL 


231A 


54B2 


CFMU 


033 


L ON GEN 








RDH G 


DA,AE 


GET OP CODE 


23 1C 


5AF9 


CFMU 


034 










H1=T0 






231E 


5B89 


CFMU 


03 5 










I0=T1 




SHIFT 


2320 


5699 


CFMU 


036 










11 = 00 




DATA 


2322 


5359 


CFMU 


03 7 










G1 = V1 




FOR 


2324 


503 9 


CFMU 


038 










V1 = UC 




POSTNORMALIZE 


2326 


5109 


CFMU 


03 9 










U0=U1 






232 8 


5219 


CFMU 


040 










U1 = V0 






23 2 A 


5 72 9 


CFMU 


041 










V0=D1 






232C 


46C6 


CFMU 


042 


MULTEN 








D=P 




SAVE FLAGS 


232F 


5CC2 


CFMU 


043 










RDH P 


DA,B8 


GET MASK 


2330 


CFF3 


CFMU 


044 










Z=H1*- 


■KCF 


CHECK FOR NORMALIZE 


2332 


C4BC 


CFMU 


045 






050 


ISNORM 


BR IF 


ZNZ 




2334 


B2F8 


CFMU 


046 




CFCO 


03 4 


SHIFL4 


BAL 




GO NORMALIZE 


2336 


2 6FF 


CFMU 


047 










D0=D0+KFF 


DEC 


2338 


F4BD 


CFMU 


04 8 






050 


ISNORM 


BR IF 


AC = 1 




23 3 A 


3713 


CFMU 


049 










01=01 SKC1 


SET UNDERFLOW FLAG 


2330 


5AE2 


CFMU 


050 


ISNORM 








RDH T 


DA,BC 


GET Rl ADO T=0 0X8 


233E 


B170 


CFMU 


051 




CFCO 


056 


ZTEST 


BAL 






2340 


D5C5 


CFMU 


052 






054 


RESNOZ 


BR IF 


Sl=l 




2342 


B1A0 


CFMU 


053 




CFHA 


02 9 


DIVNOI 


BR 




STORE TRUE REST I 


2344 


56E9 


CFMU 


054 


RESNOZ 








H0 = 00 




MOVE RESULT EXP 


2346 


1E85 


CFMU 


05 5 










H0=HC*-K8C 


REMOVE SIGN IN CASE OF 


2348 


C74C 


CFMU 


056 






05 8 


PLUS 


BR IF 


010=0 


BR IF RES IS *- 


234A 


3F85 


CFMU 


057 










H0=H0$K80 


MAKE RFS - 


234C 


2 080 


CFMU 


058 


PLUS 








SET S4 




234E 


F300 


CFMU 


059 






062 


NOT UNO 


BR IF 


017=0 




23 50 


27D3 


CFMU 


060 










D1=0$K0D 




2352 


B19E 


CFMU 


061 




CFHA 


02 8 


UNDCHK 


BR 






2300 


C605 


CFMU 


062 


NOT UNO 




064 


OVF 


BR IF 


000=1 




2302 


0080 


CFMU 


06 3 










RST S4 




2304 


2 7C3 


CFMU 


064 


OVF 








D1=Q$K0C 




2306 


B1A6 


CFMU 


06 5 




CFHA 


032 


ST0RE1 


BR 




















#####£jfc#3&^#######&##3fc^&3fc3fc#3fc###:fc3$C>je3}C 
















* CROSS 


REFERENCE FOR CSECT 


CFMU * 
















3^$3$c$3|c^c$:&3£c$3$c#3$c %i$n$r.%i ip. # ajc & 3$c jfc ajc age $$$$&$&:&$ 
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GO TO ICYC 



OVF 



CFMU 


009 


CMLT 


064 


CFMU 


024 


CFMU 


010 


CFMU 


033 


CFMU 


02 5 


CFMU 


042 


CFMU 


02 3 


CFMU 


050 


CFMU 


045 


CFMU 


54 


CFMU 


05 2 


CFMU 


058 


CFMU 


056 


CFMU 


062 


CFMU 


059 


CFMU 


064 


CFMU 


062 



CFMij 048 



THE I-CYCLES ROUTINE IS ENTERED AT FIVE MAJOR ENTRY POINTS. 

LABEL CHECKX - ENTRY IS MADE HERE FROM M ICROROUTIN ES THAT NEED 
CONDITION CODE ZERO SET. 

LABEL CHECK - ENTRY HERE IS FROM ROUTINES THAT DID NOT BRANCH 

OUT TESTING FOR EXECUTE AND INTERRUPT. 

LABEL ISTARTO THIS BRANCH SET ENTRY IS MADE FROM ROUTINES THAT 
TESTED FOR EXECUTE AND INTERRUPT AS THE EXIT 
FROM THAT ROUTINE WAS MADE. 



LABEL ADDERR 



ENTRY AT THIS POINT IS MADE WHEN AN ADDRESSING 
ERROR HAS BEEN DETECTED. THE ERROR IS FLAGGED 
AND THE *BPSW* ROUTINE IS BRANCHED TO. THE 
*BPSW* ROUTINE STORES THE OLD PSW, INCLUDING 

THE INTERRUPT CODE THAT INDICATES AN ADDRESSING 

ERROR. 



LABEL SPECHK - ENTRY IS MADE HERE FROM ROUTINES IN WHICH A 

SPECIFICATION EXCEPTION IS DETECTED. THE 
SPECIFICATION EXCEPTION IS FLAGGED AND A BRANCH 
IS TAKFN TO THE *8PSW* ROUTINE. THE *BPSW* 
ROUTINE STORES THE OLD PSW, INCLUDING THE 
INTERRUPTION CODE THAT INDICATES A SPECIFICATION 
EXCEPTION. 



THF ENTRY POINTS CHECKX, CHECK, AND ISTART ARE THE NORMAL ENTRY 
POINTS TO THE I-CYCLES ROUTINE. 

IF THE FNTRY IS MADE FROM AN EXECUTE INSTRUCTION, THE SAVED 
INSTRUCTION ADDRESS IS RESTORED AND THE NEW INSTRUCTION READ OUT 
BEGINS. 

IF THE ENTRY IS MADE FROM AN EXECUTE INSTRUCTION, AND AN 
INTERRUPT IS PENDING, THE SAVED INSTRUCTION ADDRESS IS RESTORED 
AND A BRANCH TO THE *BSWI* ROUTINE IS MADE. THE *BSWI* ROUTINE 
WILL DETERMINE THE TYPE OF INTERRUPT AND HANDLE IT. 

IF THE ENTRY IS MADE WITH DNLY AN INTERRUPT PENDING, THE *BPSW* 
ROUTINE IS BRANCHED TO DIRECTLY. 

IF THE ENTRY IS MADE WITH NO INTERRUPT PENDING AND NO EXECUTE, 
THE FIRST 2 INSTRUCTION BYTES ARE READ OUT AND A TEST IS MADE 
ON THE HIGH 4 BITS OF THE OP CODE. 



HIGH HEX 
DIGIT 



0,1 
2,3,6,7 



4,5 



A,B,C,E 



D 
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TEST HIGH 4 BITS OF OP CODE 

OPERATION 



TEST LOW 4 
THE PROPER 



BITS OF OP CODE 
ROUTINE. 



AND BRANCH TO 



THESE ARE FLOATING POINT OPS. A BRANCH IS 
TAKEN DIRECTLY TO THE *CFCY* ROUTINE. THIS 
IS THE FLOATING POINT I-CYCLES ROUTINE. 

READ 2ND 2 BYTES OF INSTRUCTION , FIND THE 
EFFECTIVE OPERAND ADDRESS, TEST LOW 4 BITS 

OF OP CODE, BRANCH TO PROPER ROUTINE. 

READ 2ND 2 BYTES OF INSTRUCTION, FIND THE 
EFFECTIVE OPERAND ADDRESS. TEST BIT 4 OF 
OP CODE, IF A SHIFT OP, BRANCH TO *CSFT*, 
IF NOT A SHIFT, TEST LOW 4 BITS OF OP CODE 
AND BRANCH TO PROPER ROUTINE. 

FIND EFFECTIVE OPERAND ADDRESS, TEST LOW 
4 BITS OF OP CODE AND BRANCH TO PROPER 
ROUTINE. 

INCREMENT INSTRUCTION ADDRESS +2 FOR A AND 
B, +4 FOR C AND E. FLAG INVALID OP AND 
BRANCH TO *BPSW* ROUTINE WHERE THE 
OPERATION INTERRUPTION CODE IS STORED IN 
THE OLD PSW. 

FIND EFFECTIVE OPERAND ADDRESSES, TEST LOW 
4 BITS OF OP CODE AND BRANCH TO PROPER 
ROUTINE. 

FIND EFFECTIVE OPERAND ADDRESSES, ADD IN 
THE OPERAND LENGTH CODES TO THE EFFECTIVE 
ADDRESSES TO POINT TO LOW ORDER BYTES. 
TEST LOW 4 BITS OF OP CODE AND BRANCH TO 
PROPER ROUTINE. 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEO 



NEXTLABEL STATEMENT 



COMMENTS 



CICY 001 T 
CICY 002 * 



INSTRUCTION CYCLES 360 OP SET 



001 



ADOR 


WORD 


SEQUENCE NO. 


LABEL 




NEXTSEO 


NEXTLABEL 


STATEMENT 


2A74 


2C07 


CICY 


003 


CHECKX 












P0=0 


2A76 


8185 


C ICY 


004 


CHECK 






00 5 


I START 


N 


N=S BITS67 


2A00 


A99C 


CICY 


005 


I START 







010 


EXCHK 




BR 


2A0? 


A99C 


CICY 


006 


I START 


1 




010 


EXCHK 




BR 


2A04 


8446 


CICY 


007 


I START 


2 


BSWI 


007 


CHECKB 




BR 


2A06 


5498 


CICY 


00 8 


I START 


3 










RDH G 1*2 


2A08 


B46 3 


CICY 


009 


OPHIBR 






013 


OPHI 


N 


N=GOH 


299C 


5 892 


CICY 


010 


E XC'HK 












RDH I DA t AA 


299E 


2 02 


CICY 


Oil 














SET S6 


29A0 


818 5 


CICY 


012 








00 5 


I START 


N 


N=S BITS67 


2960 


B053 


CICY 


013 


OPHI 







133 


OPOX 


N 


N=GOL 


2962 


B073 


CICY 


014 


OPHI 


1 




169 


0P1X 


N 


N=GOL 


2964 


A8C4 


CICY 


015 


OPHI 


2 


CFCY 


012 


RROP 




BR 


2966 


A8C4 


CICY 


016 


OPHI 


3 


CFCY 


012 


RROP 




BR 


2968 


8100 


CICY 


017 


OPHI 


4 




064 


0PHI4 




BR 


296A 


AE8C 


CICY 


018 


OPHI 


5 




06 6 


OPHI 5 




BR 


296C 


A SAO 


CICY 


019 


OPHI 


6 


CFCY 


034 


RXOP 




8R 


296E 


A SAO 


C ICY 


020 


OPHI 


7 


CFCY 


034 


RXOP 




8R 


2970 


9044 


CICY 


021 


OPHI 


8 




05 8 


0PHI8 




BR 


2972 


8108 


CICY 


022 


OPHI 


9 




06 2 


0PHI9 




BR 


2974 


83B2 


CICY 


023 


OPHI 


A 




076 


RSINV 




BR 


2976 


83B2 


CICY 


024 


OPHI 


B 




076 


RSINV 




BR 


2978 


8 3B0 


CICY 


025 


OPHI 


C 




075 


SSINV 




BR 


297A 


8104 


CICY 


026 


OPHI 







073 


OPHIO 




BR 


29 7C 


8 3B0 


CICY 


029 


OPHI 


E 




075 


SSINV 




BR 


297E 


8EC8 


CICY 


034 


OPHI 


F 




043 


SSFX 




BR 


0EC8 


814C 


C ICY 


043 


SSFX 






111 


BASE3 




BAL 


OECA 


5 5E5 


CICY 


044 














H0=G1XL 


OECC 


61EB 


CICY 


045 














U1C=U1+H0 


OECE 


6 0AD 


CICY 


046 














UOC=UO+TO+C 


OEOO 


6FAD 


CICY 


047 














H1C=H1+T0+C 


0ED2 


55E0 


CICY 


048 














H0=G1L 


0ED4 


6 3E3 


CICY 


049 














V1C=V1+H0 


0ED6 


62A0 


CICY 


050 














V0C=V0+T0+C 


0ED8 


67A0 


CICY 


051 














D1C=D1+T0+C 


OEOA 


6F75 


C ICY 


052 














H1=H1$D1 


OEDC 


AB77 


CICY 


053 








055 


ADERR 


N 


BR IF H1=NZ 


OEDE 


B07D 


CICY 


054 








267 


OPFX 


N 


N=GOL 


OBEO 


AA2C 


CICY 


055 


4DERR 







056 


AODERR 





BR 


2 A 20 


2853 


CICY 


056 


AODERR 













T1=0$K05 


2A22 


89FC 


CICY 


057 






BPSW 


CO 3 


PROG 




BR 


1044 


8 34 A 


CICY 


05 8 


OPHI 8 






081 


BASE1 




BAL 


1046 


C043 


CICY 


059 








061 


ALLSHI 




BR IF G04=l 


1048 


9023 


CICY 


060 








217 


0P8X 


N 


N=G0 BITS567 


104? 


9CFA 


CICY 


061 


ALLSHI 




CSFT 


014 


SHIFT 




BR 


0108 


834A 


CICY 


062 


0PHI9 






081 


BASE1 




BAL 


010A 


B009 


CICY 


063 








225 


0P9X 


N 


N=GOL 


0100 


A 60 8 


CICY 


064 


3PHI4 






092 


BASE? 




BAL 


010 2 


B055 


CICY 


065 








185 


0P4X 


N 


N=GOL 


2E8C 


A6D8 


CICY 


066 


OPHI 5 






092 


8ASE2 




BAL 


2E8E 


AB25 


CICY 


067 








056 


AODERR 


N 


BR IF H1=NZ 



CLQAD; 

COMMENTS 
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SET CC TO EQUAL 

TEST FOR EXECUTE OR INTERRUPT 

EXECUTE AND INT 

EXECUTE NOT INT 

INT NOT EXECUTE 

READ FIRST TWO INST. BYTES 
TEST HIGH OP CODE DIGIT 
READ SAVED ADDRESS 
TURN OFF EXECUTE 

RR OP 

CODE BREAKDOWN 
FLOATING POINT OPS 
FLOATING POINT OPS 
RX OP 

CODE BASE CALCULATE 
FLOATING POINT OPS 
FLOATING POINT OPS 
RS OPS 
SI OPS 
INVALID 

OP 
CODES 
SS OPS 
INVALID OPS 
DECIMAL OPS 

CALCULATE 
RIGHT MOST 
ADDRESS 
ADD IN LENGTH CODES TO 
POINT TO LOW BYTE 
OF OPERANDS 



SS FXOP BREAKOUT 

FLAG ADDRESS ERR 
MAKE ADDRESSABLE 
FLAG ADDRESS ERROR 
GO TAKE INTERUPT 
RS OP CODE 8X 
SHIFT OPS 

8X OPS LOW DIGIT TEST 
SHIFT OPS EXIT 
RS OP CODE 9X 

BREAKOUT 
RX GO TO BASE + INDEX 

BREAKOUT 
RX GO TO BASE AND INDEX 
CHECK FOR ADDRESS ERROR 



















CL0AD=*E60, EC 


ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


COMMENTS 


2E90 


01C3 


CTCY 


06 8 








Z=U1*-K0C 


TEST FOR 


2E92 


F08B 


CICY 


069 




07 2 


0PHI5A 


BR IF LZ=0 


SPECIFICATION CHECK 


2E94 


2B63 


CICY 


070 


SPECHK 






T1=0$K06 


FLAG SPEC CHECK 


2E96 


8 9FC 


CICY 


071 




BPSW 003 


PROG 


BR 


BRANCH TO STORE INTERRUPT 


2E8A 


B071 


CICY 


072 


D PHI 5 A 


201 


0P5X N 


N=GOL 


RX 5X0P BREAKOUT 


0104 


814C 


CICY 


073 


OPHID 


111 


BASE3 


BAL 


SS DXOP 


0106 


B075 


CICY 


074 




251 


OPDX N 


N = GOL 


BREAKOUT 


03B0 


6884 


CICY 


075 


SSINV 






1=1+2 


INCREMENT 


03B2 


6884 


CICY 


076 


RSINV 






1=1+2 


INSTR ADDRESS 


03B4 


2B13 


CICY 


077 


OPERR 






T1=0$K01 


AND FLAG ERROR 


03B6 


89FC 


CICY 


078 




BPSW 003 


PROG 


BR 


BRANCH TO STORE INTERRUPT 


2DFC 


2B23 


C ICY 


079 


PRIVOP 






T1=0$K02 


FLAG PR IV OP 


20FE 


P9FC 


C ICY 


080 




BPSW 003 


PROG 


BR 


BRANCH TO STORE INTERRUPT 


034A 


5 09 8 


CICY 


081 


BASE1 






RDH U 1+2 


READ 2ND 2 INST BYTES 


034C 


5 0BB 


CICY 


082 








T1=U0H 


AND PUT IN REG. ADD. 


034E 


C 4C 7 


CICY 


083 




090 


0UT1 


BR IF Z=0 


BRANCH IF NO BASE 


0350 


5EA8 


C ICY 


084 








RDH H AS,T+2 


GET BASE DATA 


0352 


56A0 


CICY 


08 5 








RDH D AS,T 


AND 


0354 


617B 


CICY 


086 








U1C=U1+D1 


CALCULATE 


0356 


6 06F 


CICY 


08 7 








UOC=UOL+DO+C 


EFFECTIVE 


0358 


6FA0 


CICY 


088 








H1C=H1+T0+C 


ADDRESS 


035A 


128E 


CICY 


089 








RTN 




0346 


2F0 7 


CICY 


090 


0UT1 






H1 = 


INDICATE ZERO BASE 


0348 


128E 


CICY 


09 1 








RTN 




26D8 


5 09 8 


CICY 


092 


BASE2 






RDH U 1+2 


READ 2ND 2 INST. BYTES 


26DA 


50BB 


CICY 


093 








T1=U0H 




26DC 


C4F9 


CICY 


094 




108 


BASE2A 


BR IF Z=0 


NO BASE BR 


26DE 


5EA8 


CICY 


095 








RDH H AS,T+2 


GET 


26E0 


5 6A0 


CICY 


096 








ROH D AS,T 


REGISTER DATA 


26E2 


617B 


CICY 


09 7 








U1C=U1+01 


CALCULATE 


26E4 


6 06F 


CICY 


09 8 








UOC=UCL+DO+C 


BASE 


26E6 


6FAD 


CICY 


099 








H1C=H1+T0+C 


VALUE 


26E8 


5 58 3 


C ICY 


100 


BASE2B 






T1=G1XH 


GET INDEX REG. 


26EA 


C4F7 


CICY 


101 




107 


3ASE2C 


BR IF Z=0 


NO INDEX BR 


26EC 


5 2A8 


C ICY 


102 








RDH V AS,T+2 


GET 


26EE 


56A0 


CICY 


103 








RDH D AS,T 


REGISTER DATA 


26F0 


617B 


CICY 


104 








U1C=U1+D1 


CALCULATE 


26F2 


606D 


CICY 


10 5 








UOC=UG+DO+C 


INDEX 


26F4 


6F30 


CICY 


106 








H1C=H1+V1+C 


VALUE 


26F6 


128E 


CICY 


107 


3ASE2C 






RTN 




26F8 


2F07 


CICY 


108 


BASE2A 






H1 = 


INDICATE ZERO BASE 


26FA 


C4E9 


CICY 


109 




100 


BASE2B 


BR IF 7.^0 


UNCONDITIONAL BRANCH 


014C 


5 09 8 


CICY 


HI 


BASE3 






RDH U 1+2 


READ 2ND 2 INST. BYTES 


014E 


50BB 


C IC Y 


112 








T1=U0H 


GET BASE ADDRESS 


0150 


C4C5 


CICY 


113 




129 


BASE3A 


BR IF Z=0 


BRANCH IF NO BASE I 


0152 


5EA8 


CICY 


114 








RDH H AS,T+2 


GET 


0154 


5 6A0 


CICY 


115 








RDH D AS,T 


BASE DATA 


0156 


617B 


CICY 


116 








U1C=U1+D1 


CALCULATE 


0158 


606F 


CICY 


117 








U0C=U0L+D0+C 


1ST 


01 5 A 


6 FAD 


CICY 


118 








H1C=H1+T0+C 


OPERAND 


015C 


5298 


CICY 


119 


BASE3B 






RDH V 1+2 


READ 3RD 2 INST BYTES 



LEVEL=128266 PAGE 107 



CODE 



CODE 



CODE 



AODR 


WORD 


SEQUENC 


:e no. 


LABEL 




NEXT! 


iEQ 


NEXTLABEL 


STATEMENT 


015E 


52B8 


CICY 


120 












T1=V0H 


C160 


C4C9 


C ICY 


121 








131 


BASE3C 


BR IF 7=0 


0162 


6AA4 


CICY 


122 












T=T + 2 


0164 


56AA 


CICY 


123 












ROH D AS.T-2 


0166 


637B 


CICY 


124 












V1C=V1+D1 


0168 


626F 


CICY 


12 5 












VOC=VOL+DO+C 


016A 


56A0 


CICY 


126 












ROH D AS,T 


01 6C 


6 7A0 


C ICY 


127 












D1C=D1+T0+C 


01 6 E 


128E 


CICY 


128 












RTN 


0144 


2F07 


C ICY 


129 


BASE3A 










H1 = 


0146 


C4DD 


C ICY 


130 








119 


BASE3B 


BR IF Z = 


0148 


2707 


C ICY 


131 


BASE3C 










01 = 


014A 


128E 


C ICY 


132 












RTN 


29C0 


83B4 


CICY 


133 


OPOX 







C77 


OPERR 


BR 


29C2 


83B4 


CICY 


134 


OPOX 


1 




077 


OPERR 


BR 


29C4 


83B4 


CICY 


135 


OPOX 


2 




077 


OPERR 


BR 


29C6 


8384 


CICY 


136 


OPOX 


3 




C77 


OPERR 


BR 


29C8 


AE32 


CICY 


137 


OPOX 


4 


CSTS 


08 7 


RROP04 


BR 


29CA 


A 91 2 


CICY 


138 


OPOX 


5 


CBRC 


02 3 


RROP05 


BR 


2<5CC 


ADAS 


C ICY 


139 


OPOX 


6 


CBRC 


C68 


RROP0 6 


BR 


29CE 


A 93 A 


CICY 


140 


OPOX 


7 


CBRC 


005 


RR0P07 


BR 


2900 


AA34 


C ICY 


141 


OPOX 


8 


CSTS 


044 


PR0P0 8 


BR 


2^02 


AA34 


CICY 


142 


OPOX 


9 


CSTS 


044 


RR0P0 8 


BR 


2904 


8364 


C ICY 


143 


OPOX 


A 


CSTS 


098 


RROPOA 


BR 


29D6 


83B4 


CICY 


146 


OPOX 


B 




077 


OPERR 


BR 


29D8 


83B4 


CICY 


164 


OPOX 


C 




077 


OPERR 


BR 


29DA 


83B4 


CICY 


165 


OPOX 







077 


OPERR 


BR 


29DC 


8384 


CICV 


166 


OPOX 


E 




07 7 


OPERR 


BR 


29DE 


8384 


CICY 


167 


OPOX 


f 




07 7 


OPERR 


BR 


29E0 


AC34 


CICY 


169 


0P1X 


n : 


CLST 


005 


RR0P1C 


BR 


29E2 


AC28 


CICY 


170 


0P1X 


1 


CLST 


030 


RR0P11 


BR 


29E4 


ACOC 


CICY 


171 


0P1X 


2 


CLST 


018 


RR0P12 


BR 


29E6 


ACOO 


CICV 


172 


OPIX 


3 


CLST 


040 


RR0P13 


BR 


29E8 


8480 


CICY 


173 


0P1X 


4 


CLOG 


078 


RR0P14 


BR 


29EA 


B27A 


CICY 


174 


OPIX 


5 


CLOG 


04 7 


RR0P15 


BR 


29EC 


A57C 


C ICY 


175 


OPIX 


6 


CLOG 


114 


RR0P16 


BR 


29EE 


8 48C 


C ICY 


176 


3P1X 


7 


CLOG 


144 


RR0P17 


BR 


29F0 


AE98 


CICY 


177 


OPIX 


8 


CLST 


046 


RR0P18 


BR 


29F2 


94C2 


C ICY 


178 


OPIX 


9 


CBIN 


00 5 


RR0P19 


BR 


29F4 


A4FC 


C ICY 


179 


OPIX 


A 


CBIN 


02 2 


RR0P1A 


BR 


29F6 


A77C 


C ICY 


180 


OPIX 


B 


CBIN 


038 


RR0P1B 


BR 


29F8 


A06C 


C ICY 


181 


3P1X 


C 


CMLT 


00 7 


RR0P1C 


BR 


29FA 


8390 


C ICY 


182 


OPIX 





COVD 


00 2 


RR0P10 


BR 


29FC 


AE7 8 


CICY 


183 


OPIX 


E 


CBIN 


051 


RR0P1E 


BR 


29FE 


A078 


CICY 


184 


OPIX 


F 


CBIN 


072 


RR0P1F 


BR 


02C0 


ACD4 


CICY 


185 


0P4X 





CLST 


055 


RX0P40 


BR 


02C2 


AD76 


CICY 


186 


3P4X 


1 


CLOG 


200 


RX0P41 


BR 


02C4 


AEA6 


C ICY 


187 


0P4X 


2 


CLOG 


192 


RX0P42 


BR 


02C6 


A874 


CICY 


188 


3P4X 


3 


CLOG 


184 


RX0P43 


BR 


02C8 


A DBS 


CICY 


189 


0P4X 


4 


CBRC 


04 7 


RX0P44 


BR 


02CA 


A91C 


CICY 


190 


0P4X 


5 


CBRC 


031 


RX0P45 


BR 
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COMMENTS 



BRANCH IF NO BASE 2 



CALCULATE 
2ND 
OPERAND 



INDICATE ZERO BASE 
UNCONDITIONAL BRANCH 
INDICATE ZERO BASE 



INVALID OP CODES 



M MASK 

LINK RR 
COUNT RR 
DITION RR 



CALL 



INVALID OP CODES 



* 

* 
SET PROGRA 
BRANCH AND 
BRANCH ON 
BRANCH CON 
SET KEY 
INSERT KEY 
SUPERVISOR 

* 

* 

* 
LOAD 
LOAD 
LOAD 
LOAD 
AND 

COMPARE 
OR 

EXCLUSIVE 
LOAD 
COMPARE 
ADD 

SUBTRACT 
MULTIPLY 
DIVIDE 
ADD LOGICA 
SUBTRACT L 
SUBTRACT H 
LOAD ADORE 
STORE CHAR 
INSERT CHA 
EXECUTE 
BRANCH AND 



POSIT 
NEGAT 
AND T 
COMPL 



IVE 
IVE 

EST 

EMENT 



OR 



L 

OGICAL 

ALFWORD 

SS 

ACTER 

RACTER 

LINK 



RX 
RX 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 




NEXT! 


5EQ 


NEXTLABEL 


S 


02CC 


ADR 2 


CICY 


191 


3P4X 


6 


CBRC 


074 


RX0P46 


BR 


02CE 


A 942 


CICY 


192 


0P4X 


7 


CBRC 


Oil 


RX0P47 


BR 


02D0 


ACCO 


CICY 


19 3 


0P4X 


8 


CLST 


066 


RX0P48 


BR 


0202 


A3EE 


CICY 


194 


3P4X 


9 


CBIN 


018 


RX0P49 


BR 


02D4 


88E8 


CICY 


195 


3P4X 


A 


CBIN 


03 4 


RX0P4A 


BR 


02D6 


969C 


CICY 


196 


3P4X 


B 


CBIN 


04 7 


RX0P4B 


BR 


0209 


8 97 8 


CICY 


197 


3P4X 


C 


CMLT 


014 


RX0P4C 


BR 


02DA 


83B4 


CICY 


198 


0P4X 







07 7 


OPERR 


BR 


02DC 


AC4E 


CICY 


199 


3P4X 


E 


CNVR 


00 5 


RX0P4E 


BR 


02DE 


AC4E 


CICY 


200 


0P4X 


F 


CNVR 


005 


RX0P4E 


BR 


28E0 


AEBE 


CICY 


201 


3P5X 





CLST 


07 8 


RX0P50 


BR 


28E2 


83B4 


CICY 


20 2 


0P5X 


1 




077 


OPERR 


BR 


28E4 


83B4 


C ICY 


203 


0P5X 


2 




07 7 


OPERR 


BR 


28E6 


8 3B4 


CICY 


204 


3P5X 


3 




077 


OPERR 


BR 


28E8 


A 83 A 


CICY 


20 5 


0P5X 


4 


CLOG 


082 


RX0P54 


BR 


28EA 


A86A 


CICY 


206 


0P5X 


5 


CLOG 


05 


RX0P55 


BR 


28EC 


8CE4 


CICY 


20 7 


3P5X 


6 


CLOG 


118 


RX0P56 


BR 


28EE 


8114 


CICY 


20 8 


0P5X 


7 


CLOG 


148 


RX0P57 


BR 


28F0 


AEB2 


CICY 


209 


0P5X 


8 


CLST 


086 


RXOP58 


BR 


28F2 


AD52 


CICY 


210 


3P5X 


9 


CBIN 


008 


RX0P5 9 


BR 


28F4 


AC18 


' CICY 


211 


3P5X 


A 


CBIN 


026 


RX0P5A 


BR 


28F6 


8 80 A 


CICY 


212 


3P5X 


B 


CBIN 


042 


RX0P58 


BR 


28F8 


A 06 4 


CICY 


213 


3P5X 


C 


CMLT 


00 2 


RX0P5C 


BR 


28FA 


B2BC 


C ICY 


214 


0P5X 





COVO 


006 


RX0P50 


BR 


28FC 


AD42 


CICY 


215 


3P5X 


F 


CBIN 


055 


RX0P5E 


BR 


28FE 


8E7A 


CICY 


216 


0P5X 


F 


CBIN 


076 


RX0P5F 


BR 


1120 


AA6 8 


CICY 


217 


0P8X 





CSTS 


Oil 


RS0P80 


BR 


1122 


83B4 


CICY 


218 


3P8X 


1 




077 


OPERR 


BR 


1124 


AA24 


C ICY 


219 


3P8X 


2 


CSTS 


00 3 


RS0P82 


BR 


1126 


AA30 


CICY 


220 


0P8X 


3 


CSTS 


019 


RS0P93 


BR 


1128 


8898 


CICY 


221 


3P8X 


4 


CSTS 


112 


RS0P84 


BR 


112A 


8A5E 


CICY 


22 2 


3P8X 


5 


CSTS 


113 


RS0P85 


BR 


112C 


AC88 


CICY 


223 


0P8X 


6 


CBRC 


09 1 


RS0P86 


BR 


U2E 


ACS 8 


CICY 


22 4 


0P8X 


7 


CBRC 


091 


RS0P8 6 


BR 


040C 


B412 


C ICY 


225 


0P9X 





CLST 


094 


RS0P9 


BR 


040 2 


A 85 A 


CICY 


226 


0P9X 


1 


CLOG 


174 


RS0P9 1 


BR 


0404 


A9BA 


CICY 


22 7 


0P9X 


2 


CLOG 


004 


RS0P9 2 


BR 


0406 


AE44 


CICY 


22 8 


0P9X 


3 


CSTS 


076 


RS0P9 3 


BR 


0408 


A84C 


CICY 


229 


0P9X 


4 


CLOG 


09 3 


RS0P94 


BR 


040A 


A816 


CICY 


230 


0P9X 


5 


CLOG 


05 6 


RS0P95 


BR 


040C 


AB72 


CICY 


23 1 


0P9X 


6 


CLOG 


126 


RS0P9 6 


BR 


040E 


A 95 8 


CICY 


232 


0P9X 


7 


CLOG 


156 


RS0P97 


BR 


0410 


B420 


CICY 


233 


QP9X 


8 


CLST 


103 


RS0P98 


BR 


0412 


83B4 


CICY 


239 


3P9X 


9 




077 


OPERR 


BR 


0414 


83B4 


CICY 


241 


0P9X 


A 




077 


OPERR 


BR 


0416 


83B4 


CICY 


246 


QP9X 


B 




077 


OPERR 


BR 


0418 


8886 


C ICY 


247 


3P9X 


C 


DC LA 


002 


IOINST 


BR 


041A 


8886 


CICY 


248 


3P9X 


D 


DCLA 


002 


IOINST 


BR 


04 1C 


8886 


C ICY 


249 


0P9X 


E 


DCLA 


00 2 


IOINST 


BR 


041 E 


8886 


CICY 


250 


3P9X 


F 


DCLA 


00 2 


IOINST 


BR 


02E0 


83B4 


CICY 


251 


OPDX 







07 7 


OPERR 


BR 



CLOAD=*E60, 
COMMENTS 

BRANCH ON COUNT RX 
BRANCH ON CONDITION 
LOAD HALFWORD 
COMPARE HALFWORD 
ADD HALFWORD 
SUBTRACT HALFWORD 
MULTIPLY HALFWORD 

* INVALID OP CODE 
CONVERT TO DECIMAL 
CONVERT TO BINARY 
STORE 

* 

* INVALID OP CODES 
* 

AND 

COMPARE LOGICAL 

OR 

EXCLUSIVE OR 

LOAD 

COMPARE 

ADD 

SUBTRACT 

MULTIPLY 

DIVIDE 

ADD LOGICAL 

SUBTRACT LOGICAL 

SET SYSTEM MASK 

* INVALID OP CODE 
LOAD PSW 
DIAGNOSE 

WRITE DIRECT 
READ DIRECT 
BRANCH ON INDEX HIGH 
BRANCH ON INDEX LOW OR 
STORE MULTIPLE 
TEST UNDER MASK 
MOVE 

TEST AND SET 
AND 

COMPARE LOGICAL 
OR 

EXCLUSIVE OR 
LOAD MULTIPLE 
* 

* INVALID OP CODES 

START 1/0 
TEST I/O 
HALT I/O 
TEST CHANNEL 

* INVALID OP CODE 
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EQUAL 



A DOR 

02E2 
02E4 
02E6 

02E8 
02EA 
02 EC 
02EE 
02F0 
02F2 
02F4 
02F6 
02F8 
C2FA 
02FC 
02FE 
OEEC 
0EE2 
0EE4 
0EE6 
DEE8 
OEEA 
OEEC 
OEEE 
CEFO 
OFF? 
0EF4 
0EF6 
0EF8 
OEFA 
OEFC 
OEFE 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CLOAD=*E60, 

COMMENTS 
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cicv 

CICY 
CICY 
CICY 
CICY 
CICY 



AE56 
A ETC 
AE20 
A 944 

A 82 8 
A 98 8 
A 06 2 
8334 
83B4 
8 3B4 
83B4 
ADOQ 
A DOC 
A AT 8 
A AT 8 
83B4 
8136 
AE6F 
AE6 8 
83B4 
83B4 

8 3B4 
83B4 
934C 
93BA 
934E 
9338 

9 7A8 
9 7A8 
8 3B4 
83B4 



CICY 
CICY 
CICY 
CICY 
CICY 
CICY 
CICY 
CICY 
CICY 
CICV 
ICY 
ICY 
ICV 
ICY 
ICY 
ICY 
CICY 
CICY 
CICY 
CICY 
CICY 
CICY 
C ICY 
CICY 
CICY 
CICY 
CICY 
CICY 
CICY 
CICY 
CICY 



CICY 003 
CICY C04 
CICY 005 



008 
010 
013 
043 
055 
056 



CICY 058 
CICY G61 
CICY 062 



CCOM 
CDMD 
BSWI 
CCOM 
CLOG 
CNVP 
BPSW 
CICY 
CBRC 
CICY 
CICY 
3WRP 
CLOG 
CLST 
CICY 
CICY 
CICY 



156 
149 
115 
160 
181 
056 
06 3 
OC 5 
06 2 
03 4 
05 3 
12 
068 
110 
021 
059 
02 2 



252 
253 
254 
255 
256 
257 

25 8 
259 
260 
261 
262 

26 3 
264 
265 
266 
267 
26 8 
26 9 
270 
272 
273 
278 
279 
280 
28 1 
282 
28 3 
284 
285 
287 
288 



CFAO 
COVD 
f BIN 
CCOM 
CLOG 
CNVR 
CBRC 
CICY 
CICY 



OPDX 
OPDX 
OPDX 
QPOX 
OPDX 
OPDX 
OPDX 
OPDX 
OPDX 
OPOX 
OPDX 
OPDX 
OPDX 
OPDX 
OPDX 
PF X 
OPFX 
OPFX 
OPFX 
OPFX 
OPFX 
OPFX 
OPFX 
OPFX 
OPFX 
OPFX 
OPFX 
OPFX 
OPFX 
OPFX 
OPFX 



1 
2 
3 

4 
5 

6 
7 
8 

9 
A 

B 
C 
D 
E 
F 

1 
2 
3 
4 
5 
6 
7 
8 
9 
A 
B 
C 
D 
E 
F 



07 5 

08 7 
015 
164 
189 
122 
06 6 
006 
00 9 



CSAS 
CFAD 
CBIN 
CCOM 
CLOS 
CSTS 



BWRP 122 
CLOG 09 3 
CNVR 00 5 



CBRC 
CLOG 
CSTS 



CLOG 
CLOG 

CLOG 
CLOG 
CLOG 
CLOG 

CLOG 



CTRT 
CTRT 
CTRT 
CTRT 

CMPU 
CMPU 
CMPU 



CSAS 
CSAS 
CSAS 
CSAS 
CDMD 
COMO 



016 

008 
026 
102 

06 7 
132 
162 
077 

07 7 
077 
07 7 
00 3 
00 3 
033 
033 
077 
00 3 
Oil 
008 
077 
077 
077 
077 
CC6 
061 
007 
060 
002 
00 2 
077 
07 7 



099 
130 
062 
168 
197 
016 



CSFT 
CFHA 
CBIN 
CICY 
CLOG 
CSTS 



047 CCOM 
103 CLOG 
003 CSTS 



SSOPD 
SSOPD 
SSOPD 
SSOPD 
SSOPD 
SSOPD 
SSOPD 
OPERR 
OPERR 
OPERR 
OPERR 
SSOPD 
SSOPD 
SSOPD 
SSOPD 
OPERR 
SSOPF 
S SO PF 
SSOPF 
OPERR 
OPERR 
OPERR 
OPERR 
SSOPF 
SSOPF 
SSOPF 
SSOPF 
SSOPF 
SSOPF 
OPERR 

OPERR 
###*# 

* CRO 

084 C 

035 C 

065 C 

004 C 

204 C 

059 C 



BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
8R 
BR 
BR 
BR 
BR 
BR 
BR 



MOVE NUM 
MOVE 

MOVE ZON 
AND 

COMPARE 
OR 

EXCLUSIV 
* 

* INVA 
* 

TRANSLAT 
TRANSLAT 
EDIT 
EDIT AND 

* INVA 
MOVE WIT 
PACK 
UNPACK 

* INVA 

* 
ZERO AND 
COMPARE 
ADD DEC1 
SUBTRACT 
MULTIPLY 
DIVIDE D 



ERIC 

ES 

LOGICAL 

E OR 

LID OP CODES 

E 

E AND TEST 

MARK 
LID OP CODE 
H OFFSET 

LID OP CODES 



ADD 

DECIMAL 

MAL 
DECIMAL 
DECIMAL 

ECIMAL 



* INVALID OP CODES 



SS REFERENCE FOR CSE 

S^C 3$C 3$C 3$C *$C20C 3^C sjc >fc S&T 3fc Jfc 3§C s£ J$C J$C $fc 3$C 3^ 3$£ 



CT CICY * 



TRT 
FLS 
BIN 
ICY 
LST 
STS 



021 
04 3 
06 7 
012 
013 
082 



CTRT 
CMLT 
CBIN 
CLOG 
CLST 
CSTS 



060 
083 
069 
006 
02 7 
084 



SAS 
BRC 
LOG 
LST 
STS 



12 8 
013 
014 
052 
095 



CSFT 
CBRC 
CLOG 
CLST 
CTRT 



066 
018 
02 4 
062 
016 



CSTS 
CBRC 
CLOG 
CLST 



070 
020 
034 
083 



DCHN 
CBRC 
CLOG 
CLST 



126 
043 
062' 
091 



CBRC 
CLOG 
CMPU 



086 
064 
018 



CBRC 118 
CLOG 099 
CMPU 019 



012 
126 
Oil 



CFCY 
CLOG 
CSTS 



03 9 
133 

047 



CICY 

CLOG 
CSTS 



055 
156 
076 



CICY 
CLOG 
CTRT 



067 
163 
00 3 



CLOG 
CLOG 
CTRT 



004 
174 

CIO 



CLOG 
CLOG 
CTRT 



009 
184 
033 



CLOG 
CLOG 
CTRT 



017 
192 
066 



CLOG 
CLST 



027 
055 



CLOG 
CLST 



056 
066 
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* CROSS REFERENCE FOR CSECT CICY * 

J$C jfc 3$C 3$C3$C 3JC 9$C 3$C ^C 3$C j}C 3$C 5}C JJC ajc 5?C 3$C >Je 3$C 3$C 3$C 3$5 $ 9$C 3JC ^C^C3^C3^^3^t^^C^C 



CICY 


064 


C ICY 


017 












































CICY 


066 


CICY 


013 












































CICY 


070 


CBRC 


06 5 


CCOM 


027 


COMO 


005 


CDVO 


010 


CFCY 


051 


CLST 


063 


CMLT 


006 


CNVR 


008 


CSFT 


02 3 


CSTS 


009 








CICY 


072 


CICY 


069 












































CICY 


073 


CICY 


026 












































CICY 


075 


CICY 


02 5 


CICY 


02 9 








































CICY 


076 


CICY 


023 


CICY 


02 4 








































CICY 


077 


CFCY 


069 


CICY 


133 


CICY 


134 


CICY 


135 


CICY 


136 


CICY 


146 


CICY 


164 


CICY 


165 


CICY 


166 


CICY 


167 


CICY 198 


CICY 


202 






CICY 


20 3 


CICY 


20 4 


CICY 


218 


CICY 


239 


CICY 


241 


CICY 


246 


CICY 


251 


CICY 


259 


CICY 


260 


CICY 


261 


CICY 262 


CICY 


267 






CICY 


27 2 


CICY 


273 


CICY 


278 


CICY 


27 9 


CICY 


287 


CICY 


288 


CSTS 


112 


CSTS 


113 
















CICY 


079 


CSTS 


021 


DCLA 


004 








































CICY 


81 


CICY 


05 8 


CICY 


062 








































CICY 


090 


CICY 


083 












































CICY 


092 


CFCY 


034 


CICY 


064 


CICY 


066 




































CICY 


100 


CICY 


109 












































CICY 


107 


CICY 


101 












































CICY 


108 


CICY 


094 












































CICY 


111 


CICY 


043 


CICY 


07 3 








































CICY 


119 


CICY 


130 












































CICY 


129 


CICY 


113 












































CICY 


131 


CICY 


121 












































CTCY 


133 


CICY 


013 












































CICY 


169 


CICY 


014 












































CICY 


185 


CICY 


065 












































CICY 


201 


CICY 


072 












































CICY 


217 


CICY 


060 












































CICY 


225 


CICY 


063 












































CICY 


251 


CICY 


074 












































CICY 


267 


CICY 


05 4 













































CLOG — LOGICAL OPERATIONS 
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• 1 




INSTRUCTION FORMAT 


ENTRY . OPERATION 


. BYTE 1 . 


, BYTE 2 . 


. BYTE 3 . 


, BYTE 4 


RROP14 . AND 


14 


, Rl R2 . 








RROP15 . COMPARE 


15 


, Rl R2 , 








RR0P16 . OR 


16 


. Rl R2 . 








RR0P17 . EXCLUSIVE OP 


17 


, Rl R2 , 








PXOP41 . LOAD ADDRESS 


41 


. Rl X2 , 


. B2 


D2 , 


D2 


RX0P42 . STORE CHARACTER , 


42 


. Rl X2 , 


, 82 


D2 , 


D2 


RXOP43 . INSERT CHARACTER , 


43 


. Rl X2 . 


. B2 


D2 


02 


RX0P54 . AND 


54 


. Rl X2 . 


. 32 


D2 


02 


RX0P55 . COMPARE LOGICAL . 


55 


, Rl X2 . 


. B2 


D2 . 


02 


RXOP56 . OR 


56 


, Rl X2 . 


, B2 


D2 


02 


RXOP57 . EXCLUSIVE OR 


57 


. Rl X2 . 


. B2 


D2 . 


D2 


RSOP91 . TEST UNDER MASK , 


91 


12 


. Bl 


Dl , 


Dl 


RSCP92 . MOVE 


92 


12 


. Bl 


Dl 


Dl 


RS0P94 . AND 


94 


12 


. Bl 


Dl 


Dl 


RS0P95 . COMPARE LOGICAL . 


95 


12 


, 31 


Dl . 


Dl 


RS0P96 , OR 


96 


12 


. Bl 


Dl , 


Dl 


RSOP97 . EXCLUSIVE OP 


97 


12 


. Bl 


Dl , 


Dl 



OBJECTIVES 

* 

AND, OR, EXCLUSIVE OR 

THE LOGIC FUNCTION IS PERFORMED WITH CORRESPONDING BITS 
IN THE 1ST AND 2ND OPERANDS. THE RESULT REPLACES THE 
1ST OPERAND. IN THE SI FORMAT, 12 IS THE 2ND OPERAND 
AND IS ONE BYTE LONG. 

COMPARE 

COMPARE 1ST OPERAND TO THE 2ND OPERAND. OPERANDS ARE 
TREATED AS UNSIGNED Bl NARY QUANT IT I E S. 

STORE CHARACTER 

MOVE BYTE 3 OF Rl TO PROGRAM STORAGE ADDRESSED BY 2ND 
OPERAND. 

MOVE 

THE 2ND OPERAND IS PLACED IN THE 1ST OPERAND LOCATION. 
IN MOVE IMMEDIATE, 12 IS THE 2ND OPERAND. 

MOVE NUMERIC 

SAME AS MOVE, EXCEPT ONLY THE LOW-ORDER 4 BITS ARE MOVED. 



SS FORMAT INSTRUCTIONS 

# 

* OP CODE. LI L2 .81 Dl . Dl Dl . B2 D2 

# . 



D2 



ENTRY POINTS 
SS0PD1 
SS0PD2 
SS0PD3 
SS0P04 
SS0PD5 
SS0PD6 
SS0PD7 
SS0PE8 



OPERATION 
MOVE NUMERIC 
MOVE 

MOVE ZONES 
AND 

COMPARE LOGICAL 
OR 

EXCLUSIVE OR 
MOVE INVERSE 



* 

D2 * 

A 



MOVE ZONES 

SAME AS MOVE. EXCEPT ONLY THE HIGH-ORDER 4 BITS ARE MOVED. 

TEST UNDER MASK 

THE IMMEDIATE DATA IN BYTE 2 OF INSTRUCTION IS TESTED 
BIT FOR BIT AGAINST THE 1ST OPERAND. 

LOAD ADDRESS 

SET THE EFFECTIVE ADDRESS OF THE 2ND OPERAND INTO THE 
LOW 24 BITS OF Rl. 

INVERSE MOVE IRPQ) 

THE LOW ORDER POSITION OF THE SECOND OPERAND IS MOVED TO 
THE HIGH ORDER POSITION OF THE FIRST OPERAND. MODIFYING THE 
FIRST OPERAND ADDRESS WITH +1 AND THE SECOND OPERAND 
ADDRESS WITH -l.THE OPERATION JS TERMINATED WITH LENGTH 
COUNT ZERO. 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



COMMENTS 



29BA 
29BC 

29BE 

2E7C 



AB2 5 
7510 
8185 

6F75 



CLOG 
CLOG 
CLOG 
CLOG 
CLOG 
CLOG 
CLOG 
CLOG 



001 
00 2 
00 3 
004 
00 5 
006 
007 
008 



T % 

* 
RS0P92 



SS0PD2 



LOGICAL OPERATIONS 

MOVE IMMEDIATE 
CICY 056 ADDERR N BR IF Hl=NZ 

STB Gl U 
CICY 005 ISTART N N=S BITS67 
MOVE CHARACTERS 

H1=H1$D1 



MOVE 
IMMEDIATE 
EXECUTION 

MOVE 
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ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


COMMENTS 


2E7E 


AB2 5 


CLOG 


009 




CICY 056 


ADDERR 


N 


BR IF H1=NZ 


CHARACTERS 


2F80 


5738 


CLOG 


010 


0PD2 








ROB Dl V + l 


EXECUTION 


2E82 


7718 


CLOG 


Oil 










STB Dl U+l 




2E84 


2 5FF 


CLOG 


012 










Gl=Gl+KFF 




2E86 


F48 1 


CLOG 


013 




010 


0PD2 




BR IF AC=1 




2E88 


8185 


CLOG 


014 




CICY 005 


I START 


N 


N=S BITS67 








CLOG 


015 


# 


MOVE NUMERICS 








2E56 


6F75 


CLOG 


016 


SSOPOl 








HI=H1$D1 


MOVE 


2E58 


AB2 5 


CLOG 


017 




CICY 056 


ADDERR 


N 


BR IF H1=NZ 


NUMERICS 


2E5A 


5 73 8 


CLOG 


018 


0PD1 








ROB Dl V + l 


EXECUTION 


2E5C 


5F1C 


CLOG 


019 










RDB HI U 




2E5E 


4F7B 


CLOG 


020 










D1=H1H+D1L 




2E60 


7718 


CLOG 


021 










STB Dl U+l 




2E62 


25FF 


CLOG 


022 










G1=G1+KFF 




2E64 


F4DB 


CLOG 


023 




018 


0PD1 




BR IF AC=1 




2E66 


8185 


CLOG 


024 




CICY 005 


I START 


N 


N=S BITS67 








CLOG 


025 


* 


MOVE ZONES 








2E2C 


6F7 5 


CLOG 


026 


SS0PD3 








H1=H1$D1 


MOVE 


2E22 


AB2 5 


CLOG 


027 




CICY 056 


ADDERR 


N 


BR IF H1=NZ 


ZONES 


2E24 


5 73 8 


CLOG 


02 8 


0PD3 








RDB Dl V+l 


EXECUTION 


2E26 


5F1C 


CLOG 


029 










RDB HI U 




?E28 


4F7D 


CLOG 


030 










D1=H1L+D1H 




2F2A 


7718 


CLOG 


031 










STB Dl U+l 




2E2C 


25FF 


CLOG 


032 










G1=G1+KFF 




2E2E 


F4A5 


CLOG 


03 3 




028 


0PD3 




BR IF AC=1 




2E30 


8185 


CLOG 


03 4 




CICY 00 5 


I START 


N 


N=S BITS67 








CLOG 


046 


* 


COMPARE LOGICAL 


RR 


COMPARE 


327A 


8270 


CLOG 


047 


RR0P15 


CCOM 03 6 


CRGET 




BAL 


LOGICAL 


32 7C 


A86C 


CLOG 


048 




051 


CXCOML 




BR 


INSTRUCTIONS 






CLOG 


049 


* 


COMPARE LOGICAL 


RX 


EXECUTION 


286A 


B3F6 


CLOG 


50 


*X0P55 


CCOM 045 


CXGET 




BAL 




286C 


B46 


CLOG 


051 


CXCOML 


CCOM 086 


C SLOOP 




BAL 




286E 


D5D6 


CLOG 


05 2 




098 


0P94B 




BR IF S1=0 


GO SET CC 


2870 


F5A5 


CLOG 


053 




06 3 


0P95A 




BR IF S3=l 


GO SET CC2 


2872 


A 82 


CLOG 


054 . 




061 


0P95C 





BR 


GO SET CC1 






CLOG 


05 5 


* 


COMPARE LOGICAL 


RS 




2816 


AB2 5 


CLOG 


056 


RS0P95 


CICY 056 


ADDERR 


N 


BR IF H1=NZ 




2818 


5F10 


CLOG 


057 










RDB HI U 




281A 


7F51 


CLOG 


05 8 










H1=H1-G1+1 




281C 


C4D7 


CLOG 


059 




09 8 


0P94B 




BR IF Z=0 




281E 


F4A5 


CLOG 


60 


0P95D 


063 


0P95A 




BR IF AC=1 




2820 


2C55 


CLOG 


061 


0P9 5C 








P0=0$K50 


SET CC 1 


2822 


8185 


CLOG 


062 




CICY 00 5 


1ST ART 


N 


N=S BITS67 




2824 


2C25 


CLOG 


063 


0P95A 








P0=0$K20 


SET CC 2 


2826 


8185 


CLOG 
CLOG 


064 
06 5 


* 


CICY 005 


I START 


N 


N=S BITS67 








CLOG 


066 


* 


COMPARE LOGICAL 


CHARACTERS 




2828 


6F75 


CLOG 


067 


SS0PD5 








H1=H1$D1 




282A 


AB2 5 


CLOG 


068 




CICY 056 


ADDERR 


N 


3R IF H1=NZ 




282C 


5738 


CLOG 


069 


0PD5 








RDB Dl V+l 




282 E 


5F18 


CLOG 


070 










RDB HI U+l 





ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 
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COMMENTS 



2830 


7F71 


CLOG 


071 








H1=H1-D1+1 


2832 


C49E 


CLOG 


072 




060 


0P95D 


BR IF ZNZ 


2834 


25FF 


CLOG 


073 








G1=G1+KFF 


2836 


F4A0 


CLOG 


074 




069 


0PD5 


BR IF AC=1 


2838 


A856 


CLOG 
CLOG 


075 
076 


* 


09 8 


0P948 


BR 






CLOG 


077 


* 


AND 


RR 




3480 


8270 


CLOG 


07 8 


RP0P14 


CCOM 036 


CRGET 


BAL 


348 2 


A83C 


CLOG 
CLOG 


079 

080 


* 


08 3 


CXAND 


BR 






CLOG 


081 


* 


AND 


RX 




283A 


B3F6 


CLOG 


082 


RX0P54 


CCOM 045 


CXGET 


BAL 


28 3C 


6F17 


CLOG 


083 


CXAND 






H1=H1*U1 


283E 


6E07 


CLOG 


084 








H0=H0*U0 


2840 


6737 


CLOG 


085 








D1=D1*V1 


2842 


6627 


CLOG 


086 








DO=DC*VO 


2844 


76AR 


CLOG 


087 


CCLOST 






STH D AS,T+2 


2846 


7FAA 


CLOG 


088 








STH H AS,T-2 


2848 


E5A1 


C LOG 


089 


S2CHK 


061 


0P9 5C 


BR IF S2=l 


284A 


A856 


CLOG 
CLOG 


090 

091 


* 


098 


0P94B 


BR 






CLOG 


092 


* 


AND 


RS 




284C 


A 82 5 


CLOG 


093 


RS0P94 


CICY 05 6 


ADD ERR N 


BR IF H1=NZ 


284E 


5F10 


CLOG 


09 4 








RDB HI U 


2850 


6F57 


CLOG 


095 








H1=H1*G1 


2852 


7F10 


CLOG 


096 


0P94A 






STB HI U 


2854 


AB21 


CLOG 


09 7 




061 


0P95C N 


BR IF H1=NZ 


2856 


2C07 


CLOG 


098 


0P948 






P0=0 


28 58 


8185 


CLOG 
CLOG 


0^9 
100 


* 


CICY 005 


I START N 


N=S BITS67 






CLOG 


101 


* 


AND 


SS 




29 44 


6 FT 5 


CLOG 


102 


SS0PD4 






H1=H1$D1 


2946 


A8?5 


CLOG 


103 




CICY 056 


ADDERR N 


8R IF H1=NZ 


2948 


10CE 


CLOG 


10 4 








RST S K=FC 


294A 


5738 


CLOG 


105 


0PQ4 






RDB Dl V+l 


29 4C 


5F10 


CLOG 


106 








RDB HI U 


294E 


67F7 


CLOG 


107 








DI=D1*H1 


2950 


7718 


CLOG 


108 








STB Dl U+l 


2952 


2 5FF 


CLOG 


109 








G1=G1+KFF 


2954 


F4C8 


CLOG 


110 




10 5 


0PD4 


BR IF AC=1 


2956 


A 84 8 


CLOG 
CLOG 


111 
112 


* 


08 9 


S2CHK 


BR 






CLOG 


113 


* 


OR 


RR 




257C 


8270 


CLOG 


114 


RR0P16 


CCOM 036 


CRGET 


BAL 


257E 


8CE6 


CLOG 
CLOG 


115 
116 


* 


119 


CXOR 


BR 






CLOG 


117 


* 


OR 


RX 




0CE4 


B3F6 


CLOG 


118 


RX0P56 


CCOM 045 


CXGET 


BAL 


0CE6 


6F15 


CLOG 


119 


CXOR 






H1=H1$U1 


0CE8 


6E05 


CLOG 


120 








H0=H0$U0 


OCEA 


6 735 


CLOG 


121 








D1=D1$V1 



AND 
EXECUTION 



SET CCO 



ADDR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CLOAD=*E60» 
COMMENTS 
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OCEC 


6 62 5 


CLOG 


122 








OCEE 


A 844 


CLOG 

CLOG 


123 
124 


* 


087 


CCLOST 






CLOG 


125 


* 


OR 


RS 


2B72 


AB2 5 


CLOG 


126 


RS0P96 


CICY 056 


ADOERR M 


2B74 


5F10 


CLOG 


127 








2B76 


6F55 


CLOG 


128 








2B78 


A 852 


CLOG 
CLOG 


129 

130 


* 


096 


0P94A 






CLOG 


131 


# 


OR 


SS 


2988 


6F75 


CLOG 


132 


SS0PD6 






298A 


AB25 


CLOG 


133 




CICY 056 


ADDERR N 


298C 


1CCE 


CLOG 


134 








298E 


5738 


CLOG 


135 


0PD6 






2990 


5F10 


CLOG 


136 








2992 


6 7F5 


CLOG 


137 








2994 


7 718 


CLOG 


138 








2996 


25FF 


CLOG 


139 








2998 


F48F 


CLOG 


140 




13 5 


0P06 


299A 


A 84 8 


CLOG 
CLOG 


141 
142 


* 


089 


S2CHK 






CLOG 


143 


* 


XOR 


RR 


348C 


8270 


CLOG 


144 


RR0P17 


CCOM C36 


CRGET 


348E 


8 116 


CLOG 
CLOG 


145 
146 


* 


149 


CXXOR 






CLOG 


147 


* 


XOR 


RX 


0114 


B3F6 


CLOG 


148 


RX0P57 


CCOM 045 


CXGET 


0116 


6F11 


CLOG 


149 


. CXXOR 






0118 


6E01 


CLOG 


150 








Oil A 


6 731 


CLOG 


151 








one 


66?1 


CLOG 


152 








011E 


A 844 


CLOG 
CLOG 


153 
154 


* 


08 7 


CCLOST 






CLOG 


155 


* 


XOR 


RS 


29 58 


AB?5 


CLOG 


156 


RS0P97 


CICY 05 6 


ADDERR N 


295A 


5F10 


CLOG 


157 








295C 


6F51 


CLOG 


158 








295E 


A852 


CLOG 
CLOG 


159 

160 


* 


09 6 


0P94A 






CLOG 


161 


* 


XOR 


SS 


2062 


6F75 


CLOG 


162 


SS0P07 






2D 64 


AB2 5 


CLOG 


163 




CICY 056 


ADDERR N 


2066 


10CE 


CLOG 


164 








2D68 


5738 


CLOG 


165 


0P07 






2D6A 


5F10 


CLOG 


166 








2D6C 


6 7F1 


CLOG 


167 








2D6E 


7718 


CLOG 


168 








2D70 


25FF 


CLOG 


169 








2072 


F4E9 


CLOG 


170 




16 5 


0PD7 


2D74 


A848 


CLOG 
CLOG 


171 
172 


* 


08 9 


S2CHK 



DO=DO$VO 
BR 



BR IF H1=NZ 
ROB HI U 
H1=H1$G1 

BR 



H1=H1$D1 
BR IF H1=NZ 
RST S K=FC 
ROB Dl V*l 
RDB HI U 
D1=D1$H1 
STB Dl U+l 
G1=G1+KFF 
BR IF AC=1 
8R 



BAL 

BR 



BAL 

H1 = HKU1 

HO=HO<UO 
D1=DKV1 
DO=DO<VO 
BR 



BR IF H1=NZ 
RDB HI U 
H1 = HKG1 
3R 



H1=H1$D1 
BR IF Hl-NZ 
RST S K=FC 
RDB Dl V+l 
RDB HI U 
01=01<H1 
STB Dl U+l 
G1=G1+KFF 
BR IF AC=1 
BR 



XOR 
EXECUTION 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEO NEXTLA8EL STATEMENT 



CLOAD=*E60, 
COMMENTS 
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CLOG 


173 * 


285A 


AB2 5 


CLOG 


174 RS0P91 


285C 


5F10 


CLOG 


175 


285E 


6F57 


CLOG 


176 


2860 


C4D7 


CLOG 


177 


2862 


6F51 


CLOG 


178 


2864 


AB21 


CLOG 


179 


2866 


2C75 


CLOG 


180 


2868 


818 5 


CLOG 


181 






CLOG 


182 * 






CLOG 


183 * 


2874 


A 32 5 


CLOG 


184 RX0P43 


2876 


55BB 


CLOG 


185 


2878 


2B3B 


CLOG 


186 


287A 


5 710 


CLOG 


187 


287C 


77A0 


CLOG 


188 


287E 


8 18 5 


CLOG 


189 






CLOG 


190 * 






CLOG 


191 * 


2EA6 


AB2 5 


CLOG 


192 RX0P42 


2EA8 


55BB 


CLOG 


193 


2EAA 


2B3B 


CLOG 


194 


2EAC 


5 7A0 


CLOG 


195 


2EAE 


7710 


CLOG 


196 


2EBQ 


8185 


CLOG 


197 






CLOG 


198 * 






CLOG 


199 * 


2D76 


558B 


CLOG 


2C0 RX0P41 


2078 


2E0 7 


CLOG 


201 


2D7A 


7EA8 


CLOG 


20? 


2D7C 


70A0 


CLOG 


20 3 


2D7E 


8185 


CLOG 


2C4 



TEST UNDER MASK 
CICY 056 ADDERR N 



09 8 0P94B 

06 1 0P95C N 

CICY 005 ISTART N 

INSERT CHARACTER 
CICY 056 ADDERR N 



CICY 00 5 ISTART N 

STORE CHARACTER 
CICY 056 ADDERR N 



CICY 005 ISTART N 



BR IF H1=NZ 
ROB HI U 
H1=H1*G1 
BR IF Z = 
H1 = HKG1 
BR IF H1=NZ 
P0=0*K70 
N=S BITS67 



BR IF H1=NZ 
T1=G1H 
T1=T1+K03 
ROB Dl U 
STB Dl AS,T 
N=S BITS67 



BR IF Hl-NZ 
T1=G1H 
T1=T1+K03 
RDB Dl AS»T 
STB Dl U 
N=S BITS67 



SET CC 3 



LOAD ADDRESS 

T1=G1H 
H0 = C 

STH H AStT+2 
STH U AS,T 
CICY 005 ISTART N N=S BITS67 

* CROSS REFERENCE FOR CSECT CLOG * 

>*C$$ ^3^^3$C^C^C 3§C3^C 3^ 3^C >£ # If. 5JC ^C 3^ # &3£5$:>£55c>fc>£>$e>£#>£3$C3$C>|s: 



CLOG 


004 


CICY 


22 7 
















CLOG 


008 


CICY 


253 
















CLOG 


010 


CLOG 


013 
















CLOG 


016 


CICY 


252 
















CLOG 


018 


CLOG 


02 3 
















CLOG 


026 


CICY 


254 
















CLOG 


028 


CLOG 


033 
















CLOG 


047 


CICY 


174 
















CLOG 


050 


CICY 


20 6 
















CLOG 


051 


CLOG 


048 
















CLOG 


056 


CICY 


230 
















CLOG 


060 


CLOG 


072 
















CLOG 


061 


CFAD 


079 


CLOG 05 4 


CLOG 089 


CLOG 


097 


CLOG 179 


CSAS 103 


CSFT 076 


CLOG 


063 


CFAD 


078 


CLOG 05 3 


CLOG 060 


CSAS 


102 


CSFT 085 


CTRT 031 


CTRT 063 


CLOG 


067 


CICY 


256 
















CLOG 


069 


CLOG 


07 4 

















CTRT 032 CTRT 062 



ft********************************* 
* CROSS REFERENCF FOR CSECT CLOG * 

$$$$$ jfcajcjjcjfc fcajcjfcjfc jfc <t a{c # # # a$c # afc jfc $ * jjc # sfc a}c a{c # ajc ajt # 
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CLOG 


078 


CICY 


173 






CLOG 


082 


CICY 


20 5 






CLOG 


083 


CLOG 


079 






CLOG 


087. 


CLOG 


12 3 


CLOG 


153 


CLOG 


089 


CLOG 


111 


CLOG 


141 


CLOG 


093 


CICY 


229 






CLOG 


096 


CLOG 


129 


CLOG 


159 


CLOG 


098 


CLOG 


052 


CLOG 


05 9 


CLOG 


102 


CICY 


255 






CLOG 


105 


CLOG 


110 






CLOG 


114 


CICY 


175 






CLOG 


118 


CICY 


20 7 






CLOG 


119 


CLOG 


115 






CLOG 


126 


CICY 


231 






CLOG 


132 


CICY 


25? 






CLOG 


135 


C I OG 


140 






CLOG 


144 


CICY 


176 






CLOG 


148 


CICY 


20 R 






CLOG 


149 


CLOG 


145 






CLOG 


156 


CICY 


232 






CLOG 


162 


CICY 


25 8 






CLOG 


165 


CLOG 


170 






CLOG 


174 


CICY 


22 6 






CLOG 


184 


CICY 


18 8 






CLOG 


192 


CICY 


187 






CLOG 


200 


CICY 


186 







CLOG 171 



CLOG 075 CLOG 090 CLOG 177 



CLST ~ LOAD AND STORE INSTRUCTIONS 
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• 




• 






INSTRUCTION FORMAT 


ENTRY 


• 


OPERATION 


• 


BYTE 1 


• 


BYTE 2 . 


. BYTE 3 . 


. BYTE 4 


RROPIO 


• 


LOAD POSITIVE 


• 


10 


* 


Rl 


R2 , 






RROP11 


• 


LOAD NEGATIVE 


• 


11 


• 


Rl 


R2 , 






RROP12 


• 


LOAD AND TEST 


• 


12 


• 


Rl 


R2 , 






RR0P13 


• 


LOAD COMPLEMENT 


• 


13 


• 


Rl 


R2 






RR0P18 


• 


LOAD 


• 


18 


• 


Rl 


R2 . 






RS0P90 


• 


STORE MULTIPLE 


• 


90 


• 


Rl 


R3 


. B2 D2 . 


02 


RSOP98 


• 


LOAD MULTIPLE 


• 


98 


• 


Rl 


R3 , 


. B2 02 


02 


RX0P40 


• 


STORE HALFWORD 


• 


40 


• 


Rl 


X2 . 


, 82 02 . 


D2 


RXOP48 


• 


LOAD HALFWORD 


• 


48 


• 


Rl 


X2 . 


. B2 D2 


02 


RXOP50 


• 


STORE 


• 


50 


• 


Rl 


X2 . 


, B2 02 . 


D2 


RX0P58 


• 


LOAD 


• 


58 


• 


Rl 


X2 . 


. B2 D2 


02 



OBJECTIVES 

LOAD POSITIVE -- THE TRUE VALUE OF THE 2ND OPERAND IS 

PLACED IN THE 1ST OPERAND LOCATION. 

LOAD NEGATIVE - THE TWOS COMPLIMENT OF THE TRUE VALUE 

OF THE 2ND OPERAND IS PLACED IN THE 
1ST OPERAND LOCATION. 

LOAD COMPLEMENT - THE TWOS COMPLEMENT OF THE 2ND OPERAND 

IS PLACED IN THE 1ST OPERAND LOCATION. 



OBJECTIVES CONTINUED 



LOAD AND TEST 



LOAD HALFWORD 



LOAD MULTIPLE 



STORE MULTIPLE - 



STORE HALFWORD - 



THE 2ND OPERAND IS PLACED IN THE 1ST 
OPERAND LOCATION, AND THE SIGN AND THE 
MAGNITUDE OF THE 2ND OPERAND DETERMINE 
THE CONDITION CODE. 

PLACE THE HALFWORD 2ND OPERAND INTO THE 

1ST OPERAND LOCATION. EXTEND THE SIGN 

INTO THE HIGH-ORDER 16 BITS OF THE 1ST 

OPERAND. 

THE INFORMATION AT THE EFFECTIVE 2ND 
OPERAND ADDRESS IS LOADED INTO GENERAL 
REGISTER STARTING WITH THE ONE 
SPECIFIED BY Rl AND ENDING WITH THE 
ONE SPECIFIED BY R3. 

THE INFORMATION IN THE GENERAL REGISTER 
STARTING WITH THE REGISTER SPECIFIED BY 
Rl AND AND ENDING WITH THE REGISTER 
SPECIFIED BY R3 IS STORED AT THE 
LOCATIONS DESIGNATED BY THE EFFECTIVE 
2ND OPERAND ADDRESS. 

MOVE THE 16 LOW-ORDER BYTES OF THE 1ST 
OPERAND TO PROGRAM STORAGE ADDRESSED 
BY THE 2ND OPERAND. 



LOAD 



PLACE THE 2ND OPERAND 
OPERAND LOCATION. 



INTO THE 1ST 



STORE 



- THE 1ST OPERAND IS MOVED TO PROGRAM 
STORAGE AT THE EFFECTIVE ADDRESS OF 
THE 2ND OPERAND. 



A DDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



COMMENTS 







CLST 


001 


T 


LOAD 


AND STORE 


INSTRUCTIONS 






CLST 


0C2 


* 














CLST 


00 3 


* 














CLST 


004 


* 


LOAD POSITIVE 




2C34 


8 AC 8 


CLST 


00 5 


RROPIO 


CCOM 


029 


LGET 


BAL 


2C36 


C610 


CLST 


006 






020 


DCHECK 


BR IF DC 0=0 


2C38 


P3DA 


CLST 


00 7 


PCOMPL 


CCOM 


076 


COM PL 


3AL 


2C3A 


C61C 


CLST 


00 8 






020 


DCHECK 


BR IF 000=0 


2C3C 


76A8 


CLST 


009 


OVCHEK 








STH D AS,T+2 


2C3E 


7EAA 


CLST 


010 










STH H AS,T-2 


2C40 


2C75 


CLST 


Oil 


SHFTOV 








P0=0$K7O 


2C42 


C DO 9 


CLST 


012 






014 


TAKEOV 


BR IF P10=l 


2C44 


8185 


CLST 


013 




CICY 


00 5 


I START N 


N=S BITS67 


2C08 


2B8 3 


CLST 


014 


TAKEOV 








T1=0$K08 


2C0A 


8 9FC 


CLST 
CLST 


015 
016 


# 


BPSW 


00 3 


PROG 


BR 



SET CC=3-0VERFL0W 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 






CLST 


017 


* 


LOAD AND TEST 






2C0C 


8 AC 8 


CLST 


018 


RR0P12 


CCOM 029 


LGET 




BAL 


2C0E 


C625 


CLST 


019 


DBRAN 


036 


NEGCC1 




BR IF D00=1 


2C10 


4EE6 


CLST 


020 


D CHECK 








H=H 


2C12 


4666 


CLST 


021 










D=D 


2C14 


D5C7 


CLST 


022 




024 


TESCC2 




BR IF Sl=l 


2C16 


AC30 


CLST 


023 




034 


NEGCCO 




BR 


2C46 


2C2 5 


CLST 


024 


TESCC2 








P0=0$K20 


2C48 


76A8 


CLST 


02 5 


DSTORE 








STH D AS»T+2 


2C4A 


7EAA 


CLST 


026 










STH H AS,T-2 


2C4C 


8185 


CLST 
CLST 


02 7 
028 


* 


CICY 00 5 


I START 


N 


N=S BITS67 






CLST 


029 


* 


LOAD NEGATIVE 






2C28 


8AC8 


CLST 


030 


RROPli 


CCOM 029 


LGET 




BAL 


2C2A 


C62 5 


CLST 


031 




036 


NEGCC1 




BR IF DCC=1 


2C2C 


B3DA 


CLST 


032 




CCOM 076 


COMPL 




BAL 


2C2E 


C62 5 


CLST 


033 




036 


NEGCC1 




BR IF 000=1 


2C30 


2C07 


CLST 


034 


NEGCCO 








P0=0 


2C32 


AC48 


CLST 


03 5 




02 5 


DSTORE 




BR 


2C24 


2C55 


CLST 


036 


NEGCC1 








P0=0$K50 


2C26 


AC48 


CLST 
CLST 


03 7 
03 8 


* 


025 


DSTORE 




8R 






CLST 


039 


* 


LOAD COMPLIMENT 




2C00 


8AC8 


CLST 


040 


RR0P13 


CCOM 02 9 


LGET 




SAL 


2C02 


C63 9 


CLST 


041 




00 7 


PCOMPL 




BR IF 000=1 


2C04 


B3DA 


CLST 


04 2 




CCOM 076 


COMPL 




BAL 


2C06 


ACOE 


CLST 
CLST 


043 
044 


* 


019 


DBRAN 




BR 






CLST 


045 


* 


LOAD OP RR 






2E98 


5 5B3 


CLST 


046 


RR0P18 








T1=G1XH 


2E9A 


56A8 


CLST 


047 










RDH D AS,T+2 


2E9C 


5EAA 


CLST 


04 8 










RDH H AS,T-2 


2E9E 


55BB 


CLST 


049 










T1=G1H 


2EA0 


76A8 


CLST 


050 










STH D AS,T+2 


2EA2 


7EAA 


. CLST 


051 










STH H AS,T-2 


2EA4 


8185 


CLST 
CLST 


052 
053 


* 


CICY 00 5 


I START 


N 


N=S BITS67 






CLST 


054 


* 


STORE 


HALFWORC 


! 




2C04 


A825 


CLST 


055 


RXOP40 


CICY 05 6 


ADDERR 


N 


BR IF H1=NZ 


2CD6 


01E3 


CLST 


056 










Z=U1*-K0E 


2CD8 


EOE4 


CLST 


057 




06 3 


SPEC 




BR IF LZNZ 


2CDA 


55BB 


CLST 


058 










T1=G1H 


2CDC 


2B2B 


CLST 


059 










Tl=Tl+K02 


2CDE 


52AO 


CLST 


060 










RDH V AS,T+0 


2CE0 


7210 


CLST 


061 










STH V U+0 


2CE2 


8185 


CLST 


062 


RSEND 


CICY 00 5 


I START 


N 


N=S BITS67 


2CE4 


AE94 


CLST 
CLST 


06 3 
064 


SPEC 

* 


CICY 070 


SPECHK 




3R 






CLST 


065 


* 


LOAD HALFWORD 






2CC0 


AB25 


CLST 


066 


RX0P48 


CICY 056 


ADDERR 


N 


BR IF H1=NZ 


2CC2 


01E3 


CLST 


067 










Z=U1*-K0E 



CLOAD=*E60, EC LEVEL=128266 PAGE 119 

COMMENTS 



ADDR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CL0AD=*E60, 

COMMENTS 



EC LEVEL=128266 PAGE 120 



2CC4 


F0E4 


CLST 


068 




2CC6 


55BB 


CLST 


069 




2CC8 


5E1C 


CLST 


070 




2CCA 


2 70 7 


CLST 


071 




2CCC 


CE50 


CLST 


072 




2CCE 


27F7 


CLST 


073 




2CD0 


5 76 9 


CLST 


074 


EXT 


2CD2 


AC48 


CLST 


075 








CLST 


076 


* 






CLST 


077 


* 


2EBE 


55BB 


CLST 


07 8 


RX0P50 


2EC0 


56A8 


CLST 


079 




2EC2 


5EAA 


CLST 


08 




2EC4 


7618 


CLST 


081 




2EC6 


7E10 


CLST 


082 




2EC8 


8185 


CLST 


083 








CLST 


084 


* 






CLST 


08 5 


* 


2EB2 


55B8 


CLST 


086 


RX0P58 


2E84 


5618 


CLST 


087 




2EB6 


5E1C 


CLST 


088 




2EB8 


76A8 


CLST 


089 




2EBA 


7FA0 


CLST 


090 




2EBC 


8185 


CLST 


091 








CLST 


092 


* 






CLST 


093 


* 


3412 


ACE6 


CLST 


094 


RS0P90 


3414 


52A8 


CLST 


09 5 


RS90A 


3416 


7218 


CLST 


096 




3418 


52A0 


CLST 


0^7 




341A 


7218 


CLST 


098 




34 1C 


ACFO 


CLST 


099 




341E 


B414 


CLST 


100 








CLST 


101 


* 






CLST 


102 


* 


3420 


ACE6 


CLST 


10 3 


RS0P9 8 


3422 


5 218 


CLST 


104 


RS98A 


3424 


72A8 


CLST 


105 




3426 


5218 


CLST 


106 




342 8 


72A0 


CLST 


107 




342 A 


ACFC 


CLST 


108 




342C 


B422 


CLST 


1C9 




2CE6 


AB25 


CLST 


110 


RS9XA 


2CE8 


1C3 


CLST 


111 




2CEA 


FCE4 


CLST 


112 




2CEC 


558B 


CLST 


113 




2CEE 


128E 


CLST 


114 




2CF0 


5 53 1 


CLST 


115 


RS9XB 


2CF2 


6351 


CLST 


116 




2C.F4 


C4E3 


CLST 


117 




2CF6 


251D 


CLST 


118 





063 SPEC 



074 EXT 



025 DSTORE 



STORE OP RX 



CICY 00 5 I ST ART N 



LOAD OP 



RX 



CICY 005 ISTART N 



STORE MULTIPLE 



110 RS9XA 



115 
09 5 



RS9XB 
RS90A 



LOAD MULTIPLE 
110 RS9XA 



CICY 



115 
104 
05 6 



RS9XB 
RS9 8A 

ADD ERR 



063 SPEC 



BR IF LZNZ 
T1=G1H 
RDH H U 

D1 = 

BR IF H00=0 

D1=0$KFF 

D0=D1 

BR 



T1=G1H 

RDH D AS,T+2 
RDH H AS.T-2 
STH D U+2 
STH H U 
N=S BITS67 



T1=G1H 
RDH D U+2 
RDH H U 
STH D AS,T+2 
STH H AS,T 
N=S BITS67 



BAL 
RDH 
STH 
RDH 
STH 
BAL 
BR 



V AS,T+2 

V U + 2 

V AS t T 

V U + 2 



U + 2 

AS,T+2 
U + 2 
AS,T 



062 RSEND 



BAL 

RDH V 

STH V 

RDH V 

STH V 

BAL 

BR 

BR IF H1=NZ 

Z=U1*-K0C 

BR IF LZNZ 

T1=G1H 

RTN 

V1=G1X 

V1 = VKG1 

BR IF Z=0 

G1=G1+K1C 



CL0AD=*E60, EC LEVEL=128266 PAGE 121 

ADDR WORD SEQUENCE NO. LABEL NEXTSEQ NEXTLABEL STATEMENT COMMENTS 

2CF8 55BB CLST 119 T1=G1H 

2CFA 128E CLST 120 RTN 

* CROSS REFERENCE FOR CSECT CLST * 



CLST 


005 


CICY 


169 






CLST 


007 


CLST 


041 






CLST 


009 


CBIN 


02 3 






CLST 


Oil 


CSFT 


074 






CLST 


014 


CLST 


012 






CLST 


oia 


CICY 


171 






CLST 


019 


CLST 


043 






CLST 


020 


CLST 


00 6 


CLST 


008 


CLST 


024 


CBIN 


031 


CLST 


02 2 


CLST 


025 


CLST 


03 5 


CLST 


03 7 


CLST 


030 


CICY 


170 






CLST 


034 


CBIN 


029 


CLST 


02 3 


CLST 


036 


CBIN 


030 


CLST 


019 


CLST 


040 


CICY 


172 






CLST 


046 


CICY 


177 






CLST 


055 


CICY 


185 






CLST 


062 


CLST 


117 






CLST 


063 


CLST 


057 


CLST 


06 8 


CLST 


066 


CICY 


193 






CLST 


74 


CLST 


07 2 






CLST 


078 


CICY 


201 






CLST 


086 


CICY 


20 9 






CLST 


094 


CICY 


22 5 






CLST 


095 


CLST 


100 






CLST 


103 


CICY 


23 3 






CLST 


104 


CIST 


109 






CLST 


110 


CLST 


094 


CLST 


10 3 


CLST 


115 


CLST 


099 


CLST 


108 



CLST 075 

CLST 031 CLST 033 



CLST 112 



CMLT -- MULTIPLY BINARY ROUTINE 



DESCRIPTION 



CLOAD=*E60, EC LEVEL=128266 PAGE 122 



* . . INSTRUCTION FORMAT * 

* ENTRY . OPERATION . BYTE 1 . BYTE 2 . BYTE 3 . BYTE 4 * 

age— — — — — — — — ^ — — — — — — ——— — —— — — — — — # — — — — — — —— ^ — — — — — — — ^ ——— — — — — — # — —— — — — — — 3^ 

* RROP1C . MULTIPLY 1C . Rl R2 . . * 

* RX0P4C . MULTIPLY HALFWORD. 4C . Rl X2 . B2 D2 . 02 * 

* RX0P5C . MULTIPLY FULLWORD. 5C . Rl X2 . B2 D2 . 02 * 

* # 



OBJECTIVES 

1. FETCH 30TH OPERANDS. FOR FULLWORD MULTIPLY, THE 
MULTIPLICAND IS FOUND IN THE ODD REGISTER FOLLOWING 
THE EVEN REGISTER SPECIFIED BY Rl. FOR MULTIPLY 
HALFWORD, Rl SPECIFIES THE LOCATION OF THE 
MULTIPLICAND. THE MULTIPLIER IS FOUND IN R2 OR AT 
THE EFFECTIVE MAIN STORAGE ADDRESS. 



2. CREATE A TABLE OF MULTIPLICAND VALUES IN AUX 
— MULTIPLICAND TIMES 1, X4, X16, AND X64. 



STORAGE 



3. READ EACH HEXADECIMAL MULTIPLIER DIGIT, STARTING AT 
THE LOW-ORDER. CREATE PRODUCT BY ADDING APPROPRIATE 
TABLE VALUES OR COMBINATION OF VALUES AS DETERMINED 
BY THE MULTIPLIER DIGIT. THE PRODUCT IS SHIFTED 
AFTER ADDING THE TABLE VALUES FOR BOTH THE HIGH AND 
LOW DIGITS OF EACH MULTIPLIER BYTE. 

4. STORE THE PRODUCT IN THE LOCATION THAT ORIGINALLY 
CONTAINED THE MULTIPLICAND. 



THE ROUT 
ANALYSIS 
ROUTINE. 

THE MU 
THE TABL 
THE LOOP 
REDOUBLE 
MIJLTIPLI 
IN SECTI 

MULTIP 
OF THE M 
FOR XI. 
X16. TH 
OCCURS. 
COMPUTE 
COMPUTE 
OR A X64 
SET IF A 
DIRECTED 
COMPUTE 
DIGITS, 
NECESSAR 

SHIFTI 
EACH MUL 
PRODUCT 
INTO THE 

A COUN 
THIS LAS 
XI VALUE 
IF THE N 
DIGIT CA 

TO COM 
RESTORES 
PRODUCT 
MICROPRO 



INE FETCHES TH 
. THIS RESULT 

LTIPLY TABLE I 

E, THE ROUTINE 
, THE MULT I PL 
0. THEREFORE, 
CAND TIMES 1, 
ON AAAB FOR LO 
LIC AT ION IS DO 
ULTIPLIER BYTE 

FOR THE HIGH 
EN, A 16-WAY B 

THE BRANCH DI 
ROUTINE FOR TH 
ROUTINES CHANG 

TABLE VALUE I 

SUBTRACT IS N 

TO ADD EITHER 
ROUTINE FOR TH 
ADDS FROM TWO 
Y. 

NG OCCURS AFTE 
TIPLIER BYTE A 
BYTE IS SHIFTE 

REGISTERS FOR 
TER DETERMINES 
T DIGIT IS PRO 

FROM THE TABL 
EED IS INDICAT 
RRY. 
PLETE THE MULT 

THE SAVED REG 
IS STORED AT T 
GRAM RETURNS T 



E OPERANDS, THEN PERFORMS SIGN 
IS STORED FOR USE AT THE END OF THE 

S STORED IN AUX STORAGE. TO BUILD 

MAKES 4 PASSES THROUGH A LOOP. IN 
ICANO IS STORED, THEN DOUBLED AND 

THE VALUES STORED IN THE TABLE ARE — 
4, 16, AND 64. SEE AUX STORAGE MAP 
CATION. 

NE ON A BYTE BASIS. FOR THE LOW DIGIT 
, THE TABLE ADDRESS IS INITIALIZED 
DIGIT, THE TABLE ADDRESS IS SET FOR 
RANCH ON THE ACTUAL MULTIPLIER DIGIT 
RECTS THE MICROROUTINE TO THE PROPER 
E CURRENT MULTIPLIER DIGIT. THE 
E THE MULTIPLY-TABLE ADDRESS IF A X4 
S NEEDED. ALSO, COMPLEMENT ADD IS 
EEDED. THEN THE MICROROUTINE IS 

ONCE OR TWICE DEPENDING ON THE 
E CURRENT DIGIT. NOTE THAT FOR SOME 
DIFFERENT TABLE ADDRESSES ARE 

R BOTH THE HIGH AND LOW DIGITS FOR 
RE PROCESSED. THE CURRENTLY COMPLETED 
D OUT OF THE PRODUCT-BUILDING AREA AND 
MERLY OCCUPIED BY THE MULTIPLIER. 

THE LAST MULTIPLIER DIGIT. AFTER 
CESSEO, A CARRY TEST IS MADE. A FINAL 
E IS COMPLEMENT-ADDED TO THE PRODUCT 
ED BY THE SIGN AND MULTIPLIER-LOW 

IPLY OPERATION, THE MICROPROGRAM 
ISTFRS, AND THE HALFWORD OR FULLWORD 
HE 1ST OPERAND ADDRESS. THEN, THE 
I-CYCLES. 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 






CMLT 


001 


T 




MULTIPLY BINARY OP CODES 


2064 


F563 


CMLT 


002 


RX0P5C 




00 6 


ERRORA 


BR IF G13=l 


2066 


3515 


CMLT 


00 3 










Gl=GltK10 


2068 


B3F6 


CMLT 


004 




CCOM 


04 5 


CXGET 


BAL 


206A 


897A 


CMLT 


00 5 






015 


START 


BR 


20 62 


AE94 


CMLT 


006 


ERRORA 


CICY 


070 


SPECHK 


BR 


206C 


E1F1 


CMLT 


00 7 


RR0P1C 




009 


NEQLAB 


BR IF S6=l 


20 6 E 


3 485 


C ML T 


008 










G0=GC$K80 


20 70 


F56 3 


CMLT 


009 


NEQLAB 




00 6 


ERRORA 


BR IF G13=l 


2072 


3515 


CMLT 


010 










G1=G1$K10 


2074 


8?70 


CMLT 


Oil 




CCOM 


03 6 


CRGET 


BAL 


2076 


897A 


CMLT 
CMLT 


01? 
013 


ASEO 


AL07=78 


015 


START 


BR 



COMMENTS 



0. L. SMITH 



ADDR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CLOAD=*E60, 
COMMENTS 



EC LEVEL=128266 PAGE 123 



0978 


AE06 


CMLT 


014 


*X0P4C 


CCOM 012 


CXGETH 


SAL 




097A 


9814 


CMLT 


015 


START 


CCOM 05 7 


LSAVEA 


BAL 




097C 


2907 


CMLT 


016 








11 = 




097E 


C604 


CMLT 


017 




020 


CANDPL 


BR IF 


D00=0 


0980 


2 9F7 


CMLT 


018 








I1=0$KFF 


0982 


2C13 


C ML T 


019 








P0=0$KC1 


0984 


0275 


CMLT 


020 


CANDPL 






?. = V0*- 


-K70 


0986 


E08B 


CMLT 


021 




023 


PLIERP 


BR IF 


HZ=0 


0988 


3C23 


CMLT 


022 








P0=P0SK02 


098A 


5989 


CMLT 


023 


PLIERP 






10=11 




098C 


4A86 


CMLT 


024 








T = I 




098E 


OOCO 


CMLT 


025 








RST S 


K = 0C 


0990 


7CF2 


CMLT 


026 


L00P1 






STH P 


DA, BE 


0992 


4C52 


CMLT 


027 


FLTMU1 






RDH P 


DC,9A 


0994 


2D1D 


CMLT 


028 


LOOP 






P1=P1 J 


•-K10 


0°96 


2D8B 


CMLT 


029 








P1=P1+K08 


0998 


CD29 


CMLT 


030 




038 


EXIT 


BR IF 


P10=l 


099A 


7 8C8 


CMLT 


031 








STH I 


AS,P+2 


099C 


7 AC 8 


CMLT 


032 








STH T 


AS.P+2 


099E 


76C8 


CMLT 


03 3 








STH D 


AS,P+2 


09 A 


7 EC 8 


CMLT 


034 








STH H 


AS, P+2 


09A2 


9AFA 


CMLT 


035 




104 


DOUBLE 


BAL 




09A4 


9AFA 


CMLT 


036 




10 4 


DOUBLE 


3AL 




09A6 


8 994 


CMLT 


37 




028 


LOOP 


BR 




09A8 


2 DO 7 


CMLT 


038 


EXIT 






P1 = 




09AA 


4 8C6 


CMLT 


039 








I = P 




09AC 


4AC6 


C ML T 


040 








T = P 




09AE 


44C6 


CMLT 


041 








G=P 




09BC 


46C6 


CMLT 


042 








D = P 




C9R2 


4E06 


CMLT 


043 








H = U 




09B4 


4 0C6 


CMLT 


044 








U = P 




09B6 


2C13 


CMLT 


045 








P0=0$K01 


09B8 


C5BE 


CMLT 


046 


CHKL04 


049 


LOCHK 


BR IF 


S0=0 


09BA 


2FIB 


CMLT 


04 7 


NXY 






H1=H1+K01 


09 BC 


F4D3 


CMLT 


048 




059 


ADJUST 


BR IF 


AC = 1 


09BE 


2D15 


CMLT 


04 9 


LOCHK 






P1=0$K10 


09C0 


1002 


CMLT 


050 








RST S 


K=90 


09C2 


BB0 3 


CMLT 


051 




134 


DIG N 


N=H1L 




09C4 


0053 


CMLT 


052 


CYCLE 


059 


A D J US T 


BR IF 


Pll = l 


09C6 


C5CC 


CMLT 


053 




05 6 


HICHK 


BR IF 


S0=0 


09C8 


2FID 


CMLT 


054 








H1=H1+K10 


09CA 


F4D3 


CMLT 


055 




05 9 


A DJ US T 


BR IF 


AC = 1 


09CC 


2 05 5 


CMLT 


05 6 


HICHK 






P1=0$K50 


09CE 


100 2 


CMLT 


05 7 








RST S 


K = 90 


0900 


BF03 


CMLT 


05 8 




134 


DIG N 


N=H1H 




09D2 


2C2B 


CMLT 


059 


ADJUST 






PQ=P0+K02 


09D4 


AF4A 


CMLT 


060 




C85 


ROTA 


BAL 




09D6 


C83 8 


CMLT 


061 


FLTMU2 


046 


CHKL04 


BR IF 


P04=0 


09D8 


C1DC 


CMLT 


063 




065 


ALMOST 


BR IF 


54=0 


09 DA 


A 3 54 


CMLT 


064 




CFMU 009 


MULT 


BR 




09DC 


54F2 


CMLT 


065 


ALMOST 






RDH G 


DA,BE 



EXIT TO FLOAT PT MULT 



AODR 



WORD SEQUENCE NO. LABEL 



09DE 


C5E9 


CMLT 


069 




09E0 


E068 


CMLT 


070 




09E2 


3002 


CMLT 


071 




09E4 


2D15 


CMLT 


07 2 




Q9E6 


A 75 2 


CMLT 


073 




09E8 


8176 


CMLT 


074 


ANSWER 


09 E A 


2 AG 7 


CMLT 


07 5 




09EC 


55BB 


CMLT 


076 




09EE 


72A8 


CMLT 


077 




09F0 


7EAA 


CMLT 


078 




09F2 


F47A 


CMLT 


079 




09F4 


1B15 


CMLT 


080 




09F6 


76A8 


CMLT 


081 




09 F 8 


70AA 


C^LT 


08 2 




09FA 


AA76 


CMLT 


083 


DONE 






CMLT 


084 


AENO 


2F4A 


5FF9 


CMLT 


085 


ROTA 


2F4C 


53E9 


CMLT 


086 




2F4E 


5239 


CMLT 


087 




2F50 


5129 


CMLT 


088 




2F52 


5 019 


CMLT 


089 




2F54 


5709 


CMLT 


090 




2F56 


5 679 


CMLT 


091 




2F5 8 


5B6 9 


CMLT 


092 




2F5A 


5AB9 


CMLT 


09 3 




2F5C 


55A9 


CMLT 


094 




2F5E 


5459 


CMLT 


095 




2F60 


2 40 7 


CMLT 


096 




2F62 


C56E 


CMLT 


097 




2F64 


58F 


CMLT 


09 8 




2F66 


EOEC 


CMLT 


099 




2F68 


C16E 


CMLT 


100 




2F6A 


C5EE 


CMLT 


101 




2F6C 


2 4F7 


C ML T 


102 


FLOFIX 


2F6E 


128F 


CMLT 


103 


NOFLOW 


1AFA 


6FFB 


CMLT 


104 


DOUBLE 


1AFC 


6EF0 


CMLT 


105 




1AFE 


6 77 


CMLT 


106 




1BO0 


6660 


CMLT 


107 




1B02 


6BBD 


CMLT 


10 8 




1B04 


6AAD 


CMLT 


109 




IB06 


6990 


CMLT 


110 




1B0 3 


6 88 


CMLT 


111 




1B0A 


128E 


CMLT 


112 




2752 


1CF8 


CMLT 


113 


AD01 


2754 


3DE3 


CMLT 


114 


AODROU 


2756 


5 8CA 


CMLT 


115 




2758 


7190 


CMLT 


116 




275A 


7C8D 


CMLT 


117 




275C 


58CA 


CMLT 


118 




275E 


7790 


CMLT 


119 





NEXTSEQ 


NEXTLABEL 


STATEMENT 


074 


ANSWER 


BR IF 


S0 = 1 


074 


ANSWER 


BR IF 


G06=0 






SET S 


K=90 






P1=0$K10 


113 


ADD1 


BAL 




CCOM 065 


LRSTRA 


BAL 

T0=0 








T1=G1H 






STH V 


AS,T+2 






STH H 


AS,T-2 


08 3 


DONE 


BR IF 


G03=0 






T1=T1*-K10 






STH D 


AS,T+2 






STH U 


AS,T-2 


CICY 004 


CHECK 


BR 

H1 = H0 
H0=V1 
V1 = VC 
V0=U1 
U1 = U0 
U0=D1 
D1 = DC 
00=T1 
T1 = TC 
T0=G1 
G1 = G0 
G0 = 




103 


NOFLOW 


BR IF 


G10=0 






Z=GKK8 8 


10 2 


FLOFIX 


BR IF 


HZNZ 


10 3 


NOFLOW 


BR IF 


G14=0 


103 


NOFLOW 


BR IF 


S0=0 






G0=0$KFF 






RTN 








H1C=H1+H1 






H0C=H0+H0+C 






D1C=D1 


.+D1+C 






D0C=DO+DO+C 






T1C=T1 


. + T1+C 






T0C=T0+TC+C 






I1C = I1 


. + U+C 






IOC=IO+IO+C 






RTN 








P0=P0<KCF 






P1=P1$K0E 






RDH I 


AS, P-2 






U1C=U1? Il+C 






UQC=U0«10*C 






RDH I 


AS,P-2 






D1C=D1*I1+C 



CL0AD=*E60t 

COMMENTS 



EC LEVEl=128266 PAGE 124 



ADDR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CL0AD=*E60, 

COMMENTS 



EC LEVEL=128266 PAGE 125 



276C 


768D 


CMLT 


120 










D0C = 009'I0+C 




2762 


5 8CA 


CMLT 


121 










RDH I 


AS,P-2 




27 64 


7B9D 


CMLT 


122 










T1C=T1II 1+C 




2766 


7A8D 


CMLT 


123 










TOC=TO*IO+C 




2768 


5 8CA 


CMLT 


124 










RDH I 


AS,P-2 




276A 


759D 


CMLT 


125 










GIC=G1SI1+C 




276C 


7480 


CMLT 


126 










GOC=GCSIO*C 




276E 


1CEB 


CMLT 


127 










PO=PC<KOF 




2770 


0002 


CMLT 


128 










RST S3 




2772 


F87B 


CMLT 


129 






13 3 


OUT OUT 


BR IF 


P0 7=i 




2774 


C504 


C ML T 


130 






114 


ADDROU 


BR IF 


S0=0 




2776 


2 00 2 


CMLT 


131 










SET S3 




2778 


C5D5 


CMLT 


132 






114 


ADDROU 


BR IF 


S0 = 1 




277A 


128E 


CMLT 


133 


OUT OUT 








RTN 






0900 


8 9C4 


CMLT 


134 


DIG 





052 


CYCLE 


BR 







0902 


8920 


CMLT 


135 


DIG 


1 


150 


PUTE1 


BR 




+16 OR 1 


0904 


A37A 


CMLT 


136 


DIG 


2 


167 


PUTE2 


BR 




S32 OR 2 


0906 


B46C 


CMLT 


137 


DIG 


3 


152 


PUTE3 


BR 




+48 OR 3 


0908 


B47 2 


CMLT 


138 


DIG 


4 


155 


PUTE4 


BR 




+64 OR 4 


090A 


B46E 


CMLT 


139 


DIG 


5 


153 


PUTE5 


BR 




+80 OR 5 


090C 


A 200 


CMLT 


140 


DIG 


6 


158 


PUTE6 


BR 




+96 OR 6 


Q90E 


A372 


CMLT 


141 


DIG 


7 


163 


PUTE7 


BR 




+112 OR 7 


0910 


A 37 8 


CMLT 


142 


DIG 


8 


166 


PUTE8 


BR 




+128 OR 8 


0912 


903A 


C ML T 


143 


DIG 


9 


169 


PUTE9 


BR 




-112 OR 7 


0914 


8212 


CMLT 


144 


DIG 


A 


172 


PUTEA 


BR 




-96 OR 6 


0916 


8 3A0 


CMLT 


145 


DIG 


B 


181 


PUTEB 


BR 




-80 OR 5 


0918 


AFFC 


CMLT 


146 


DIG 


C 


179 


PUTEC 


BR 




-64 OR 4 


091 A 


83A2 


CMLT 


147 


DIG 





182 


PUTEO 


BR 




-4 8 OR 3 


091C 


821A 


CMLT 


148 


DIG 


F 


176 


PUTEE 


BR 




-32 OR 2 


09 IE 


3002 


CMLT 


149 


DIG 


F 






SET S 


K = 9C 


-16 OR 1 


092C 


A752 


CMLT 


150 


PUTE1 




113 


ADD1 


BAL 






0922 


89C4 


CMLT 


151 






05 2 


CYCLE 


BR 






346C 


3 00 2 


C ML T 


152 


PUTE3 








SET S 


K = 90 




346E 


A 75 2 


CMLT 


153 


PUTE5 




113 


AD01 


BAL 






34 70 


100 2 


CMLT 


154 










RST S 


K=90 




3472 


3025 


CMLT 


155 


PUTE4 








P1=P1*K2Q 




3474 


A 75 2 


CMLT 


156 






113 


A 001 


BAL 






3476 


89C4 


CMLT 


157 






052 


CYCLE 


BR 






2200 


3 02 5 


CMLT 


158 


PUTE6 








P1=P1$K20 




2202 


A 75 2 


CMLT 


159 






113 


AD01 


BAL 






2204 


102 5 


CMLT 


160 










P1=P1*-K20 




2206 


A754 


CMLT 


161 






114 


ADDROU 


BAL 






2208 


8 9C4 


CMLT 


162 






052 


CYCLE 


BR 






2372 


3 002 


CMLT 


163 


PUTE7 








SET S 


K = 90 




2374 


A752 


CMLT 


164 






113 


AD01 


BAL 






2376 


100 2 


CMLT 


165 










RST S 


K=90 




2378 


3 02 5 


CMLT 


166 


PUTE8 








P1=P1$K20 




237A 


A 754 


CMLT 


167 


PUTE2 




114 


ADDROU 


BAL 






237C 


89C4 


CMLT 


168 






052 


CYCLE 


BR 






10 3 A 


A 75 2 


CMLT 


169 


PUTE9 




113 


ADD! 


BAL 






10 3C 


3002 


CMLT 


170 










SET S 


K=90 





ADDR 


WORD 


SEQUENCE NO. 


LABEL 


103E 


A 37 8 


CMLT 


171 




0212 


3002 


CMLT 


172 


PUTEA 


0214 


3D25 


CMLT 


173 




0216 


A752 


CMLT 


174 




0218 


102 5 


CMLT 


175 




021A 


300 2 


CMLT 


176 


PUTEE 


021C 


A 754 


CMLT 


177 




021E 


8 9C4 


CMLT 


178 




2FFC 


300 2 


CMLT 


179 


PUTEC 


2FFE 


8472 


CMLT 


180 




03 A0 


3002 


CMLT 


181 


PUTFB 


03A2 


A752 


CMLT 


182 


PUTEO 


C3A4 


3002 


CMLT 


183 




03A6 


8472 


CMLT 


184 





EXTSEQ 


NEXTLABEL 


STATEMENT 


166 


PUTE8 


BR 

SET S K=90 

P1=P1$K20 


113 


ADD1 


BAL 

P1=P1*-K20 
SET S K=90 


114 


ADDROU 


BAL 


052 


CYCLE 


BR 

SET S K=90 


155 


PUTE4 


BR 

SET S K=90 


113 


ADD1 


BAL 

SET S K=90 


155 


PUTE4 


BR 
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COMMENTS 



* CROSS REFERENCE FOR CSECT CMLT * 

5$C 3^t 3$C 2$C 3$C 3^C 3jC 3^C 5JC 5}C itfi Hfc 3$C 3{C 3$C 3?C 3$C 1$C 3$C 5$C ^C j}t )$C 30C 3$C 5$C 3JC J$C 3$C )$C 3$C )$C 3$C jjc 



CMLT 


CO? 


CICY 


213 










CMLT 


006 


CMLT 


00 2 


CMLT 


009 






CMLT 


007 


CICY 


181 










CMLT 


009 


CMLT 


00 7 










CMLT 


014 


CICY 


197 










CMLT 


015 


CMLT 


00 5 


CMLT 


012 






CMLT 


020 


CMLT 


017 










CMLT 


023 


CMLT 


021 










CMLT 


027 


CFMD 


06 5 


CFMD 


07 5 






CMLT 


028 


CMLT 


037 










CMLT 


038 


CMLT 


030 










CMLT 


046' 


CMLT 


061 










CMLT 


049 


CMLT 


046 










CMLT 


52 


C^LT 


134 


CMLT 


151 


CMLT 


157 CMLT 162 CMLT 168 


CMLT 


056 


CMLT 


05 3 










CMLT 


059 


CMLT 


048 


CMLT 


052 


CMLT 


055 


CMLT 


061 


CFMU 


03 2 










CMLT 


065 


CMLT 


06 3 










CMLT 


74 


CMLT 


069 


CMLT 


07 C 






CMLT 


083 


CMLT 


079 










CMLT 


085 


CMLT 


060 










CMLT 


102 


CMLT 


099 










CMLT 


103 


CMLT 


09 7 


CMLT 


100 


CMLT 


101 


CMLT 


104 


CMLT 


03 5 


CMLT 


036 






CMLT 


113 


CMLT 


073 


CMLT 


150 


CMLT 


153 CMLT 156 CMLT 159 


CMLT 


114 


CMLT 


130 


CMLT 


132 


CMLT 


161 CMLT 167 CMLT 177 


CMLT 


133 


CMLT 


129 










CMLT 


134 


CMLT 


051 


CMLT 


058 






CMLT 


150 


CMLT 


13 5 










CMLT 


152 


CMLT 


137 










CMLT 


153 


CMLT 


139 










CMLT 


155 


CMLT 


138 


CMLT 


180 


CMLT 


184 


CMLT 


158 


CMLT 


140 










CMLT 


163 


CMLT 


141 











CMLT 178 



CMLT 164 CMLT 169 CMLT 174 CMLT 182 



CMLT 


166 


CMLT 


142 


CMLT 


167 


CMLT 


136 


CMLT 


169 


CMLT 


143 


CMLT 


172 


CMLT 


144 


CMLT 


176 


CMLT 


148 


CMLT 


179 


CMLT 


146 


CMLT 


181 


CMLT 


145 


CMLT 


18? 


CMLT 


147 



* CROSS REFERENCE FOR CSECT CMLT * 



CMLT 171 
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CMPU DESCRIPTIVE TEXT 

LABEL. .SS0PF1 HOVE WITH OFFSET MOVE WITH OFFSET EXAMPLE 

STEP 

1..READ LOW SOURCF BYTE DESTINATION 79 56 87 84 3C 

2. .MOVE LOW 4 BITS OF SOURCE BYTE TO HIGH 4 BITS OF THE LOW BEFORE 

DESTINATION BYTE. THE LOW 4 BITS OF THE DESTINATION BYTE 

REMAIN UNCHANGED. SOURCE 64 72 63 75 91 85 29 76 

3.. CHECK TO SEE WHAT FIELD HAS ENDED, 

A. IF DESTINATION OR BOTH ENDED, RETURN TO I-CYCLES. 

• 

B. IF SOURCE HAS ENDED, STORE THE HIGH 4 BITS OF THE 
SOURCE BYTE IN THE LOW 4 BITS OF THE NEXT DESTINATION 
BYTE. FILL DESTINATION REMAINDER WITH ZEROES, RETURN 

TO I-CYCLES. 

• • 

C. IF NEITHER HAS ENDED, READOUT NEXT SOURCE BYTE, STORE' DESTINATION AFTER 59 18 52 97 6C 
THE HIGH 4 BITS OF PREVIOUS SOURCE BYTE AS LOW 4 BITS 

IN DESTINATION BYTE. STORE LOW 4 BITS OF NEW SOURCE 
BYTE AS HIGH 4 BITS IN DESTINATION BYTE. 
RETURN TO STEP 3. 

LABEL. .SS0PF2 PACK PACK EXAMPLE 

STEP 

SOURCE F6 F7 F2 F4 F9 C3 

1.. READOUT LOW SOURCE BYTE. CROSS DIGITS AND STORE AT LOW 

DESTINATION ADDRESS. DESTINATION BEFORE CO 00 CO 00 00 

2.. CHECK TO SEE WH^T FIELD HAS ENDED. ' DESTINATION AFTER 00 06 72 49 3C 

A. IF DESTINATION OR BOTH ENDED, RETURN TO I-CYCLES. 

B. IF SOURCE HAS ENDED, FILL REMAINING DESTINATION WITH 

ZEROES. 

C. IF NEITHER HAS ENDED, READOUT NEXT SOURCE BYTE. IF THIS 
BYTE ENDS SOURCE FIELD, FILL REMAINING DESTINATION WITH 
ZEROES, AFTER STORING LOW 4 SOURCE BITS. IF SOURCE DID 
NOT END, READOUT NEXT SOURCE BYTE, COMBINE LOW ORDER 
SOURCE DIGITS AND STORE AT NEXT HIGHER DESTINATION 
ADDRESS. RETURN TO STEP 2. 

LABEL.. SS0PF3 UNPACK UNPACK EXAMPLE 

SOURCE 64 92 5C 

THE UNPACK INSTRUCTION IS ALMOST THE REVERSE OF PACK. PROPER 
ZONES APE INSERTED IN DESTINATION BYTES FOR ALL SOURCE DIGITS. DESTINATION BEFORE 00 00 GO 00 00 00 
ZONES ARE INSERTED WITH ZEROES WHEN FILLING IN DESTINATION FIELD 
WHEN SOURCE HAS ENDED. DESTINATION AFTER FO F6 F4 F9 F2 C5 



AODR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CLOAD=*E60, 

COMMENTS 
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0136 
0138 
013A 
013C 
013E 
2E68 
2E6A 
2E6C 
2F6E 
2E70 
2E72 
2E74 
2E76 
2980 
2982 
2984 
2986 
29A2 
29A4 
20A6 
29A8 
29AA 
29AC 
29AE 
29B0 
29B2 
29B4 
29B6 
29B8 
01B6 
01B8 
018A 
01BC 
01BE 
2A0E 
2A10 
2A12 
2A14 
2A16 
2A18 
2A1A 
2A1C 
2A0A 
2A0C 



5 83 A 
5F10 
48F3 
5B75 

AE7 2 
2 7F5 
C96E 
2 75 5 
5B3A 
5BF1 
7F1A 
5 55 9 
8093 
803 3 
A9B2 
8185 
8185 
81B6 
AAOE 
5B3A 
4B7D 
7 71 A 
3510 
E087 
4B75 
7 71 A 
577B 
25FO 
8093 
5B3A 
4B7 3 
771A 
5B75 
AA1A 
5F3A 

2 5FF 
FC8B 
5B3A 
4BF3 
7F1A 

3 51D 
8093 
5F7D 
A9B2 



CMPU 
CMP (J 

CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
C MP U 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 
CMPU 



001 
002 
003 
00 4 
00 5 
006 
00 7 
008 
0C9 
010 
Oil 
012 
013 
014 
C15 
016 
017 
018 
019 
020 
021 
022 
023 
02 4 
025 
026 
02 7 

02 8 
029 
030 
031 
032 
033 
034 
035 

03 6 

03 7 
038 
039 
040 
041 
042 
043 
044 
045 

04 6 



T 
* 



PACK, UNPACK, AND MOVE WITH OFFSET 12/15/66 P. C. HUANG 



SS0PF1 



SS0PF3 

SS0PF2 
STBYTE 



HZLZBR 
HZLZBR 1 
HZLZBR 2 
HZLZBR 3 
OP 1 
OP 2 
DP 3 



STDEST 



MWOS 



PACK 



HILOCT 
SOUENO 



CICY 
CICY 



013 
Oil 



016 

020 
028 
00 5 
005 
032 
037 



STBYTE 
SS0PF2 



HZLZBR N 
OP N 

STDEST 
I START N 
I START N 
MWOS 
PACK 



019 HZLZBR 3 



016 HZLZBR N 



043 HILOCT 



045 SOUEND 



016 
02 8 



HZLZBR N 
STDEST 



RDB T 
ROB H 
H1=T1 
D1 = T1 
BR 

D1 = 0$ 
BR IF 
D1 = 0$ 
RDB T 
H1 = T1 
STB H 
G1 = G1 
N = DYN 
N=GO 
BR 

N = S B 
N = S B 
BR 
BR 

RDB T 
D1 = T1 
STB D 
G1 = G1 
BR IF 
D1 = T1 
STB D 
D1 = D1 
Gl = Gl 
N=DYN 
RDB T 
D1 = T1 
STB D 
01 = T1 
BR 

RDB H 
G1 = G1 
BR IF 
RDB T 
H1 = T1 
STB H 
G1 = G1 
N=DYN 
D1=H1 
BR 



1 V-l 
1 U+C 
XH+H1L 
XL 

KFO 

PI BIT4=0 
K50 
1 V-l 
X 
1 U-l 

BITS67 
BITS67 



ITS67 
ITS67 



1 V-l 

L+D1H 
1 U-l 
-K10 

HZ = 
XL$D1H 
1 U-l 
H 
+ KF0 

BITS67 
1 V-l 
XH+D1L 
1 U-l 
XL 

1 V-l 
+KFF 

LZ=0 
1 V-l 
XH+H1L 
1 U-l 
-K10 

BITS67 
L 



MOVE OFFSET, READ SOURCE SIGN 
READ DESTINATION SIGN BYTE 
SET UP THE SIGN BYTE 
SAVE HI HALF BYTE OF SOURCE 



UNPAC 

BR CN 

SET U 

PACK, 

CROSS 

STORE 

PUT L 

BR ON 

BR ON 

SOURC 

DESTI 

BOTH 

MOVE 

PACK 

UNPAC 

UNPAC 

STORE 

SUBTR 

BR IF 

UNPAC 

STORE 

ZERO 

SUBTR 

BR ON 

READ 

SET U 

STORE 

SAVE 

GO TO 

READ 

SUBTR 

BR IF 

READ 

PACK 

STORE 

SUBT 

BR ON 

SOURC 

GO TU 



K, SET UP FOR EBCDIC 

NOT ASCII MODE 

P FOR ASCII MODE 

SIGN BYTE 

BYTE 

BYTE 

BYTE ON Z-BUSS 
ZERO LENGTH 



MODE 



READ 

SIGN 

SIGN 
ENGTH 

HZ,LZ - 

OP'S 
E ENDED 
NATION ENDED 
ENDED 
WITH OFFSET 



K, READ S 
K LO HALF 

FIRST BY 
ACT HI, L 

DESTINAT 
K HI HALF 

DESTINAT 
OUT NUMER 
ACT DEST 

HZ,LZ CO 
SOURCE 
P THE BYT 

DESTINAT 
HI HALF B 

SUBT HI, 
FIRST SOU 
ACT LOW C 

SOURCE E 
SECOND SO 
THE TWO 8 

IT 
HI, LO CO 

HZ, LZ C 
E ENDED, 

STORE & 



OURCE 

BYTE 
TE 

COUNT BY 1 
ION END 

BYTE 
ION BYTE 
IC 

COUNT 
UNT 



E 

ION 
YTE 
LO 
RCE 
OUNT 
NDED 
URCE 
YTES 



FOR NEXT 
COUNT 
BYTE 
BY 1 

BYTE 



CYCLE 



UNT BY 1 
OUNT 

ZERO OUT 
BR HZ 



HI HALF 



CMPU 


003 


CICY 


268 


CMPU 


008 


CTCY 


270 


CMPU 


Oil 


CICY 


269 


CMPU 


013 


CMPU 


00 7 


CMPU 


016 


CMPU 


015 


CMPU 


019 


CMPU 


026 


CMPU 


020 


CMPU 


016 


CMPU 


028 


CMPU 


017 


CMPU 


032 


CMPU 


020 


CMPU 


037 


CMPU 


021 


CMPU 


043 


CMPU 


036 


CMPU 


045 


CMPU 


039 



* CROSS REFERENCE FOR CSECT CMPU * 

***** **** ************************* 
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CMPU 00 9 



CMPU 031 CMPU 044 



CMPU 046 



CNVR DESCRIPTIVE TEXT 
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* . * OBJECTIVES 

* * * INSTRUCTION FORMAT * 

* ENTRY * OPERATION * BYTE 1 * BYTE 2 * BYTE 3 * BYTE 4 * CONVERT TO BINARY - THE SECOND OPERAND IS CHANGED FROM 
* * * * * * * PACKED DECIMAL NUMBER TO A BINARY 

* RX0P4E * CONVERT TO DEC. * 4E * Rl X2 * B2 D2 * D2 * NUMBER AND PLACED IN THE GENERAL 

* PXOP4E * CONVERT TO BIN. * 4F * Rl X2 * B2 D2 * D2 * PURPOSE REGISTER SPECIFIED BY Rl. 
* * * * * * * THE SECOND OPERAND IS CHECKED FOR 

VALID SIGN AND DIGIT CODES. 
PRIOR TO ENTRY TO THIS ROUTINE, THE EFFECTIVE ADDRESS 
FOR THE SECOND OPERAND HAS BEEN CALCULATED IN THE CICY CONVERT TO DECIMAL - THE FIRST OPERAND IS CHANGED FROM / 

ROUTINE. SIGNED BINARY NUMBER TO A PACKED 

DECIMAL NUMBER AND PLACED IN THE 
SECOND OPERAND LOCATION. 



A DDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMFNT 


COMMENTS 






CNVR 


001 


T 


CONVERT TO DECIMAL AND BINARY 


ROUTINES 






CNVR 


00 2 


* 


















CNVR 


00 3 


* 


















CNVR 


004 


* 


CONVERT TO DECIMAL 






2C4E 


AB2 5 


CNVR 


00 5 


RX0P4E 


CICY 


056 


ADD ERR N 


BR IF 


H1 = NZ 




2C50 


0183 


C NV R 


006 










Z=U1*- 


-K08 




?C5? 


F0D7 


CNVR 


007 






009 


OKAY 


BR IF 


LZ=0 




2C54 


AE94 


CNVR 


008 




CICY 


070 


SPECHK 


BR 






2C56 


9814 


CNVR 


009 


OKAY 


CCOM 


05 7 


L SAVE A 


BAL 






2C58 


10CE 


CNVR 


010 










RST S 


K=FC 




2C5A 


F05E 


CNVR 


Oil 






013 


R X4 EA 


BR IF 


GO 7=0 




2C5C 


AB7A 


CNVR 


012 






05 8 


RX0P4F 


BR 






2C5E 


AE16 


CNVR 


013 


RX4EA 


CCOM 


020 


GETR1 


BAL 






2C60 


2B07 


CNVR 


014 










T1 = 




STORE FIRST 


2C62 


7A18 


CNVR 


015 










STH T 


U + 2 


TWO ANS. BY 


2C64 


C66A 


CNVR 


016 






019 


RX4E3 


BR IF 


000=0 




2C66 


B3DA 


CNVR 


017 




CCOM 


076 


COM PL 


BAL 






2C6B 


2 040 


CNVR 


018 










SET S5 


SET MINU 


2C6A 


4 2A6 


CNVR 


019 


RX4EB 








V = T 






2C6C 


44A6 


CNVR 


020 










G = T 






2C6E 


48A6 


CNVR 


021 










I = T 






2C7C 


2013 


CNVR 


022 










P1=0$K01 




2C72 


C679 


CNVR 


023 






02 6 


L4EB 


8R IF 


DC0=1 




2C74 


AD10 


CNVR 


024 


L4EA 




03 9 


DOBBIN 


BAt 






2C76 


C674 


CNVR 


025 






024 


L4EA 


BR IF 


DC 0=0 




2C78 


ACFE 


CNVR 


026 


L4EB 




030 


RX4EAA 


BAL 






2C7A 


C679 


CNVR 


027 


L4EC 




02 6 


L4EB 


BR IF 


000=1 




2C7C 


ADOO 


CNVR 


02 8 






031 


RX4EAB 


BAL 






2C7E 


AC7A 


CNVR 


029 






02 7 


L4EC 


BR 






2CFE 


3915 


CNVR 


030 


RX4EAA 








I1=U$K10 




2DOO 


ED1F 


CNVR 


031 


RX4EAB 




C46 


END 


BR IF 


P12 = l 




2D02 


0002 


CNVR 


03 2 










RST S3 




2D04 


799F 


CNVR 


033 










iic = naii+c 




2D06 


788F 


CNVR 


034 










ioc=ioaio+c 





A DDR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 
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COMMENTS 



2DQ8 


755F 


CNVR 


03 5 




2D0A 


744F 


CNVR 


036 




2 DOC 


733F 


CNVR 


037 




2DOE 


722F 


CNVR 


038 




2D10 


6FFB 


CNVR 


039 


DOBBIN 


2D12 


6EED 


CNVR 


040 




2D14 


6 77D 


CNVR 


041 




2016 


6 66 


CNVR 


042 




2D18 


ED1F 


CNVR 


043 




2D1A 


2D1B 


CNVR 


044 




2D1C 


128E 


CNVR 


045 




2D1E 


4686 


CNVR 


046 


END 


2D20 


8178 


CNVR 


047 




2D22 


2 7CB 


CNVR 


04 8 




2D24 


C92 8 


CNVR 


049 




2D26 


176B 


CNVR 


050 




2D28 


D1AC 


CNVR 


051 


VJEXTCK 


2D2A 


3713 


CNVR 


052 




2D2C 


7218 


CNVR 


053 


FINAL 


2D2E 


7418 


CNVR 


054 




2D30 


7618 


CNVR 


05 5 




2D32 


8185 


CNVR 


056 








CNVR 


057 


* 


287A 


2B8 3 


CNVR 


05 8 


RX0P4F 


2B7C 


3815 


CNVR 


05 9 




2B7E 


4EA6 


CNVR 


060 




2B80 


5 718 


CNVR 


061 


LOOPAX 


2B82 


77EF 


CNVR 


062 




2884 


E589 


CNVR 


063 




2B86 


5AE4 


CNVR 


064 




2B88 


77E8 


CNVR 


065 


NOTSAV 


2B8A 


CFFB 


CNVR 


066 




2B8C 


F080 


CNVR 


067 




2B8E 


5 710 


CNVR 


068 




2B90 


5 73B 


CNVR 


069 




2B92 


8F2C 


CNVR 


070 




2B94 


73AF 


CNVR 


071 




2B96 


C19A 


CNVR 


072 




2B98 


9BDC 


CNVR 


073 




2B9A 


73E0 


CNVR 


074 


OKFLD 


2B9C 


555B 


CNVR 


075 




289E 


3533 


CNVR 


076 




2BA0 


10CE 


CNVR 


077 




2BA2 


F42 6 


CNVR 


078 




28A4 


3 002 


CNVR 


079 




2BA6 


2 40 7 


CNVR 


080 


PLSNUM 


2BA8 


2 90 7 


CNVR 


081 


CONTUF 


28AA 


0040 


CNVR 


082 




2BAC 


4EA6 


CNVR 


083 




2BAE 


2207 


CNVR 


084 




2BB0 


5DE0 


CNVR 


085 


RDBP1H 







G1C=G1SG1+C 






G0C=G03G0+C 






vic=viavi+c 






VQC=V0SV0+C 






H1C=H1+H1 






H0C=HO+HO+C 






D1C=D1+D1+C 






DOC=DO+DO+C 


046 


END 


BR IF P12=l 
P1=P1+K01 

RTN 
D=I 


CCOM 06 6 


LRSTRB 


BAL 
D1=D1+KCC 


051 


NEXTCK 


BR IF PI 4=0 
D1 = DKK06 


053 


FINAL 


BR IF S5=0 
D1=D1$K01 
STH V U+2 
STH G U+2 
STH D U+2 


CICY 005 


I START N 


N=S BITS67 


CONVERT TO BINARY 






T1=0$K0 8 






T1=T1$K10 






H = T 






RDB Dl U+l 






D1C=D13H0+C 


06 5 


NOTSAV 


BR IF S2=l 

T=H + 1 

STB Dl AS,H+1 

Z=HKKCF 


061 


LOOPAX 


BR IF LZNZ 
RDB 01 U 
V1=D1H 


CDMD 203 


SINSET 


BAL 

V1C = V15)T0 + C 


074 


OKFLD 


BR IF S4=0 


CCOM 071 


FLGDEX 


BR 

STB VI AS,H 

G1=G1H 

G1=G1$K03 

RST S K=FC 


080 


PLSNUM 


BR IF G02=0 

SET S K=90 

G0=0 

11 = 

RST S5 

H=T 

V0=0 

RDB PI AS,H 



SET NOT ASCI I PLUS 

SET ASCII PLUS 

MAKE SIGN MINUS 
STORE 
RESULT 



STORE 
THE 
DECIMAL 
FIELD 
TN 
AUX 
STORAGE 
AND 
FIND 
1ST 
SIG 
DIGET 
GO CHECK SIGN 



GO FLAG DATA EXCEP 

BUILD 
ANS 
PEG ADDRESS 
BR IF PLUS 



INITIALIZE ZERO FLAG 



AOOR 



WORD SEQUENCE NO. LABEL 



NEXTSEO 



NEXTLABEL STATEMENT 



CL0AD=*E60 f 

COMMENTS 
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2BB2 
2BB4 
2BB6 
2BB8 
2BBA 
2BBC 
2BBE 
2BC0 
2BC2 
2BC4 
2BC6 
28C8 
2BCA 
2BCC 
2BE8 
2BEA 
2BEC 
2BEE 
2BFO 
2BF2 
2BF4 
2BF6 
2BF8 
2BFA 
2BCE 
2BDQ 
2BD2 
2BD4 
2BD6 
2BD8 
2BDA 
2BDC 
2BDE 
2BEO 
2BF2 
2BE4 
2BE6 
3070 
3072 
30 74 
3076 
3078 
30 7A 
30 7 C 
307E 



5 DC 5 
B070 
527B 
CFFB 
FOE 8 
77E0 
14FF 
C4CA 
4203 
790D 
794A 
C14F 
520D 
ABA8 
5 0CD 
B070 
4275 
01F5 
C4F8 
5AA4 
77E8 
ABBO 
2 040 
ABF4 
5 9F9 
8176 
C5DA 
E5DC 
CF62 
ABOC 
CF6 3 
47BB 
OBFB 
C4E7 
2B93 
8 9FC 
8185 
5 220 
6223 

5 23 9 
6223 

6 22 3 
6233 
6 2C3 
128E 



CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 
CNVR 



LAB9 
LAB 6 



CNVR 005 
CNVR 009 
CNVR 013 



CICY 199 
CNVR 007 
CMVZ Oil 



086 
087 
088 
089 
090 
091 
092 
093 
094 
095 
096 

09 7 
098 
099 
100 
101 
102 

10 3 
104 
10 5 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
12 1 
12 2 
123 
124 
125 
126 
127 
128 
129 
130 



CICY 200 



LAB7 

LAWOPS 

OONENO 



LAB12 
LAB13 



LAB14 

LAB11 
X10PLS 



123 X10PLS 



100 LAB6 



098 LAB9 



110 
081 
123 

106 

108 

08 5 

106 

CCOM 06 5 
116 
117 
120 
117 
120 



BPSW 003 
CICY 00 5 



DON EN 

CONTUE 

X10PLS 

LAB7 
LAWOPS 

RDBP1H 
LAB7 

LRSTRA 
LAB12 
LAB13 
LAB 14 
LAB13 
LAB 14 



122 LAB11 



PROG 

I START N 



* CROSS R 



P0= 
BAL 

Dl= 

Z=H 

BR 

STB 

G0 = 

BR 

U0= 

I1C 

STB 

BR 

U0 = 

BR 

P0= 

BAL 

Dl = 

BR 

BR 

T = T 

STB 

BR 

SET 

BR 

Hl = 

BAL 

BR 

BR 

BR 

BR 

BR 

Tl= 

Z=T 

BR 

Tl = 

BR 

N=S 

V0 = 

V0= 

Vl = 

vo= 

VQ= 
V0 = 
V0= 

RTN 

EFER 
**** 



P1XL 

VCH 
KKOF 
IF LZNZ 

Dl AS,H • 
G0<KFF 
IF ZNZ 
V0XH+U0L 
-I1IUG+C 

U AS,G-1 
IF G14=l 
VOL 

P1L 

V0XL$D1H 
IF S5=l 
IF ZNZ 
+ 1 
Dl AStH+1 

S5 

II 

IF S0=0 
IF S2=0 
IF H10=0 

IF H10=l 
D1H+T1L 
KKOF 
IF Z = 
0$K09 

BITS67 
VOL 
VO+VO 
VO 

VO+VO 
VC+VO 
V0+V1 
VO + PO 



BR IF NZ 

SET NOT 



RFSUT SO FAR 
ZERO FLAG 



X2 

X4 

X8 

X10 

PLUS AODATIVE 



ENCE FOR CSECT CNVR * 

*************#**$**&£ 



* CROSS REFERENCE FOR CSECT CNVR * 



CL0AD=*E60, EC LEVEL=128266 PAGE 134 



CNVR 


019 


CNVR 


016 






CNVR 


024 


CNVR 


02 5 






CNVR 


026 


CNVR 


023 


CNVR 


02 7 


CNVR 


027 


CNVR 


029 






CNVR 


030 


CNVR 


02 6 






CNVR 


031 


CNVR 


02 8 






CNVR 


039 


CNVR 


024 






CNVR 


046 


CNVR 


031 


CNVR 


043 


CNVR 


051 


CNVR 


049 






CNVR 


053 


CNVR 


051 






CNVR 


058 


CNVR 


012 






CNVR 


061 


CNVR 


067 






CNVR 


065 


CNVR 


063 






CNVR 


074 


CNVR 


072 






CNVR 


080 


CNVR 


078 






CNVR 


081 


CNVP 


09 9 






CNVR 


085 


CNVR 


10 7 






CNVR 


098 


CNVR 


09 3 






CNVR 


100 


CNVR 


090 






CNVR 


106 


CNVR 


103 


CNVR 


109 


CNVR 


108 


CNVR 


104 






CNVR 


110 


CNVR 


097 






CNVR 


116 


CNVR 


112 






CNVR 


117 


CNVR 


113 


CNVR 


115 


CNVR 


120 


CDVD 


09 9 


CNVR 


114 


CNVR 


122 


CNVR 


119 






CNVR 


123 


CNVR 


087 


CNVR 


101 



CNVR 116 



CSAS — DECIMAL ROUTINES 
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ENTRIES 



DESCRIPTION CONTINUED 



1. 
2. 
3. 
4. 



SS0PF8 
SS0PF9 
SSOPFA 
SSOPFB 



ZERO AND ADD 
COMPARE DECIMAL 
ADD DECIMAL 
SUBTRACT DECIMAL 



OBJECTIVES 



DECIMAL ADD OR SUBTRACT 



THE 2 
ADDED 
CALLE 
CODE 
AS FO 

# 



ND OPE 
OR CO 
D THF 
DETFRM 
LLOWS. 

a§C 3$C 3?c ^c aft sfc 



RAND, CALLED THE SOURCE FIELD, IS EITHER TRUE 
MPLEMENT ADDED TO THE 1ST OPERAND, WHICH IS 
DESTINATION FIELD. THE OPERAND SIGNS AND OP 
INE WHETHER TRUE OR COMPLEMENT ADD IS PERFORMED 

SIGN . TRUE OR COMPLEMENT * 



1ST OPERAND 



2ND OPERAND 



ADD OP 



SUBTRACT OP * 



PLUS . PLUS 

MINUS . PLUS 

MINUS . MINUS 

PLUS . MINUS 



TRUE . COMPLEMENT 


* 


COMPLEMENT . TRUE 


* 


TRUE . COMPLEMENT 


* 


COMPLEMENT . TRUE 


* 



ZERO AND ADD 

THE 2ND OPERAND IS 
IN THE 1ST OPERAND 

COMPARE DECIMAL 



ADDED TO 
LOCATION 



A VALUE OF ZERO AND PLACED 



THE 2ND OPERAND IS COMPARED WITH THE 1ST OPERAND, AND THE 
RESULT OF THE COMPARISON IS INDICATED BY THE CONDITION 
CODE, COMPARISON IS RIGHT TO LEFT. 

DESCRIPTION 

THE CSAS ROUTINE PERFORMS THE DECIMAL OPERATIONS AS 
FOLLOWS. 

1. FOR ADD OR ZERO AND ADD, SET TRUE ADD. 

FOR SUBTRACT OR COMPARE, SET COMPLEMENT ADD. 

2. READ LOW-ORDER BYTE OF 2ND OPERAND. TEST SIGN. IF 
SIGN IS INVALID* INITIATE PROGRAM INTERRUPT. 

3. LOOP BACK AND TEST SIGN OF 1ST OPERAND. THIS STEP 
IS NOT PERFORMED FOR ZERO AND ADD. 

4. ADD OP COMPLEMENT ADD 1ST DIGIT. 

5. SET PROPER SIGN. STORE 1ST BYTE AT 1ST OPERAND, 
DESTINATION FIELD, THEN STEP TO NEXT DESTINATION 
BYTE. RESULT IS NOT STORED IF COMPARE OP. 



6. 



7. 

8. 



9. 

10. 



READ NEXT SOURCE BYTE FROM 2ND OPERAND. 

READ NEXT DESTINATION BYTE FROM 1ST OPERAND. 

IF ZERO AND ADD, DESTINATION FIELD IS SET TO ZERO. 

ADD OR COMPLEMENT ADD THE TWO BYTES. 

STORE RESULT AT 1ST OPERAND DESTINATION FIELD, AND 

STEP TO NEXT DESTINATION BYTE. RESULT IS NOT STORED 

IF COMPARE OP. 

DECREMENT LENGTH. 

REPEAT STEPS 6 THROUGH 9 UNTIL EITHER DESTINATION OR 

SOURCE FIELD ENDS. 



SOURCE FIELD ENDS BEFORE DESTINATION FIELD 

SUPPLY ZEROES AS SOURCE DIGITS AND CONTINUE UNTIL 
DESTINATION FIELD ENDS. 

DESTINATION FIELD ENDS BEFORE SOURCE FIELD 



READ OUT PEMAINI 
AFTER CHECKING TRU 
LAST ADD AS FOLLOW 

1. COMPLEMENT ADD 
DESTINATION FI 
MUST BE ZERO, 

IF PREVIOUS 
MUST BE NINES. 

2. COMPLEMENT ADD 
OR AN OVERFLOW 

3. TRUE ADD AND C 

4. TRUE ADD AND N 

RESULTS ARE 



NG SOURCE DIGITS. ADD THEM TO ZERO 
E/COMPLEMENT STATUS AND THE CARRY FROM 
S. 

AND CARRY. IF LAST AOD BEFORE 
ELD ENDED WAS ZERO, FURTHER RESULTS 
OR AN OVERFLOW IS INDICATED. 
RESULT WAS NOT ZERO, FURTHER RESULTS 

AND NO CARRY. RESULTS MUST BE NINES, 

IS INDICATED. 
ARRY. INDICATE OVERFLOW. 
CARRY. INDICATE OVERFLOW 
NOT ZERO. 



IF FURTHER 



BOTH SOURCE AND DESTINATION FIELD ENDED 

1. IF INVALID DATA, INITIATE PROGRAM INTERRUPT. 

2. RECOMPLEMENT RESULT IF THE FOLLOWING CONDITIONS ARE 
PRESENT WHEN FIELDS END. 

A. COMPLEMENT ADD, NO CARRY, AND NOT A COMPARE OP. 

B. TRUE ADD, NO CARRY, ALU ZERO, MINUS SIGN STATUS, 
AND NOT A COMPARE OP. 

RESULT IS RECOMPLEMENTED, STARTING AT LOW-ORDER BYTE, 
SIGN OF RESULT IS INVERTED. 

3. SET CONDITION CODES AND RETURN TO I-CYCLES. 
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AD DR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL STATEMENT 


COMMENTS 






CSAS 


001 


T 


DECIMAL ADD, SUBTRACT, COMPARE, AND 


ZERO AND ADD 






CSAS 


002 


# 














CSAS 


003 


* 


OPERAND 1 ADDRESS IS IN U HI IS 


ZERO TO IS ZERO 






CSAS 


004 


# 


OPERAND 2 ADDRESS IS IN V Di IS 


ZERO 






CSAS 


00 5 


ASEQ 


AL07=4C 








134C 


3443 


CSAS 


006 


SS0PF8 






G0=G0$K04 


ZERO AND ADD 


134E 


1082 


CSAS 


007 


SSOPFA 






RST S K=98 


RESET S0,S3,S4 


1350 


2E15 


CSAS 


00 8 


STUPDC 






H0=0$K10 


SET UP DECREMENT 


1352 


573A 


CSAS 


009 








RDB Dl V-l 


READ 1ST 2ND OP BYTE 


1354 


5 76D 


CSAS 


010 


TSTSGN 






D0=D1L 




1356 


066 1 


CSAS 


Oil 








Z=D0+K06 




13 58 


EOF 3 


CSAS 


012 




02 5 


NOSIGN 


BR IF HZ=0 




135A 


00C4 


CSAS 


013 








RST S K=2C 


RESET S2,S4,S5 


135C 


F366 


CSAS 


014 




019 


I SPLUS 


BR IF Dl BIT7=0 


TEST FOR PLUS A,C,E 


135E 


C7FR 


CSAS 


015 








Z=DKK0F 


TEST FOR F 


1360 


FOE 7 


CSAS 


016 




019 


I SP LU S 


BR IF DYN BIT7=1 


TEST FOR PLUS 


1362 


C5F5 


CSAS 


017 




026 


I SCOMP 


BR IF SC=1 


TEST FOR COMP ADD 


1364 


3042 


CSAS 


018 








SET S K = 94 


SET S0,S3,S5 


1366 


C07C 


CSAS 


019 


I SPLUS 


030 


ENDSGN 


BR IF GO BIT4=0 


SIGN TEST IS OVFR 


136S 


DQ7R 


CSAS 


020 




02 9 


ZAPFST 


BR IF GO BIT5=1 


BR IF ZERO AND ADD 


136A 


148B 


CSAS 


021 








G0=G0<K08 


INVERT G04 


136C 


5 7FR 


CSAS 


022 








H1=D1H 


STRIP SIGN 


136E 


5710 


CSAS 


023 








RDB Dl U+0 


READ 2ND OPERAND BYTE 


1370 


Q354 


CSAS 


024 




010 


TSTSGN 


BR 




1372 


9BDC 


CSAS 


02 5 


*il)SIGN 


CCOM 071 


FLGDEX 


BR 




1374 


100 2 


CSAS 


026 


I SCOMP 






RST S K=90 


SET UP FOR TRUE A 


13 76 


2 040 


CSAS 


02 7 








SET S5 




1378 


9366 


CSAS 


028 




019 


ISPLUS 


BR 




137A 


1002 


CSAS 


029 


ZAPFST 






RST S K=90 


RESET SO, S3 


137C 


577B 


CSAS 


03 


ENDSGN 






D1=D1H 


STRIP SIGN 


137E 


77FF 


CSAS 


031 








DlC=DiaHl+C 


ADD FIRST CHAR 


1380 


905 


CSAS 


32 




03 4 


ISASCI 


BR IF PI BIT4=1 


BR IF ASCII 


1382 


2 72 8 


CSAS 


033 








D1=D1+K02 




1384 


D188 


CSAS 


034 


ISASCI 


036 


DSPLUS 


BR IF S5=C 


BR IF PLUS 


1386 


2718 


CSAS 


035 








D1=D1+K01 




1388 


27AB 


CSAS 


036 


D SPLUS 






D1=D1+K0A 




138A 


F035 


CSAS 


03 7 




05 8 


DEC CMP 


BR IF GO BIT7=1 


TEST FOR COMPARE 


138C 


771A 


CSAS 


038 








STB Dl U-l 




138E 


55B9 


CSAS 


039 


TSTLGT 






T1 = G1 




1390 


EOEB 


CSAS 


040 




08 5 


DESTND 


BR IF HZ=0 


TEST FOR DEST END 


1392 


F0A6 


CSAS 


041 




051 


MORSOR 


3R IF LZNZ 


TEST FOR SOURCF LEFT 


1394 


2 707 


CSAS 


042 


ENDSOR 






D1 = 




1396 


2EF3 


CSAS 


043 








H0=0$K0F 




1398 


D02A 


CSAS 


044 




053 


RDDEST 


BR IF GO BIT5=0 




139A 


2F07 


CSAS 


045 


ZRODST 






H1 = 




139C 


93AC 


CSAS 


046 




054 


COMPUT 


BR 




139E 


7F1A 


CSAS 


047 


STORED 






STB HI U-l 




13 AC 


75E3 


CSAS 


048 


DECLGT 






G1=G1-H0 




13A2 


EOEB 


CSAS 


049 




085 


DESTND 


BR IF HZ=0 




13A4 


F09 5 


CSAS 


050 




042 


ENDSOR 


BR IF LZ=0 




13A6 


5 73 A 


CSAS 


051 


MORSOR 






RDB Dl V-l 





ADD 



















CL0AD=*E60, EC 


ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


COMMENTS 


13A8 


D01B 


CSAS 


052 




045 


ZRODST 


BR IF GO 8IT5=1 




13AA 


5F1C 


CSAS 


053 


RDDEST 






ROB HI U+0 




13AC 


7F7F 


CSAS 


054 


COMPUT 






HlC=HiaDl+C 




13AE 


F01F 


CSAS 


055 




047 


STORED 


BR IF GO BIT7=0 




13B0 


5006 


CSAS 


056 








U=U-1 




1382 


9 3A0 


CSAS 


057 




048 


DECLGT 


BR 




13B4 


5 006 


CSAS 


058 


DECCMP 






U=U-1 




13B6 


938E 


CSAS 


059 




03 9 


TSTLGT 


BR 




13 88 


1413 


CSAS 


060 


SSOPFB 






G0=GC*-K01 


SUBTRACT RST G07 


138A 


3 00 2 


CSAS 


G61 


SS0PF9 






SET S K=90 


COMPARE SET C0MP6S3 


13BC 


9350 


CSAS 


062 




CO 8 


STUPDC 


BR 




13BE 


573A 


CSAS 


063 


COMPAD 






RDB Dl V-l 




13C0 


F5D1 


CSAS 


064 




072 


COMPGD 


BR IF S3=l 




13C2 


7A7F 


CSAS 


065 








T0C=TC3D1+C 




13C4 


1A9F 


CSAS 


066 


TSTNIN 






T0=T0<K99 




13C6 


C4F9 


CSAS 


067 




09 2 


OKSOFA 


BR IF 7=0 




13C8 


002 


CSAS 


06 8 








RST S3 




13CA 


1 415 


CSAS 


069 


SETOVF 






G0=GC*-K10 




13CC 


2A07 


C SA S 


070 








T0=0 




13CE 


93F8 


CSAS 


071 




092 


OKSOFA 


BR 




13D0 


E509 


CSAS 


072 


COMPGD 


076 


MYBEOK 


BR IF S2 = l 




13D2 


7A7F 


CSAS 


073 








T0C=T0aDl+C 




13D4 


C4F9 


CSAS 


074 




092 


OKSOFA 


BR IF Z=0 




1306 


93CA 


CSAS 


07 5 




069 


SETOVF 


BR 




1308 


7A7F 


CSAS 


076 


MYBEOK 






T0C=T03D1+C 




13DA 


F5E1 


CSAS 


077 




080 


STLOKA 


BR IF S3=l 




13DC 


E44 5 


CSAS 


078 




066 


TSTNIN 


BR IF GO BIT2=1 




13DE 


93CA 


CSAS 


079 




069 


SETOVF 


BR 




13E0 


1420 


CSAS 


080 


STLOKA 






G0=G0<K20 




13E2 


93FB 


CSAS 


081 




092 


OKSOFA 


BR 




13E4 


77AF 


CSAS 


08 2 


TRUCAR 






01C=D13TC+C 




13E6 


93F6 


CSAS 


083 




091 


OVFLAA 


BR 




13E8 


9372 


CSAS 


084 


NOOSIN 


02 5 


NOSIGN 


BR 




13EA 


FOFn 


CSAS 


08 5 


OESTNO 


094 


ALLEND 


BR IF LZ=0 




13EC 


C58F 


CSAS 


086 


MORDST 


06 3 


COMPAD 


BR IF S0=1 




13EE 


573A 


CSAS 


08 7 








RDB Dl V-l 




13F0 


F5E5 


CSAS 


08 8 




08 2 


TRUCAR 


BR IF S3=l 




13F2 


77AF 


CSAS 


089 








D1C = D135T0+C 




13F4 


C4F9 


CSAS 


09C 




092 


OKSOFA 


BR IF Z=0 




13F6 


2002 


CSAS 


091 


OVFLAA 






SET S3 




13F8 


2 5FF 


CSAS 


092 


OK SOFA 






G1=G1+KFF 




13FA 


FOEC 


CSAS 


093 




086 


MORDST 


BR IF LZNZ 




13FC 


C1E9 


CSAS 


094 


ALLEND 


084 


NOOSIN 


BR IF S4=l 




13FE 


C591 


CSAS 


095 


ALENDH 


104 


ALEND8 


BR IF SO=l 




1400 


F589 


CSAS 


096 




100 


ALENDA 


BR IF S3=l 




1402 


E58B 


CSAS 


097 


ALENDE 


101 


ALENDC 


BR IF S2=l 




1404 


0101 


CSAS 


09 8 




136 


ALENDI 


8R IF S5=l 




1406 


AA74 


CSAS 


099 


ALENDJ 


CICY 003 


CHECKX 


BR 





1408 


F03C 


CSAS 


100 


ALENDA 


126 


ALENDG 


BR IF GO BIT7=0 




140A 


01RF 


CSAS 


101 


ALENDC 


103 


ALENDD 


BR IF S5=l 




140C 


A 82 4 


CSAS 


10 2 




CLOG 063 


0P9 5A 


BR 


2 
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ADOR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


140 E 


A 820 


CSAS 


103 


ALENDD 


CLOG 061 


0P95C 


BR 


1410 


F583 


CSAS 


104 


ALENDB 


097 


ALENDE 


BR IF S3=l 


141? 


F04 7 


CSAS 


105 




131 


ALENDF 


BR IF GO BIT7=1 


1414 


5.B85 


CSAS 


106 


RECOMP 






T1=T1XL 


1416 


6189 


CSAS 


107 








U1C=U1+T1+1 


1418 


6 0A0 


CSAS 


108 








UOC=UO + TO+C 


141A 


5710 


C SA S 


10 9 








RDB Dl U+0 


141C 


5 7FB 


CSAS 


110 








H1=D1H 


141E 


3002 


CSAS 


111 








SET S K=90 


1420 


5 77 


CSAS 


112 








D1=D1L 


142? 


171B 


CSAS 


113 








D1 = DKK01 


1424 


7AFF 


CSAS 


114 








T0C=T08H1+C 


1426 


67A3 


CSAS 


115 








D1=D1+TC 


1428 


771A 


CSAS 


116 








STB Dl U-l 


142 A 


58A9 


CSAS 


117 








T0 = T1 


142C 


C4BB 


C SAS 


118 




125 


RCMPOV 


BR IF Z = 


142E 


5710 


CSAS 


119 


MXTCHR 






RDB Dl U+C 


1430 


757F 


CSAS 


120 








G1C=G13D1+C 


1432 


751A 


CSAS 


121 








STB Gl U-l 


1434 


2 507 


CSAS 


122 








G1 = 


143 6 


2AFF 


CSAS 


123 








T0=T0+KFF 


1438 


C4AF 


CSAS 


124 




119 


NXTCHR 


BR IF ZNZ 


143A 


F44 7 


C SA S 


125 


RCMPOV 


131 


ALENDF 


BR IF GO 3=1 


143C 


2C75 


CSAS 


126 


ALENOG 






P0=0$K70 


143F 


DD43 


CSAS 


127 




129 


DEOVFL 


BR IF PI B1T1=1 


1440 


AA76 


CSAS 


12 8 




CICY 004 


CHECK 


BR 


1442 


2BA3 


CSAS 


129 


OEOVFL 






T1=0$K0A 


1444 


89FC 


CSAS 


130 




BPSW C03 


PROG 


BR 


1446 


D1C0 


CSAS 


131 


ALENDF 


134 


INVSNB 


BR IF S5=l 


1448 


2 040 


CSAS 


132 








SET S5 


144A 


940? 


CSAS 


133 




097 


ALENDF 


BR 


144C 


C040 


CSAS 


134 


INVSNB 






RST S5 


144F 


9402 


CSAS 


135 




097 


ALENDE 


BR 


1450 


F007 


CSAS 


136 


ALENDI 


099 


ALENDJ 


BR IF GO BIT7=1 


1452 


9414 


CSAS 
CSAS 


137 
138 


AENO 


106 


RECOMP 


BR 
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COMMENTS 

1 



SET CC 3 



DECIMAL OVERFLOW 



* CROSS REFERENCE FOR CSECT CSAS * 



CSAS 006 CICY 280 

CSAS 007 CICY 28? 

CSAS 008 CSAS 062 

CSAS 010 CSAS 024 

CSAS 019 CSAS 014 CSAS 016 CSAS 028 

CSAS 025 CSAS 012 CSAS 084 

CSAS 026 CSAS 017 

CSAS 029 CSAS 020 

CSAS 030 CSAS 319 

CSAS 034 CSAS 032 

CSAS 036 CSAS 034 

CSAS 039 CSAS 059 



CSAS 


042 


CSAS 


050 


CSAS 


045 


CSAS 


052 


CSAS 


047 


CSAS 


055 


CSAS 


048 


CSAS 


057 


CSAS 


051 


CSAS 


041 


CSAS 


053 


CSAS 


044 


CSAS 


054 


CSAS 


046 


CSAS 


058 


CSAS 


037 


CSAS 


060 


CICY 


283 


CSAS 


061 


CICY 


281 


CSAS 


063 


CSAS 


086 


CSAS 


066 


CSAS 


07 8 


CSAS 


069 


CSAS 


075 


CSAS 


072 


CSAS 


064 


CSAS 


076 


CSAS 


072 


CSAS 


080 


CSAS 


07 7 


CSAS 


082 


CSAS 


088 


CSAS 


084 


CSAS 


094 


CSAS 


085 


CSAS 


040 


CSAS 


086 


CSAS 


09 3 


CSAS 


091 


CSAS 


083 


CSAS 


092 


CSAS 


067 


CSAS 


094 


CSAS 


03 5 


CSAS 


097 


CSAS 


104 


CSAS 


099 


CSAS 


136 


CSAS 


100 


CSAS 


096 


CSAS 


101 


CSAS 


09 7 


CSAS 


103 


CSAS 


101 


CSAS 


104 


CSAS 


095 


CSAS 


106 


CSAS 


137 


CSAS 


119 


CSAS 


124 


CSAS 


125 


CSAS 


118 


CSAS 


126 


CSAS 


100 


CSAS 


129 


CSAS 


127 


CSAS 


131 


CSAS 


10 5 


CSAS 


134 


CSAS 


131 


CSAS 


136 


CSAS 


098 



* CROSS REFERENCE FOR CSECT CSAS * 

)^( 3§C 3$C 3$C 9$C 3^C )j}C 3^C 3§C 3^ 3$C )^C 3^C ^C 9$C 9$C )(C 3$£ 3$C 9^C 3^C 3$C 9§C S^C 3^C 3$C 3^C 3$C 3$C 3^ 3$C 9^C S^C 3^C 



CLOAO=*E60, EC LEVEL=128266 PAGE 139 



CSAS 079 



CSAS 049 



CSAS 071 CSAS 074 CSAS 081 CSAS 090 



CSAS 133 CSAS 135 



CSAS 12 5 



CSFT — SHIFT ROUTINES 
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ENTRIES 



DESCRIPTION CONTINUED 



RS0P89 
RS0P8B 
RS0P8D 
RS0P8F 
RS0P88 
RS0P8A 
RS0P8C 
RS0P8E 



SHIFT LEFT LOGICAL 
SHIFT LEFT ALGEBRAIC 
SHIFT LEFT DOUBLE LOGICAL 
SHIFT LEFT DOUBLE ALGEBRAIC 
SHIFT- RIGHT LOGICAL 
SHIFT RIGHT ALGEBRAIC 
SHIFT RIGHT DOUBLE LOGICAL 
SHIFT RIGHT DOUBLE ALGEBRAIC 



OBJECTIVES — ALL SHIFTS 

OBTAIN BINARY VALUE OF THE 2ND OPERAND EFFECTIVE ADDRESS 
LOW-ORDER 6 BITS. THEN SHIFT THE 1ST OPERAND EITHER LEFT 
OR RIGHT THAT AMOUNT. 

DESCRIPTION 



AFTER THE 


COUNT IS SET 


UP, THE 


-LEFT1- SUBROUTINE 


LOOPS UNTIL 


THE COUNT IS 


REDUCED 


TO ZERO. THEN THE 


RIGHT SHIFT 


OF 4 I S DONE 


BY THE 


-RIGHT4- SUBROUTINE. 


SHIFT COMPLETE 


. THIS SECTION OF THE ROUTINE STORES THE 


RESULT BACK 


INTO THE 1ST 


OPE P AND 


. FOR LOGICAL SHIFTS, 


THE MICROPROGRAM RESTORES SAVED 


REGISTERS AND RETURNS 


TO I -CYCLES. 


FOR ALGEBRAIC SHIFTS, SO IS TESTED TO 


DETERMINE IF 


AN OVERFLOW 


OCCURRED. FOR SHIFT OVERFLOW, 


THE SIGN IS 


INVERTED AND 


STORED, 


AND THE MICROPROGRAM 


EXITS TO SET 


CONDITION CODE 3. 


IF NO OVERFLOW, THE 


MICROPROGRAM 


SETS THE CONDIT ION 


CODE ACCORDING TO THE 


SIGN AND WHETHER THE RESULT IS ZERO OR NON-ZERO. THE 


SAVED REGISTERS ARE RESTORED, AND THE MICROPROGRAM 


RETURNS TO I 


-CYCLES. 







A DDR 



THE OPERANDS ARE FETCHED, THEN 


ALGEBRAIC SHIFTS WITH NEGATIVE 


TO FF FOR EXTENDING THE SIGN. 


SHIFT-COUNT FIELD ARE HANDLED F 


SHIFTS OF 32, 16, AND 8. THE - 


EXECUTED THF NUMBER OF TIMES ME 


THE HIGH-ORDER SHIFTS. 


AFTER THE HIGH-ORDER SHIFTS A 


IS TESTED FOR RIGHT OR LEFT SHI 


THE LOW-ORDER 3 BITS OF THE COU 


THESE BITS REPRESENT SHIFTS OF 



THE OP CODE IS TESTED. FOR 
OPERAND, A REGISTER IS SET 
THE HIGH-ORDER BITS OF THE 
IRST. THESE BITS REPRESENT 
SHIFTS- SUBROUTINE IS 
EDED TO ACCOMPLISH ANY OF 

RE COMPLETED, THE OP CODE 
FT. THEN THE SHIFTS FOR 
NT FIELD ARE HANDLED. 
4, 2, AND 1. 

LEFT SHIFT 1 THROUGH 7. THE -LEFT1- SUBROUTINE IS USED. 
THIS SUBROUTINE SHIFTS 1 BIT, THEN DECREMENTS THE LOW- 
ORDER COUNT. THE SUBROUTINE LOOPS UNTIL THE COUNT IS 
REDUCED TO ZFRO. 

RIGHT SHIFT 1 THROUGH 7. IF A RIGHT SHIFT OF 4 IS NEEDED, 
IT IS HANDLED BY THE —RIGHT*- SUBROUTINE. THEN THE 
BITS REPRESENTING 8 AND 4 ARE RESET IN THE COUNT. THE 
BITS REPRESENTING 2 AND 1, FOR SHIFTS OF THROUGH 3 
ARE HANDLED AS FOLLOWS. 



LOW 2 BITS OF COUNT 


00 DONE. 


GO TO 


CI SET COUNT TO 3. 


R IGHT 


10 COUNT OKAY. 


R IGHT 


11 SET COUNT TO 1. 


RIGHT 


WORD SEQUENCE NO. 


LABEL 


CSFT 001 


T 


CSFT 002 


* 


CSFT 003 


# 



SHIFT COMPLETE 

1 EQUALS 3 LEFT MINUS 4 

2 EQUALS 2 LEFT MINUS 4 

3 EQUALS 1 LEFT MINUS 4 

NEXTSEQ NEXTLABEL 



SUBROUTINES 

-SHIFTS-. 
SHIFTS. 
MOVE OF 
REGISTER 
FILLED F 
ORIGINAL 

SHIFT 
EACH BYT 
ON THE L 
MUST BE 
SHIFTS. 



THIS SUBROUTINE HANDLES BOTH RIGHT AND LEFT 

SHIFT RIGHT 8 IS ACCOMPLISHED BY A STRAIGHT 
EACH BYTE-SOURCE REGISTER TO THE NEXT ADJACENT 

ON THE RIGHT. VACATED HIGH-ORDER BITS ARE 
ROM A REGISTER THAT CONTAINS BITS LIKE THE 

SIGN. 
LEFT 8 IS ACCOMPLISHED BY A STRAIGHT MOVE OF 
E-SOURCE REGISTER TO THE NEXT ADJACENT REGISTER 
EFT. ANY CHANGE IN SIGN IS AN OVERFLOW AND 
REMEMBERED TO SET CONDITION CODE 3 FOR ALGEBRAIC 



•LEFT1-. SHIFT LEFT 1 IS ACCOMPLISHED BY ADDING EACH 
BYTE TO ITSELF, SAVING CARRIES. SIGN CHANGE IS STORED 
BY SETTING SO TO INDICATE OVERFLOW. 

•RIGHT 4-. EACH HALF BYTE IS CROSSED INTO THE NEXT 
ADJACENT HALF-BYTE ON THE RIGHT. 



RIGHT. 
RIGHT. 
RIGHT. 
STATEMENT 

SHIFT ROUTINES 



COMMENTS 



A DDR 



WORD SEQUENCE NO. 



LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E6Q, 

COMMENTS 
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CSFT 


0C4 


* 






CSFT 


005 


* 






CSFT 


006 


* 






CSFT 


007 


* 






CSFT 


00 8 


* 






CSFT 


009 


* 






CSFT 


010 


* 






CSFT 


Oil 


* 






CSFT 


C12 


* 






CSFT 


013 


* 


1CFA 


10CE 


CSFT 


014 


SHIFT 


1CFC 


7CC2 


CSFT 


015 




1CFE 


5 1D9 


CSFT 


016 




1DOO 


55BB 


CSFT 


017 




1D02 


5EA8 


CSFT 


018 




1D04 


56AA 


CSFT 


019 




IDC 6 


D014 


CSFT 


020 




100 8 


F50E 


CSFT 


021 




100A 


5CC2 


CSFT 


022 




10CC 


AE94 


CSFT 


02 3 




1D0E 


3B15 


CSFT 


024 


NOSP 


1010 


5 2A8 


CSFT 


025 




1D12 


50AA 


CSFT 


026 




1014 


E01C 


CSFT 


02^ 


START 


1D16 


CE1C 


CSFT 


028 




1D18 


2AF7 


CSFT 


02 9 




1D1A 


2040 


CSFT 


03 




1D1C 


5 DC 9 


CSFT 


031 


LOGPOS 


ID IE 


6CC3 


CSFT 


03 2 




1D20 


1C8 5 


CSFT 


033 




1D22 


EOAB 


CSFT 


034 




1D24 


B29A 


CSFT 


035 


3AL 


1D26 


2CFD 


CSFT 


03 6 




1D28 


E0A4 


CSFT 


037 




1D2A 


FC35 


CSFT 


038 


N08 


1D2C 


D930 


CSFT 


03 9 




1D2E 


B340 


CSFT 


040 




1D30 


1DC3 


C SF T 


041 


N04 


1D32 


8977 


CSFT 


042 








CSFT 


043 


* 






CSFT 


044 


* 






CSFT 


045 


* 


1BE0 


9D3A 


CSFT 


046 


LOW 


1BE2 


2D2B 


CSFT 


047 


LOW 1 


1BE4 


9BE8 


CSFT 


048 


LOW 2 


1BE6 


1D2 3 


CSFT 


049 


LOW 3 


1BE8 


8420 


C SF T 


050 


BALRL 


1BEA 


B340 


CSFT 


051 




1BEC 


9D3A 


CSFT 


052 








CSFT 


053 


* 


1034 


1D83 


CSFT 


054 


LEFT 



027 START 
024 NOSP 

CICY 070 SPECHK 



031 LOGPOS 
031 LOGPOS 



03 8 N08 

129 SHIFTS 

03 5 BAL 

05 4 LEFT 

041 N04 

107 RIGHT4 

046 LOW N 

RIGHT i = 3L-4R 

05 7 SHFTCC 

050 BALRL 

087 LEFT1 

107 RIGHT4 

057 SHFTCC 



ALL 8 SHIFTS START AT THE 
DOUBLE SHIFT DATA IS IN 
SINGLE SHIFT DATA IS IN 
ORIGINAL SIGN EXPANDED TO 
COUNT FOR LOOPS IS IN 
NO OF BIT POSITIONS TO BE 
S5=0RIG SIGN- , SO USED 

$ $ $ 3$C)JC $ $ )$C $ $ 



FIRST WORD OF THIS ROUTINE 
H,D,V,U 
HtO 
8 BITS =TC 

PO OR PI 
SHIFTED IS IN PI 
FOR OVERFLOW 



RST S K=FC 
STH P DA,B8 
Pl = Ul 
T1=G1H 



SAVE SHIFT COUNT 
GET Rl 



RDH H AStT+2 

RDH D AS,T-2 

BR IF GO 5=0 

BR IF G13=0 

RDH P DA,B8 

BR 

T1=T1$K10 

RDH V AS,T+2 

RDH U AS,T-2 

BR IF G06=0 

BR IF H00=0 

TQ=0$KFF 

SET S5 

P0=P1 

P0=PC+P0 

P0=P0*-K30 

BR IF H7.=0 

BAL 

P0=P0+KF0 

BR IF HZNZ 

BR IF G07=l BREAK 

3R IF P15=0 BR IF 

BAL 

P1=P1*-K0C 

N=P1 BITS67 



BR IF SHORT 
BR IF Rl EVEN 
RESTORE P 

GET SECOND HALF 
OF 
DOUBLE OPERAND 
BR IF LOGICAL OP 
BR IF + 
EXTEND - SIGN 
REMEMBER NEG 
MOVE SHIFT COUNT 
MOVE THE 32,16,8 CTS LEFT ONE 

BR IF NO 32, 16 OR 8 SHIFT 
SHIFT ONE BYTE LEFT OR RIGHT 
DEC HI COUNT 



OUT LEFT 
NO RIGHT 



SHIFTS 
4 



*# RIGHT 2=2L-4R ** 
LOW ORDER BITS MUST 
BR 

P1=P1+K02 
BR 

P1=P1*-K02 
BAL 
SAL 
BR 



RIGHT 3=1L-4R 
BE CORRECTED 
NO 1,2 OP 
R1=3L-4R 
R2=2L-4R 
R3=1L-4R 



3 RIGHT SHIFT 

FIX Pl=3 
P1=0K 

FIX PI 



P1=P1*-K08 



REMOVE HI BIT 



ADDR 



WORD SEQUENCE NO. 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CL0AD=*E60t 

COMMENTS 
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1D36 
1D38 
1D3A 
1D3C 
1D3E 
1040 
1042 
1044 
1046 
1049 
ID4A 
104C 
1D4E 
1D50 
1 052 
1054 
1056 
1058 
1D5A 
1D5C 
105E 
1060 
1064 
1066 
1068 
1D6A 
106C 
1D6E 
1070 
1072 
1062 

0420 
04?2 
0424 
0426 
0428 
042A 
042C 
042 F 
0430 
0432 
0434 
0436 
0438 
043A 
04 3 C 
04 3E 



F08B 
8420 
2A07 
5CC2 
D046 
7 2A8 
70AA 
! 815 
7EA8 
76AA 
E04F 
AA76 
F05E 
C5DE 

5 6A0 
168 5 
01 DA 
3 68 5 
7 6AC 
AC40 
CE64 
A 82 
0008 
4EE6 
4666 
D070 
4226 
4006 
D5E3 
AA74 
A 82 4 

00 2 
D02C 
6118 
600D 
6330 
622D 

6 77D 
6660 
6FFD 
6EED 
E4B8 
3 000 
6AAD 
20FB 
FOAO 
128E 



CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
C SFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 



05 5 

056 
057 
058 
059 
060 
061 
062 

06 3 
064 
065 
066 
06 7 
068 

06 9 
070 

07 1 
072 
073 
074 
075 
076 
077 
078 

07 9 
080 
081 

08 2 
083 
084 
085 
086 
087 

08 8 
089 
090 
091 
092 
093 
094 

09 5 
096 
097 
098 
099 
100 
101 
102 
103 
104 

10 5 



SHFTCC 



057 SHFTCC 
087 LEFT1 



063 SHST 



SHST 



ALG 



CSIGN 
NOINT 
POS 



067 ALG 

CICY 004 CHECK 

075 NOINT 

075 NOINT 



073 CSIGN 



CLST Oil SHFTOV 

077 POS 
CLOG 061 0P9 5C 



SHORT 

CC2 
t 

LEFT! 



083 SHORT 



085 CC2 
CICY 003 CHECKX 
CLOG 063 0P95A 



09 3 SHORT 1 



SH0RT1 



SKIPST 



099 SKIPST 



087 LEFT1 



BR IF 
BAL 
T0=0 
RDH P 
BR IF 
STH V 
STH U 



LZ=0 



DA f B8 
GO 5=0 
AS,T+2 
AS,T-2 



T1=T1*-K10 
STH H AS,T+2 
STH D AS,T-2 
BR IF GO 6=1 

BR 

BR IF GC7=0 

BR IF S0=0 

RDH D AS,T+0 

D0=00*-K80 

BR IF S5=0 

D0=Q0$K80 

STH D AS,T+C 

BR 

BR IF HCO=0 

BR 

RST SI 

H=H 

D = D 

BR IF G05=0 

V = V 

u=u 

BR IF Sl=l 

BR 

BR 

*** LEFT 1 ROUTINE 
RST S3 
BR IF GO 5=0 
U1C=U1+U1 
U0C=U0+U0+C 
V1C=V1+V1+C 
V0C=V0+V0+C 
D1C=01+D1+C 
D0C=D0+D0+C 
H1C=H1+H1+C 
H0C=H0+H0+C 
BR IF NOVFL 
SET SO 
T0C=T0+T0+C 
P1=P1+K0F 
BR IF LZNZ 
RTN 



DO LEFT SHIFT 1 THRU 7 PLACES 
REMOVE EXT SIGN 
RESTORE MASK 

STORE 

LOW 
DOUBLE 
STORE 

SINGLE OR HI DOUBLE 

LOGICAL GO BACK 
BR IF RIGHT-NO OVF CHECK 
LEFT ALG CHECK OVF 
HAVE OVF FIX SIGN 
MAKE SIGN + 
BR IF ORIGINAL SIGN + 
MAKE SIGN - 
STOR CORRECT SIGN 



CC 1 

TEST 
HI 
BR IF SINGLE 
TEST 
LOW DOUBLE 

ceo 



SHIFT 
LEFT 
ONE 
BIT 



SAVE CARRY FOR 
DEC COUNT 



RIGHT SHIFTS 



* 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEO 



NEXTLABEL STATEMENT 



CL0AD=*E60, 
COMMENTS 
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3340 
3342 
3344 
3346 
3349 
334A 
334C 
334E 
33 50 
3352 
3354 
3356 
335 8 
335A 
335C 
335E 
3360 
3362 



329A 
329C 
329E 
32A0 
32A2 
32A4 
32A6 
32A8 
32AA 
32AC 
32AE 
12 80 
3282 
3284 
32 86 
3288 
32 8A 
328C 
328E 
3290 
3292 
3294 
3296 
3298 
32 BO 
32B2 
32B4 
32B6 



0052 
5115 
4013 
5 00 5 
4303 
5335 
4233 
5 22 5 
4723 
5775 
4673 
5 66 5 
4F63 
5FF5 
4EF3 
5EF5 
4AE3 
128E 



FC01 
DC2 6 
5019 
5 309 
5 23 9 
5 72 9 
5 67 9 
5^69 
5EF9 
5AE9 
128E 
6EA1 
C48C 
D18A 
CFOF 
300C 
C FO F 
300C 
5FE9 
5 6F9 
5769 
0031 
2707 
128E 
5279 
5329 
5039 
5109 



CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 
CSFT 



106 
10 7 
108 
10 9 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
14 5 
146 
147 
148 
149 
150 
151 
152 
153 
154 
156 
156 



RIGHT4 



116 R4SH0R 



R4SH0R 



* 
* 



SHIFT8 



SHORTP 



LFFT8 



PLUS 

OVFSET 

OK 



*** RIGHT 
BR IF G05=0 
U1=U1XL 
U1=U0XH+U1L 
UO=UCXL 
U0=V1XH+UCL 
V1=VIXL 
V1=VCXH+V1L 
V0=V0XL 
V0=D1XH+V0L 
DI=D1XL 
D1=D0XH+D1L 
00=D0XL 
D0=H1XH+D0L 
H1=H1XL 
H1=H0XH+H1L 
H0=HCXL 
H0=T0XH+H0L 
RTN 



** COMMON SHIFT 8 



ROUTINE *** 



L0NGL8 



140 


LEFT8 


BR IF GO 7=1 


135 


SHORTR 


BR IF G05=0 

U1 = U0 

U0=V1 

V1 = VC 

VQ=D1 

01 = 00 

00 = H1 

H1 = H0 

HO=TO 

RTN 

HO=HO<TO 


146 


OVFSET 


BR IF ZN7 


145 


PLUS 


BR IF S5=0 


147 


OK 


BR IF H10=l 
SET SO 


147 


OK 


BR IF H10=0 
SET SO 
H0 = H1 
H1 = D0 
00 = 01 


153 


L0NGL8 


BR IF G05 = l 

01 = 

RTN 

D1 = V0 

V0=V1 

V1 = U0 

U0=U1 



RIGHT AND LEFT #** 
BR IF LEFT SHIFT 
THIS IS RIGHT8 

SHIFT 



RIGHT 

ONE 

BYTE 
SHIFT 

CHECK HI 8 BITS FOR SIGN CHANGE 

ORIG SIGN-BR IF NEW SIGN- 
ORIG SIGN-NEW SIGN+REMBER OVF 
BR IF NEW SIGN BIT + 
REMEMBER OVERFLOW 
SHIFT 

LEFT 

ONE 

BYTE 



ADDR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CLOAD; 
COMMENTS 
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3288 
328A 



2107 
128E 



CSFT 157 
CSFT 158 



CSFT 


014 


CICY 


061 


CSFT 


024 


CSFT 


021 


CSFT 


027 


CSFT 


020 


CSFT 


031 


CSFT 


02 7 


CSFT 


35 


CSFT 


037 


CSFT 


038 


CSFT 


034 


CSFT 


041 


CSFT 


039 


CSFT 


046 


CSFT 


042 


CSFT 


050 


CSFT 


04 8 


CSFT 


054 


CSFT 


038 


CSFT 


057 


CSFT 


046 


CSFT 


063 


CSFT 


059 


CSFT 


067 


CSFT 


06 5 


CSFT 


73 


CSFT 


071 


CSFT 


075 


CSFT 


067 


CSFT 


77 


CSFT 


075 


CSFT 


083 


CSFT 


080 


CSFT 


085 


CSFT 


083 


CSFT 


087 


CSFT 


50 


CSFT 


093 


CSFT 


088 


CSFT 


099 


CSFT 


09 7 


CSFT 


107 


CSFT 


040 


CSFT 


116 


CSFT 


107 


CSFT 


129 


CSFT 


035 


CSFT 


135 


CSFT 


130 


CSFT 


140 


CSFT 


129 


CSFT 


145 


CSFT 


142 


CSFT 


146 


CSFT 


141 


CSFT 


147 


CSFT 


143 


CSFT 


153 


CSFT 


150 



U1 = 

RTN 

* CROSS REFERENCE FOR CSECT CSFT * 



CSFT 02 8 



CSFT 052 CSFT 055 



CSFT 068 



CSFT 05 6 CSFT 101 



CSFT 051 



CSFT 145 



CSTS — STATUS SWITCHING INSTRUCTIONS 
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ENTRIES 

RSOP82 — 

RSOP8 — 

RSOP8 3 — 

RROP0 8 — 

RROP0 8 — 

OBJECTIVES 

GENERAL. 



LOAD PSW 



LOAD PSW RSOP93 — 

SET SYSTEM MASK RR0P04 -- 

DIAGNOSE RROPOA -- 

SET STORAGE KEV RSOP84 -• 

INSERT STORAGE KEY RSOP85 — 



TEST AND SET 
SET PROGRAM MASK 
SUPERVISOR CALL 
WRITE DIRECT 
READ DIRECT 



THE FOLLOWING TESTS ARE MADE IF APPLICABLE TO 
INSTRUCTION BEING EXECUTED. 

1. CHECK THAT ADDRESS DOES NOT EXCEED 16 BITS. 

2. IF PRIVILEGED OP, TEST FOR SUPERVISOR STATE. 

3. CHECK ADDRESS BOUNDARY. 



THE DOUBLE-WORD AT THE LOCATION DESIGNATED BY THE 
EFFECTIVE OPERAND ADDRESS REPLACES THE PSW. 

THE MICROROUTINE TESTS FOR ERRORS, THEN BRANCHES 

-8PSW- ROUTINE TO LOAD THE PSW. 



TO THE 



THE ROUTINE READS THE BLOCK ADDRESS AND KEY. NEXT THE 
KEY IS PUT IN THE Q-REG USING STPO MNEMONIC. THEN, THE 
KEY IS STORED IN STP1 AT THE SPECIFIED BLOCK ADDRESS. 
BEFORE RETURNING TO I-CYCLES, THE CPU KEY IS RESTORED. 

INSERT STORAGE KEY 

READ THE STORAGE-PROTECT KEY FOR THE PROGRAM-STORAGE BLOCK 
ADDRESSED BY R2, AND SET IT IN Rl. 

THE ROUTINE READS THE BLOCK ADDRESS FROM R2. NEXT, THE 
KEY IS READ FROM STP1 INTO THE Q-REG. THE KEY IS PUT 
INTO Rl, THEN THE CPU KEY IS RESTORED. 

TEST AND SET 

TEST THE HIGH-ORDER BIT OF THE BYTE AT THE EFFECTIVE 
ADDRESS, AND SET THE CONDITION CODE. 

THE ROUTINE READS THE ADDRESSED BYTE, THEN TESTS THE 
HIGH-ORDER BIT FOR 1. IF THE BIT IS 1, CONDITION CODE 1 
IS SET. IF THE BIT IS 0, CONDITION CODE IS SET. 

SET PROGRAM MASK 



SET SYSTEM MASK 

THE BYTE AT THE 2ND OPERAND EFFECTIVE ADDRESS REPLACES 
THE SYSTEM MASK, BITS 3-7, OF THE CURRENT PSW. 

AFTER TESTING FOR ERRORS, THE ROUTINE READS THE 2ND 
OPERAND. THE NEW MASK BYTF IS PLACEO IN THE SYSTEM MASK 
REGISTER -SM- AND IN AUXILIARY STORAGE LOCATION 00A8. 

DIAGNOSE 

THE DIAGNOSE INSTRUCTION PROVIDES A MEANS OF GOING 
DIRECTLY TO A SPECIFIC MICROINSTRUCTION. THE ADDRESS OF 
THIS MICROINSTRUCTION IS GIVEN IN THE OPERAND OF THE 
DIAGNOSE INSTRUCTION. 

THE OPERAND EFFECTIVE ADDRESS IS STORED IN AUXILIARY 
STORAGE LOCATION ODBC. THEN THIS ADDRESS IS READ FROM 
AUXILIARY STORAGE TNTO THE BACKUP-ZONE I-REG. AFTER 
THE L.S. ZONE IS SET BACK TO 0, A RETURN WORD IS EXECUTED, 
THIS CAUSES THE BACKUP I-REG TO BE USED TO ADDRESS THE 
NEXT MICROINSTRUCTION. 

SET STORAGE KEY 

SET THE STORAGE-PROTECT KEY FOR THE PROGRAM-STORAGE BLOCK 
ADDRESSED BY R2. 



BITS 2-7 OF Rl REPLACE THE CONDITION CODE AND THE PROGRAM 
MASK BITS OF THE CURRENT PSW. 

THE CONDITION CODE IS SET IN PO AND THE PROGRAM MASK 
IS SET IN PI. 

SUPERVISOR CALL 

THIS INSTRUCTION CAUSES A SUPERVISOR-CALL INTERRUPTION. 
THE INTERRUPT CODE IS SUPPLIED IN BYTE 2 OF THE 
INSTRUCTION. 

THE MICROPROGRAM SETS UP A POINTER TO THE SVC OLD PSW, 
THEN BRANCHES TO THE LOAD PSW ROUTINE. 

WRITE DIRECT 

THE BYTE AT THE LOCATION DESIGNATED BY THE OPERAND 
ADDRESS IS MADE AVAILABLE AS A SET OF DIRECT-OUT STATIC 
SIGNALS. INSTRUCTION BITS 8-15 ARE MADE AVAILABLE AS 
SIGNAL-OUT TIMING SIGNALS. 

READ DIRECT 

A DIRECT-IN DATA BYTE IS ACCEPTED FROM AN EXTERNAL DEVICE 
IN THE ABSENCE OF A HOLD SIGNAL AND IS PLACED IN THE 
LOCATION DESIGNATED BY THE OPERAND ADDRESS. INSTRUCTION- 
BITS 8-15 ARE MADE AVAILABLE AS SIGNAL-OUT TIMING SIGNALS, 



A DDR 



WORD SEQUENCE NO, 



LABEL 
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COMMENTS 







CSTS 


0C1 


T 


STATUS SWITCHING INSTRUCTIONS 












CSTS 


00 2 


* 
















2A24 


AB25 


CSTS 


00 3 


RSOP82 


CICY 056 


ADDERR 


N 


BR IF H1=NZ 


LOAD PSW 






2A26 


F93 3 


CSTS 


004 




021 


0P80A 




BR IF P17=l 


OPERATION 






2A28 


0183 


CSTS 


005 










Z=U1*-KG8 


CODE 






2A2A 


FOAE 


CSTS 


00 6 




009 


0P82A 




BR IF LZNZ 


EXECUTION 






2A2C 


8A26 


CSTS 
CSTS 


007 
00 8 


# 


BPSW 024 


LPSW 




BR 








2A2E 


AE94 


CSTS 


00 9 


0P82A 


CICY 070 


SPECHK 




BR 












CSTS 


010 


* 


SET SYSTEM MASK 










2A68 


AB2 5 


CSTS 


Oil 


RSOP80 


CICY 056 


ADDERR 


N 


BR IF H1=NZ 


SET SYSTEM 






2A6A 


F933 


CSTS 


012 




021 


0P80A 




RR IF P17=l 


MASK 






2A6C 


5710 


CSTS 


013 










ROB Dl U 


OP 






2A6E 


4 47F 


CSTS 


014 










SM=D1 


CODE 






2A70 


7782 


CSTS 


015 










STB Dl DA,A8 


EXECUTION 






2472 


8185 


CSTS 
CSTS 


016 
017 


DP8IA 
* 


CICY 005 


I START 


N 


N=S BITS67 












CSTS 


018 


* 


DIAGNOSE INSTRUCTION 








2A30 


F95E 


CSTS 


019 


RS0P83 


034 


0P83A 




BR IF P17=0 








2A32 


ADFC 


CSTS 


021 


3P80A 


CICY 079 


PRI VOP 




BR 


PRIV OP 






2A5E 


70E2 


CSTS 


034 


0P83A 








STH U DA,BC 


DIAGNOSE 






2A60 


2440 


CSTS 


036 










SET MODE K=04 








2 A 62 


58E2 


CSTS 


037 










RDH I DA,BC 








2A64 


2400 


CSTS 


038 










SET MODE K=00 








2A66 


128E 


CSTS 


039 










RTN 












CSTS 


040 


* 


PROPS 08 -SET 


' KEY AND 09 INSERT KEY SHARE THIS ROUTINE 






2A34 


F93 3 


CSTS 


044 


RR0P08 


021 


OP80A 




BR IF PI 7=1 


CHECK PRIV. OP 






2A36 


5 5B3 


CSTS 


045 










T1=G1XH 


PUT R2 ADDRESS IN 


Tl 




2A38 


5EA8 


CSTS 


046 










RDH H AS,T+2 








2A3A 


A 82 5 


CSTS 


047 




CICY 056 


ADDERR 


N 


BR IF H1=NZ 








2A3C 


5 0AA 


CSTS 


043 










RDH U AStT-2 


GET BLOCK ADDRESS 






2A3E 


HOD 


C ST S 


049 










U1 = UKK00 








2A40 


FOAE 


CSTS 


050 




009 


OP82A 




BR IF LZNZ 


CHECK FOR SPEC ERROR 




2A42 


5 5BB 


CSTS 


051 










T1=G1H 


GET Rl 






2A44 


3B3 3 


CSTS 


052 










T1=T1$KQ3 


T1=XXXX0011 






2 A 46 


F055 


CSTS 


^53 




060 


INSERT 




BR IF G07=l 


BR IF INSERT KEY 






2A48 


57A0 


CSTS 


054 










RDB Dl AS,T+0 


THIS IS SET KEY-KEY IS 


IN D1H 


2A4A 


17F3 


C ST S 


055 










D1=D1*-K0F 


Dl=KKK0O00 






2A4C 


427F 


CSTS 


056 










STP0=D1 








2A4E 


531C 


CSTS 


057 










SSK STP1 U+l 








2A50 


9248 


CSTS 


058 


DONE 


CCOM 182 


RSTRKY 




BAL 


RESTORE CPU KEY 






2A52 


8185 


CSTS 


059 




CICY 00 5 


ISTART 


N 


N=S BITS67 








2 A 54 


521C 


CSTS 


060 


INSERT 








ISK STPO U+2 


READ KEY 






2A56 


527F 


CSTS 


061 










D1=STP0 








2A58 


17F3 


CSTS 


062 










D1=D1*-K0F 








2A5A 


7 7A0 


C ST S 


063 










STB Dl AS,T+0 


STORE KEY IN BITS 


24-2 7 


OF Rl 


2A5C 


AA50 


CSTS 
CSTS 
CSTS 


064 
066 
067 


* 
ATABLE 


05 8 
ADDR=CAD4 


DONE 




BR 


GO TO RESTORE CPU 


KEY 




0AD4 


8ADA 


CSTS 


068 




071 


RDSWCH 




BAL 








0AD6 


7098 


CSTS 


069 










STH U 1+2 









ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


0AD8 


AA76 


CSTS 


070 




CICY 004 


CHECK 




BR 


OAOA 


5 OOF 


CSTS 


071 


RDSWCH 








UO=SWAB 


OADC 


511E 


CSTS 


072 










U1=SWCD 


OADE 


128E 


CSTS 
CSTS 


073 
074 


AEND 








"RTN 






CSTS 


075 


* 


TEST AND SET 






2E44 


AB2 5 


C ST S 


076 


RS0P93 


CICY 056 


ADDERR 


N 


BR IF Hi=NZ 


2E46 


2FF7 


CSTS 


077 










Hl=0$KFF 


2E48 


5710 


CSTS 


078 










RDB Dl U 


2E4A 


7F10 


CSTS 


079 










STB HI U 


2E4C 


C75 2 


CSTS 


080 




08 3 


0P93A 




BR IF D10=0 


2E4E 


2C55 


CSTS 


081 










PO=0$K50 


2E5C 


8185 


CSTS 


082 




CICY 005 


ISTART 


N 


N=S 8ITS67 


2E52 


2C05 


CSTS 


083 


0P93A 








P0=O$K0O 


2E54 


8185 


CSTS 
CSTS 


084 
085 


* 


CICY 005 


I START 


N 


N=S BITS67 






CSTS 


086 


* 


SET PROG RAH MASK 




2E32 


55BB 


C ST S 


087 


RROP04 








T1=G1H 


2E34 


5 EAO 


CSTS 


083 










RDH H AS,T 


2E36 


4ED3 


CSTS 


089 










P1=HGXH4-P1L 


2E3'8 


5ECB 


CSTS 


09 










PO=HCH 


2E3A 


1CC5 


CSTS 


091 










P0=P0*-KC0 


2E3C 


FC4C 


CSTS 


092 




094 


0P04A 




BR IF P03=0 


2E3E 


3C45 


CSTS 


093 










PQ=P0SK40 


2E40 


7CC2 


CSTS 


09 4 


0P04A 








STH P DA,B8 


2E42 


8185 


CSTS 
CSTS 


095 
096 


* 


CICY 005 


ISTART 


N 


N=S BITS67 






CSTS 


097 


* 


SUPERVISOR CALL 




3364 


55B9 


CSTS 


098 


RROPOA 








T1 = G1 


3366 


2125 


CSTS 


104 










U1=0$K20 


3368 


2F07 


CSTS 


106 


PICKUP 








H1 = 


336A 


217B 


CSTS 


107 










U1=U1+K07 


336C 


8A0 2 


CSTS 

CSTS 


108 
109 


* 


BPSW 006 


ENTRY 
* 




BR 






CSTS 


110 


* 




* DIRECT 


CONTROL OPS 


0898 


83B4 


CSTS 


112 


RS0P84 


CICY 077 


OPERR 




BR 


0A5E 


83B4 


CSTS 


113 


RSQP85 


CICY 07 7 


OPERR 




BR 
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COMMENTS 



READ 

SWITCHES 

ROUTINE 



TEST 
AND 
SET 
EXECUTION 



SET 
PROG 
MASK 
EXECUTION 



SUPERVISOR 
CALL 
EXECUTION 



NO DIRECT CONTROL 
NO DIRECT CONTROL 

* CROSS REFERENCE FOR CSECT CSTS * 



CSTS 


003 


CICY 


219 




CSTS 


009 


CSTS 


00 6 


CSTS 


CSTS 


on 


CICY 


217 




CSTS 


019 


CICY 


220 




CSTS 


021 


CSTS 


00 4 


CSTS 


CSTS 


034 


CSTS 


019 




CSTS 


044 


CICY 


141 


CICY 


CSTS 


058 


CSTS 


064 




CSTS 


060 


CSTS 


053 




CSTS 


071 


CSTS 


068 


DCLL 


CSTS 


076 


CICY 


22 8 





050 

012 CSTS 044 
142 

015 DCLL 041 



rfc ajc sdc && sdc 3fic sAcsfic aftc 96c ajc 36c 24^ 30c 5ftc sfic sdc sjjcsic 3$c &!& jfioftc stejtesk jfe jftc j$e j$c )&c )jc 

* CROSS REFERENCE FOR CSECT CSTS * 

& )$c J0c )$c^c 3$e 3$: j$c s$c 3{c # 3$c )$c 3$c3jcajc:3(c3}c:j$e3{c3&i)$cj$c3$c3$c sje 3&» 36: s$c a&; 36c s$c a^c s^c 



CLOAD=*E60, EC IEVEL=128266 PAGE 148 



CSTS 


083 


CSTS 


080 


CSTS 


087 


CICY 


137 


CSTS 


094 


CSTS 


09 2 


CSTS 


098 


CICY 


143 


CSTS 


106 


BMCK 


019 


CSTS 


112 


CICY 


221 


CSTS 


113 


CICY 


222 



CTRT — TRANSLATE, TRANSLATE AND TEST, EDIT, EDIT AND MARK 
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ENTRIES 



EDIT 



SSOPDC - 
SSOPDE - 

OBJECTIVES 



TRANSLATE, TRANSLATE AND TEST 
- EDIT, EDIT AND MARK 



TRANSLATE 

THE BYTES OF THE 1ST OPERAND ARE USED AS ARGUMENTS TO 
REFERENCE THE LIST DESIGNATED BY THE 2ND OPERAND ADDRESS. 
EACH FUNCTION BYTE SELECTED FROM THE LIST REPLACES THE 
CORRESPONDING ARGUMENT IN THE 1ST OPERAND. 

THE BYTES OF THE 1ST OPERAND ARE SELECTED ONE BY ONE 
FOR TRANSLATION, PROCEEDING LEFT TO RIGHT, UNTIL THE 1ST 
OPERAND FIELD IS EXHAUSTED. 

TRANSLATE AND TEST 

THE BYTES OF THF 1ST OPERAND ARE USED AS ARGUMENTS TO 
REFERENCE THE LIST DESIGNATED BY THE 2ND OPERAND ADDRESS. 
EACH FUNCTION BYTE THUS SELECTED FROM THE LIST DETERMINES 
THE CONTINUATION OF THE OPERATION. WHEN THE FUNCTION 
BYTE IS ZFRO, THF OPERATION PROCEEDS BY FETCHING AND 
TRANSLATING THE NEXT ARGUMENT BYTE. WHEN THE FUNCTION 
BYTE IS NON7ERO, THE OPERATION IS COMPLETED BY INSERTING 
THE RELATED ARGUMENT ADDRESS IN THE LOW-ORDER 24 BITS OF 
GENERAL REGISTER 1, AND BY INSERTING THE FUNCTION BYTE IN 
THE LOW-ORDER *YTE OF GENERAL REGISTER 2. 



THE FORM 


PACKED T 


PATTERN 


DURING 


PATTERN 


1. IT I 


2. IT I 


CALL 


3. IT I 


FORM 


WHICH 


OF PATTE 


WHETHER 



AT OF THE SOURCE, 2ND OPERAND, IS CHANGED FROM 
ZONED AND IS MODIFIED UNDER CONTROL OF THE 
IN THE 2ND OPERAND. 

THE EDITING PROCESS, EACH CHARACTER OF THE 
IS AFFECTED AS FOLLOWS. 
S LEFT UNCHANGED. 

S REPLACED BY THE 1ST CHARACTER IN THE PATTERN 
ED THE FILL CHARACTER. 

S REPLACED BY A SOURCE DIGIT EXPANDED TO ZONED- 
AT. 

ACTION TAKES PLACE IS DETERMINED BY — THE TYPE 
RN CHARACTER, THE SIGNIFICANCE INDICATOR, AND 
THE SOURCE DIGIT IS ZERO. 



PATTERN CHARACTERS 

0010 COOO DIGIT SELECTOR. FILL CHARACTER OR ZONED DIGIT 
REPLACES THE SOURCE DIGIT DEPENDING ON SOURCE 
DIGIT AND SIGNIFICANCE INDICATOR. 

0010 0001 SIGNIFICANCE STARTER. SAME AS DIGIT SELECTOR, 
EXCEPT CAN START SIGNIFICANCE. 

0010 0010 FIELD SEPARATOR. FILL CHARACTER REPLACES 

SOURCE DIGIT, AND SIGNIFICANCE INDICATOR IS 
TURNED OFF. 

OTHER — MESSAGE CHARACTER. THESE CHARACTERS REMAIN 
UNCHANGED OR ARE REPLACED BY THE FILL 
CHARACTER DEPENDING ON SIGNIFICANCE INDICATOR. 



EDIT AND MARK 



SAME AS EDIT. IN ADDITION, 
SIGNIFICANT RESULT DIGIT IS 
GENERAL REGISTER 1. 



THE ADDRESS 
INSERTED IN 



OF THE 1ST 
BITS 8-31 OF 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEO 



NEXTLABEL STATEMENT 



COMMENTS 







CTRT 


001 


T 






CTRT 


00 2 


* 


2DD0 


A B2 5 


CTRT 


00 3 


SSOPDC 


2DD2 


2 607 


CTRT 


OCA 




2DD4 


2E0 7 


CTRT 


00 5 


NXTCHR 


2DD6 


5F10 


CTRT 


006 




2DD8 


6F3B 


CTRT 


00 7 




2DDA 


6E2D 


CTRT 


00 B 




2DDC 


667D 


CTRT 


0C9 




2DDE 


A225 


CTRT 


010 




2DE0 


5FFC 


CTRT 


Oil 




20E2 


F06D 


CTRT 


012 




2DE4 


7F18 


CTRT 


013 





TRANSLATE AND TRANSLATE AND TEST 



CICY 056 ADDERR N 



CICY 056 ADDERR N 



017 TRT 



BR IF H1=NZ 

D0=0 

H0=0 

RDB HI U 

H1C=H1+V1 

H0C=H0+V0+C 

D0C=D0+DI+C 

BR IF DO=NZ 

RDB HI H 

BR IF G07=l 

STB Hi U+l 



C.V.PERKINS 
BR IF INVALID ADDER 



READ ARGUMENT BYTE 
CALCULATE 
SECOND 

OPERAND 
ADDERR ERROR IF BRANCH 
READ TABLE 
BR IF TRT INSTR 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEO 


NEXTLABEL 


STATEMENT 


2DE6 


25FF 


CTRT 


014 










G1=G1+KFF 


2DE8 


F4D5 


CTRT 


015 






00 5 


NXTCHR 


BR IF AC=1 


20EA 


8185 


CTRT 


016 




CICY 


00 5 


I START N 


N=S BITS67 


2DEC 


AB01 


CTRT 


017 


TRT 




02 2 


NONZRO N 


BR IF H1=NZ 


2DEE 


5004 


CTRT 


018 










U=U + 1 


2DF0 


2 5FF 


CTRT 


019 










G1=G1+KFF 


2DF2 


F4D5 


CTRT 


020 






00 5 


NXTCHR 


BR IF AC=1 


2DF4 


AA74 


CTRT 


021 




CICY 


00 3 


CHECKX 


BR 


2800 


2B33 


CTRT 


022 


NONZRO 








T1=0$K03 


2802 


2B2D 


CTRT 


023 










T1=T1+K20 


2804 


7FA0 


CTRT 


024 










STB HI AS,T 


2806 


2BF0 


CTRT 


025 










T1=T1+KF0 


2808 


70AA 


CTRT 


026 










STH U AS,T-2 


280A 


2 70 7 


CTRT 


027 










D1 = 


280C 


77AC 


CTRT 


028 










STB Dl AS,T 


280E 


25FF 


CTRT 


029 










G1=G1+KFF 


2810 


F495 


CTRT 


030 






03 2 


CDE1 


BR IF AC=1 


2812 


A824 


CTRT 


031 




CLOG 


063 


0P9 5A 


BR 


2814 


A 82 


CTPT 


03 2 


CDE1 


CLOG 


061 


0P95C 


BR 


2A78 


AB2 5 


CTRT 


03 3 


SSOPDE 


CICY 


056 


ADOERR N 


BR IF H1=NZ 


2A7A 


14A3 


CTRT 


034 










G0=G0*-K0A 


2A7C 


5 56 9 


CTRT 


0*5 










D0=G1 


2A7E 


25F5 


CTRT 


036 










G1=Q$KFQ 


2A80 


C904 


CTRT 


03 7 






03 9 


EBCDIC 


BR IF PI BIT4=C 


2A82 


2555 


CTRT 


03 8 










G1=0$K50 


2A84 


5 810 


CTRT 


039 


EBCDIC 








RDB Tl U+0 


2A86 


5BF9 


CTRT 


040 










H1 = T1 


2A88 


0F2D 


CTRT 


041 


TSTPAT 








Z=HKK2Q 


2A8A 


E096 


CTRT 


042 






048 


NOPAT 


BR IF HZNZ 


2ARC 


F089 


CTRT 


043 






065 


DIGSEL 


BR IF LZ=0 


2A8E 


0F1B 


CTRT 


044 










Z = HKKC1 


2A90 


FOB 7 


CTRT 


045 






064 


SIGST 


BR IF LZ=0 


2A92 


0F2 8 


CTRT 


046 










Z=HKK02 


2A94 


F0B1 


CTRT 


047 






05 5 


FLDSEP 


BR IF LZ=0 


2A96 


E01B 


CTRT 


04 8 


NOPAT 




050 


NOFILL 


BR IF GO 8IT6=1 


2A98 


7B10 


CTPT 


049 


FILL 








STB Tl U+0 


2A9A 


5 004 


CTRT 


050 


NOFILL 








U=U+1 


2A9C 


26FF 


CTRT 


051 


NEXT 








DO=DC+KFF 


2A9E 


F4A4 


CTRT 


052 






058 


FINISH 


BR IF AC=0 


2AA0 


5F10 


CTRT 


053 










ROB HI U+0 


2AA2 


AA8 8 


CTRT 


054 






041 


TSTPAT 


BR 


2AB0 


142 7 


CTRT 


055 


FLDSEP 








G0=G0*-K22 


2AB2 


3443 


CTRT 


056 










G0=GO$K04 


2 A 84 


AA98 


C TR T 


057 






049 


FILL 


BR 


2AA4 


E020 


CTRT 


058 


FINISH 




061 


SSCH2 


BR IF GO BIT6=1 


2AA6 


E42B 


CTRT 


059 






063 


SSC0D2 


BR IF GO BIT2=1 


2AA8 


A&74 


CTRT 


060 


SSCODX 


CICY 


00 3 


CHECKX 


3R 


2AAC 


E42 8 


CTRT 


061 


SSCH2 




060 


SSCODX 


BR IF GO BIT2=0 


2AAE 


A820 


CTRT 


062 




CLOG 


061 


0P9 5C 


BR 


2AAA 


A824 


CTRT 


063 


SSC0D2 


CLOG 


06 3 


0P95A 


BR 


2AB6 


1443 


CTRT 


064 


SIGST 








G0=G0*-K04 
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COMMENTS 

DECREMENT COUNT 



RST GC4 AND G06 
MOVE LENGTH TO DO 
PUT EBCDIC ZONE IN Gl 
TEST FOR NO ASCI I 
PUT IN ASCII ZONE 
READ FIRST PATTERN 
Tl HAS FILL CHAR 
TEST FOR PATTERN CHAR 
BRANCH IF NOT 
BR TO DIGIT SELECT 
TEST FOR SIG START 

TEST FOR FIELD SEP 

TEST S STAT 

STORE FILL 

UPDATE ADDRESS 

DECREMENT LENGTH 

TEST FOR END 

READ NEXT PATTERN CHR 

RST G02 AND G06 
SET GO 5 

TEST S STAT 

TEST FOR ZERO FIELD 

TEST FOR ZERO FIELD 



RST G05 



A DDR 

2AB8 
2ABA 
2ABC 
2A8E 
2AC0 
2AC2 
2AC4 
2AC6 
2AC8 
2ACA 
2ACC 
2ACE 
2AD0 
2AD2 
2AD4 
2AD6 
2AD8 
2A0A 
2ADC 
2ADE 
2AE0 
2AE2 
2AF4 
2AE6 
2AE8 
2AEA 
2AEC 
2AEE 
2AF0 
2AF2 
2AF4 
2AF6 
2AF8 
2AFA 
2AFC 
2AFE 
2600 



WORD SEQUENCE NO, 



C03F 
A 32 5 
5 73 8 

4 75 5 
F0E3 
0769 
F4E1 
E05B 
F05A 
7FE2 

5 BE 9 
2F0 7 
2B17 
7FA8 
70A0 
5EB9 
5EE2 
3427 
7518 
AAEA 
9BDC 
E05D 
7B18 

006 B 
3 463 
5773 
0769 
F4F5 
148B 
AA9C 
F77A 
07FD 
C4FC 
1423 
2 70 7 
3443 
AA9C 



CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
C TR T 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
C TR T 
CTRT 
C TR T 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 
CTRT 



065 
066 
067 
068 
069 
070 
071 
072 
073 
074 
075 
076 
077 
078 
079 
080 
081 
082 
083 
084 
08 5 
086 

08 7 
08R 
089 
090 
091 
092 
093 
094 
095 
096 
097 

09 8 
099 
100 
101 



LABEL 
DIGSFL 

LODIG 



NEXTSEQ 

06 8 
CICY 056 



NEXTLABEL STATEMENT 



086 DGTZRO 



ISSSTA 
SSTAT 

NONDEC 
OGTZRO 



NOSGST 



SIGN 



PLUS 
MINUS 



LODIG BR IF GO BIT4=1 

ADDERR N BR IF D1=NZ 
RDB Dl V + l 
G1=01XL$G1H 
BR IF LZ=0 
Z=D1+K60 
085 NONDEC BR IF AOl **BRANCH 

082 ISSSTA BR IF GO BIT6=1 

082 ISSSTA BR IF GO BIT7=0 

STH H DA,BC 
H0=T1 
H1 = 

T1=0$K1 1 
STB HI AS,T+1 
STH U AS,T+0 
T1 = HC 

RDH H DA f BC 
G0=GC$K22 
STB Gl U + l 
090 NOSGST BR 

CCOM 071 FLGDEX BR 

083 SSTAT BR IF GO BIT6=1 

STB Tl U+l 
BR IF GO BIT5=1 
G0=GC$K06 
D1=D1XH 

Z=D1+K60 **MAS 
BR IF AC=1 ** 
G0=GO<KO8 
051 NEXT BR 

098 PLUS BR IF Dl BIT3=0 

Z = DKKFO 

099 MINUS BR IF ZNZ 

G0=GC*-K02 
01 = 
GQ=G0$KC4 

051 NEXT BR 

* CROSS REFERENCE FOR CSECT CTRT * 



CLOAD=*E60f 

COMMENTS 

TEST FOR LO DIGIT 

READ NEXT SOURCE CHAR 
TRNS PACHED TO ZONED 
SOURCE DIGIT ZERO 
MASK FOR NON DEC DIGT 
IF GREATER THAN 9 
TEST S STAT 
TEST FOR EOT AND MARK 

KEEP H 
KEEP Tl 
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090 NOSGST 



095 SIGN 



**SIGNIF DIGIT ADDR IN AUXST 



SET G02»G06 FIELD NZ 
STORE DIGIT 



TEST S STAT 
STORE FILL 
TEST FOP SIG START 
SIG START S ON 

K FOR NON DECIMAL DIGIT 
BRANCH IF GREATER THAN 9 
CHANGE FF STATE 



TURN S OFF 



CTRT 


003 


CICY 


263 


CICY 


264 


CTRT 


C05 


CTRT 


015 


CTRT 


02 


CTRT 


017 


CTRT 


012 






CTRT 


C22 


CTRT 


017 






CTRT 


032 


CTRT 


030 






CTRT 


033 


CICY 


26 5 


CICY 


26 6 


CTRT 


039 


CTRT 


03 7 






CTRT 


041 


CTRT 


054 






CTRT 


048 


CTRT 


042 






CTRT 


049 


CTRT 


057 






CTRT 


050 


CTRT 


048 







CTRT 


51 


CTRT 


094 


CTRT 


055 


CTRT 


047 


CTRT 


058 


CTRT 


05? 


CTRT 


060 


CTRT 


061 


CTRT 


061 


CTRT 


058 


CTRT 


063 


CTRT 


059 


CTRT 


64 


CTRT 


045 


CTRT 


065 


CTRT 


04 3 


CTRT 


068 


CTRT 


065 


CTRT 


82 


CTRT 


012 


CTRT 


083 


CTRT 


0*6 


CTRT 


085 


CTRT 


071 


CTRT 


86 


CTRT 


069 


CTRT 


090 


CTRT 


084 


CTRT 


095 


CTRT 


092 


CTRT 


098 


CTRT 


095 


CTRT 


0^9 


CTRT 


097 



********************************** 
* CROSS REFERENCE FOR CSECT CTRT * 

3$C $1$C Hfifa 3^C 3$C S^C 3$C 3^C jifc ^C 3$C ^C 3^f 3$C 3$C 3$C 3^C 3$? 3^C 3$C 30C 3^C 3$C 2$SJ$*3$C3$C$J$C2$C)$C}fc 
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CTRT 101 



CTRT 073 



CTRT 08 8 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 








DCHN 


001 


T 




CHANNEL 


INTERRUPT ROUT I 






DCHN 


038 


* 














DCHN 


039 


* 














DCHN 


040 


* 










23F2 


5602 


DCHN 


041 


ENTRY 






RDH DA,BA 




23F4 


1773 


DCHN 


053 








D1=D1*-K07 




23F6 


57B5 


DCHN 


059 


NTCNTR 






T1=D1XL 




23F8 


1B33 


DCHN 


060 








T1=T1*-K08 ** 


A 


23FA 


3BB5 


DCHN 


061 








T1=T1$KB0 




23FC 


5BA0 


OCHN 
DCHN 
DCHN 


063 
064 
065 


* 
* 






RDB Tl AS,T+0 


* 


23FE 


5 46 8 


DCHN 


073 








RDH G AS,D+2 




2400 


C251 


DCHN 


074 




112 


ZUNSTA 


BR IF D04=l 




2402 


B44A 


DCHN 


075 




DPTT 089 


RESINS 


BAL ** GO RST 


S 


2404 


4052 


DCHN 


076 








ROH U DC,9A 




2406 


4206 


DCHN 


077 








V=U 




2408 


D146 


DCHN 


07 8 




107 


INAINT 


BR IF Gl BIT5; 


=0 


240A 


C110 


DCHN 


07 9 




08 2 


NOPCI 


BR IF Gl BIT4^ 


= 


240C 


3 48 5 


DCHN 


080 








G0=G0*K80 




240 E 


1 583 


OCHN 


081 








G1=G1*-K08 




2410 


5 56 A 


DCHN 


082 


NOPCI 






RDB Gl AS,D-1 




2412 


D119 


DCHN 


083 




036 


DEVEND 


BR IF Gl BIT5 = 


= 1 


2414 


C118 


DCHN 


084 




086 


DEVEND 


BR IF Gl BIT4 = 


=0 


2416 


3085 


DCHN 


08 5 








U0=U0$K80 




2418 


5666 


DCHN 


086 


DEVEND 






D=D-1 




241 A 


7068 


DCHN 


08 7 








STH U AS,D+2 




241C 


7160 


DCHN 


08 3 








STB Ul AS,D+0 




241E 


176B 


DCHN 


08 9 


PCISS 






D1 = DKK06 




2420 


5068 


DCHN 


0^0 








RDH U AS,D+2 




2422 


5260 


DCHN 


09 1 








RDH V AS,D+C 




2424 


021 E 


DCHN 


092 








RST MMSK K=71 




2426 


0080 


DCHN 


09 3 


CSWST 






RST S4 




242 8 


55E9 


DCHN 


094 


DEALON 






H0=G1 




242A 


5F59 


DCHN 


09 5 








G1 = H1 




242C 


5 4F9 


OCHN 


096 








H 1 = GO 




242E 


5B4 9 


DCHN 


097 








G0 = T1 




2430 


D235 


DCHN 


09 8 




100 


COMTIO 


BR IF DQ5=l 




2432 


3000 


DCHN 


099 








SET SO 




2434 


2400 


DCHN 


100 


COMTIO 






SET MODE K=OG 




2436 


CIC3 


DCHN 


1C1 




120 


STAT 


BR IF S4=l 




2438 


AOOE 


DCHN 


10 2 




CCOM 110 


FULCSW 


BAL 




243A 


54B9 


DCHN 


10 3 


F INISH 






T1 = G0 




243C 


5 5F9 


DCHN 


104 


FRMFIL 






H1 = G1 




243E 


213 5 


DCHN 


105 


USECQM 






U1=0$K30 




2440 


8A00 


DCHN 


106 




BPSW 00 5 


ENTRYB 


BR 




2446 


5560 


DCHN 


107 


1NAINT 






RDB Gl AS,D+0 




2448 


716A 


DCHN 


108 








STB Ul AS,D-1 




244A 


7060 


DCHN 


109 








STH U AS,D+0 




244C 


2080 


DCHN 


110 








SET S4 




244E 


A428 


DCHN 


111 




094 


DEALON 


BR 





CL0AD=*E60t 

COMMENTS 
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NE 



THIS IS THE E 

ALL CHNL I 

THE BSWI RO 

RD OUT CHNL 

SET UCW ADR TO 

T=COCX 

UX 84=1403, B5=2540R, 
T=00B4,5,6 OR 

* T IS POINTED AT — 
WHICH I SI 40 
UNIT ADORE 
READ OUT CHNL 
BR IF PCI 

7, INT BUFFER BIT AND 
READ ZERO* S IN 
MAKE V=0000 
BR IF NOT ACTI 
3R IF NO PCI F 
SET PCI BIT IN 
TURN PCI FLAG 
RD UNIT STA IN 
BR IF DEVICE E 
BR IF NOT CHAN 
TURN ON SECOND 
SET UCW ADR TO 
STORE 8000 IN 
ZERO OUT UNIT 
SET D TO UCW H 
RD UCW HWD 2 
RD UCW HWD 3 

RST LEVEL 1 
RST DE. ALONE 
MOVE UNIT STAT 
SAVE CPU ADDR 
MOVE CHANNEL S 
SAVE UNIT ADDR 
BR IF COMM. TE 
SET RETURN FLA 
SET CPU MODE 
BR IF DE. ALON 
GO STORE FULL 
RESTORE UNIT A 
RESTORE CPU AD 
STRT TO BUILD 
BR TO STORE OL 
RD OUT UNIT ST 
CLEAR UNIT STA 
STORE 0000 IN 
REMEMBER DE. A 
GO MOVE STATUS 



NTRY POINT FOR 
/O INTERRUPTS FROM 
UTINE 

INT BUFFER 
HWD 

B6=2540P, 87=1052 

7 

B4,B5,B6,0RB7 

3,2540R,2540P,1052 

SSES IN ORDER ABOVE 

STA/OP-FLGS 



SEC. 


TO U 


VE 


LAG 


CHANNEL STATUS 


OFF 


TO Gl 


NO 


NEL END 


ARY BIT 


HWD 


UCW HWD 


STATUS 


WD 2 


TRAP LOCKOUT 


FLAG 


US 


BYTE 


TATUS 


ESS 


ST I/O 


G 


E 


csw 


DDRESS 


DRESS BYTE 


ADR OF I/O OLD PSW 


D PSW 


ATUS FROM UCW 


TUS 


UCW HWD 


LONE 


FOR STATUS-CSCSW 



ADDR 

2450 
2452 
2454 
2456 
2458 
245A 
245C 
245E 
2442 
2444 
19F6 
19F8 
19FA 
19FC 
19FE 
158C 
15BE 
15C0 



WORD SEQUENCE NO, 



5666 
0010 
1583 
1413 
746 8 
2485 
2 50 5 
A41E 
A01E 
A43A 
2 400 
2A0 7 
C3FE 
A 706 
AA76 
2400 
2C75 
9 9F3 



DCHN 
DCHN 
DCHN 
DCHN 
DCHN 
DCHN 
DCHN 
DCHN 
DCHN 
OCHN 
DCHN 
DCHN 
DCHN 
DCHN 
DCHN 
DCHN 
DCHN 
DCHN 



DCHN 


041 


BSWI 


151 


DCHN 


082 


OCHN 


079 


DCHN 


086 


OCHN 


08 3 


DCHN 


089 


DCHN 


119 


DCHN 


094 


DCHN 


1 11 


DCHN 


100 


DCHN 


098 


DCHN 


103 


DCHN 


121 


DCHN 


104 


FINT 


044 


DCHN 


105 


DCLT 


045 


DCHN 


107 


DCHN 


07 8 


DCHN 


112 


DCHN 


074 


DCHN 


120 


OCHN 


101 


DCHN 


122 


OCLC 


2C8 


DC HN 


123 


DCHN 


12 9 


DCHN 


126 


DCHN 


124 


DCHN 


127 


DCLA 


133 


DCHN 


128 


DC LA 


047 



112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 



LABEL 
ZUNSTA 



NEXTSEQ 



STAT 

MODRST 
CICRTN 



NOTIPL 
CC3SET 
CC3 



CCOM 



DCLL 
CICY 



089 
12 3 
103 



12 6 

02 5 

004 



DCHN 084 



NEXTLABEL STATEMENT 

D = D-1 

RST S7 

G1=G1*-K08 

G0=G0*-K01 

STH G AStD+2 

G0=0$K80 

G1=0$K00 
PCISS BR 

STATOS BAL 

FINISH BR 

SET MODE K=00 

T0 = 
NOTIPL BR IF BA BIT4=0 

IPLSTP BR 

CHECK BR 

SET MODE K=00 

P0=0$K70 

BR 

* CROSS REFERENCE FOR CSECT DCHN * 



CL0AD=*E60, 
COMMENTS 



1 
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DECR D TO UCW BYTE 

RST CHAN-0 INT 
RST PCI FLAG 

RST INT BUFFER BIT 
STORE UPDATED CH STA/OP-FLGS 
SET PCI ALONE 
SET 00 UNIT STATUS 



GO 
GO 



BR 
GO 



STORE STATUS AND 
TAKE INTERRUPT 



ZERO CSW 



IF 

TO 



NOT 
IPL 



IPL 
STOP 



123 CICRTN 



DCLA 173 



DCLA — I/O INSTRUCTIONS ROUTINE 
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ENTRY POINTS 



DESCRIPTION 



IOINST — 



UADRI D -- 



MAJOR ENTRY &OINT FOR DCLA. ENTRY IS FROM 
I-CYCLES AFTER ONE OF THE FOLLOWING I/O 
INSTRUCTIONS IS DECODED — START I/O, TEST I/O, 
HALT I/O, OR TEST CHANNEL. 



DYPADD 



FROM I PL ROUTINE. I PL IS 
AND USES -DCLA- FOR THE 
TO GET THE UNIT ADDRESS. 



A SIMULATED START I/O, 
SAME PURPOSE, I.E. , 



HOHO , STORO — FROM PR-KS OR ICA ROUTINES. 
THESE ENTRIES ARE USED TO SHAPE THE TESTING OF 
DEVICE FLAGS WHEN A PR-KB OR COMMUNICATIONS 
HALT I/O INSTRUCTION IS IN PROCESS. 



OBJECTIVES 



I/O INSTRUCTIONS ARE DECODED IN TH 
-CICY- , CAUSING A BRANCH TO -DCL 

IN -DCLA- , A CHECK IS MADE TO 
OPS ARE PERMISSABLE, I.E. , SUPERV 
CONDITION CODE IS INITIALIZED TO 
LATER IF THE I/O UNIT IS BUSY. FO 
CAW IS FETCHED AND CHECKED. FOR AL 
THE CHANNEL IS IDENTIFIED. WHEN C 
THE ROUTINE BREAKS OUT TO EITHER T 
ROUTINES IF THESE FEATURES ARE PRE 

WHEN CHANNEL IS IDENTIFIED, TH 
IN THE REGISTER USED TO HOLD THE N 
UCW ADDRESS IS GENERATED, THEN THE 
TO ANOTHER ROUTINE ON THE BASIS OF 
TYPE, AND ACTIVITY STATUS. 



E I-CYCLES ROUTINE 
A- . 

ENSURE THAT 

ISOR STATE. 

— THIS IS 

R START I/O 



PRIVELEGED 

THE 
CHANGED 
ONLY, THE 



L I/O INSTRUCTIONS, 
HANNEL 1 IS IDENTIFIED, 
HE FILE OR BURST CHANNEL 
SENT. 

E ACTIVE BIT IS SET ON 
EW FLAGS/OP BYTE. THE 
MICROPROGRAM BRANCHES 
THE OP CODE, DEVICE 



1. FOR START I/O, FETCH AND CHECK CAW. 

2. GENERATE UCW ADDRESS. 

3. EXIT EITHER TO DO THE OPERATION REQUIRED, OR TO RETURN 

TO I-CYCLES AFTER SETTING THE CONDITION CODE. 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMFNT 


COMMENTS 








DCLA 


001 


T 


I/O INSTRUCTIONS 


H.E.BERKFBILE 




0886 


10CE 


DCLA 


00? 


IOINST 








RST S K=FC 


RST S REG BITS THRU 5 


0888 


F90C 


DCLA 


00 3 






005 


SUPVSR 


BR IF PI 7=0 


BR IF SUPERVISOR MODE 


088A 


ADFC 


DCLA 


004 




CICY 


079 


PRI VOP 


BR 






088C 


2C07 


DCLA 


00 5 


SUPVSR 








P0=0 


SET COND. CODE 




0B8E 


2B45 


DCLA 


006 










T1=0$K40 






0890 


3B83 


DCLA 


007 










T1=T1$K08 


SET UP CAW ADDRESS 




089 2 


46A6 


DCLA 


00 8 










D=T 


D = 0048 START OF 


UCW 


0894 


17FD 


OC.LA 


009 










D1 = DKKF0 


D=00B8 




0896 


804F 


DCL A 


010 






Oil 


IOOP N 


N-=G0 BITS67 


BR ON OP 




0F40 


8 93 8 


DCLA 


Oil 


I 00 P G 




069 


STRTIO 


BR 


START I/O 




0F4?. 


8 94E 


DCLA 


012 


I OOP 1 




09 5 


UADRI D 


BR 


TEST I/O 




0F44 


894E 


DCLA 


013 


IOOP 2 




09 5 


UADRI D 


BR 


HALT I/O 




0F46 


5 00 9 


DCLA 


014 


I OOP 3 








U0=U0 


TEST CHANNEL 




OF 4 8 


C4D0 


DCLA 


018 






044 


NOTCHO 


BR IF ZNZ 


BR IF NOT CHNL 




0F4A 


C7CF 


DCLA 


020 


:hnlot 




042 


CC1T 


BR IF 8A BITC=1 


BR IF CHNL IB IS 


ON 


CF4C 


81CC 


DCLA 


041 


CC0T 


CCOM 


155 


CCOB 


8R 


SET CC=0 




0F4E 


AEOO 


DCLA 


04? 


CC1T 


CCOM 


158 


CC1B 


BR 


SET CC=1 




0F50 


. 001B 


DCLA 


044 


• NOTCH0 








Z=U0<K01 






0F52 


C4D7 


DCLA 


04 5 






049 


CHNL1T 


BR IF Z=0 


BR IF NOT CHNL 1 




0F54 


95BE 


DCLA 


047 


CC3T 


DCHN 


128 


CC3 


BR 


BR TO SET CDN CODE 


3 


0F56 


2486 


DCLA 


049 


CHNL1T 








SET MODE K=38 


SET CHANNEL MODE 




0F58 


D8CF 


DCLA 


050 






04 2 


CC1T 


BR IF GS BIT5=1 


BR IF CHAN INT. IS 


ON 


0F5A 


2480 


DCLA 


05 8 










SET MODE K=08 


SET FILE MODE 




0F5C 


F9CF 


DCLA 


059 






042 


CC1T 


BR IF FFI6=1 


BR IF ANY FILE INT, 


. IS 


0F5E 


5632 


DCLA 


064 










RDH D DA,8E 


GET STATS 




OF 60 


C64C 


DCLA 


06 5 






041 


CCOT 


BR IF DO BITO=0 


8R IF ACTIVE OFF 





ADDR 



ON 



ADDR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CL0AD=*E60, 
COMMENTS 
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0F62 

0938 
093A 
093C 
093E 
0940 
0942 
0944 
0946 
0948 
094A 
094C 

094E 
0950 
09 5? 
0954 
0956 
0958 
095A 
095C 
095E 
0960 
0962 
0964 
0880 
0882 
0884 
0966 
0968 



0A7A 
0A7C 
0A7E 
0A80 
0A82 
0A84 
0A86 
0A88 

0A8A 
035C 



A EC A 

5EB8 
7EF2 
0EF5 
FCC 3 
B042 
A 84 3 
52BA 
C249 
F4C1 
38 3 
FOCO 

5 00 9 
C4D4 
8A7A 
001B 
C4E8 
5632 
2BA1 
5FAA 
5FE1 
6F11 
E0E7 
8011 
AFF2 
9C2 8 
A25E 
847C 
95BC 



2 543 
4E66 

1FCB 
2710 
5BE8 
6B11 
C48D 
DB01 

9 5BC 

8A8C 



DCLA 
DCLA 

OCLA 
DCLA 
OCLA 
DCLA 
DCLA 
OCLA 
OCLA 
DCLA 
DCLA 
DCLA 
DCLA 
OCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
OCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
OCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
OCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
DCLA 
OCLA 
DCLA 



066 
068 
069 
071 
072 
073 
074 
075 
081 
089 
0<H 
092 
09 3 
094 
09 5 

09 6 
097 
099 
100 
105 

10 7 
10 8 
109 
110 
111 
120 
121 
122 
123 
125 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
171 
173 
228 
246 
247 



STRTIO 



PROG 
HI ADDR 
RDCAW 



UADRID 

NCHNLO 
CHLFIL 



RRSTOP 

BRSTOP 

BRSTOP 

FILE 

CC3S 



* 

* 



CHNLO 



RDNADR 



CCOM 162 CC2B 

BEGIN REAOOUT A 



075 HIADDR 
DCLR 008 PGESTT 

074 PROG N 



074 PROG 

074 PROG 
IDENTIFY THE CH 

099 NCHNLO 
141 CHNLO 

133 CC3S 



DCLB 
DCLT 
DCLH 
FILE 
DCHN 



12 
12 
00 
00 

00 
00 
12 
BEG 
FOR 
WRI 
NEL 
UNI 
SUB 
Q,U 



5 
1 
4 
3 

4 

8 

7 
IN 



FIL 

BRS 
CCW 
TES 

ENT 
ENT 
CC3 
CON 



N 



NATIV 
TER, 
, 20XX 
CATION 
CHANNE 
l,U2,U 



E 

TOP 

BUR 

TIO 

RY 

RY 

SET 

STRUCT 

E. READ 

0F8. 

XX 
S, XX = 
LS, XX 
3*0, Q» 



BR 
ND CHECK OF CAW FOR ST 

RDH H T+2 

STH H DA, BE 

Z=HO*-KFO 

BR IF LZ=0 

BR 

BR IF Hl^NZ 

RDH V T-2 

Z=V0+K40 

BR IF AC=1 

Z=V1*-K08 

BR IF LZNZ 
ANNEL FOR START 1-0, T 

UO=UO 

BR IF ZNZ 

BR 

Z=U0<K01 

BR IF ZNZ 

RDH D DA,8E 

T1=0-K0A 

ROB HI AS,T-l 

H0=H1X 

H1 = HKU1 

BR IF HZ=0 

N=GO BITS67 

BR 

BR 

BR 

BR 

BR 
ION OF UCW ADORE 
ER, 00 08. FOR N 
FOR NATIVE COMMU 
IS DERIVED FROM 



ART 1-0. 

READ 1ST HW OF CAW 

SAVE THE KEY 

MASK LOW 4 BITS OF KEY BYTE 

BR IF LO 4 BITS OF KEY BYTE=0 

BAD CAW — PROG CHECK 

BR IF HIGH ADDR NON ZFRO 

READ CCW ADDRESS 

BR IF CCW ADR OVER MEMORY SIZE 
CHK FOR 8 BOUNDARY 

EST 1-0, AND HALT 1-0. 

BR IF NOT CHNL 



SS IN 

ATIVE 

NICATI 

UNIT A 

,0,0. 

0,0,0. 



MOT I PL 

OPERNL 



* 



25 1 TESACT 
144 RDNADR 
AT THIS POINT, 
DCHN 12 7 CC3SET 
251 TESACT 
FORMATION OF TH 
ROUTINES ON THE 



U3,U4,U5,U6,U7,0 
=U4,U5,U6,U7,U3, 
0,0. 

G1=0$K04 

H=D 

H1 = HKK0C 

Dl=Dl+K10 

ROB Tl AS,H+1 ** AUX- 

T1=TKU1 

BR IF Z=0 

BR IF H15=l 
EITHER COMMUNICATIONS 

BR 

BR 
E UCW ADDRESS IS COMPL 

BASIS OF OP CODE, DEV 



BR IF NOT CHNL 1 

RD STATS INTO D 

T=0GF5 

RD OUT CONTROL UNIT ADR OF FILE 

MOVE CROSSED CU ADDR TO BACK-UP 

COMPARE FIRST CU ADDRESS 

BR IF CU ADDR MATCH 

BURST CHNL — BR ON OP BYTE 

START I/O-BR TO CCW FETCH RTNE 

TEST I/O 

HALT I/O 

BR TO 2311 ROUTINE 

D0/D1. FOR NATIVE PRINTER, 00C8, 
PUNCH, 00E8. FOR NATIVE TYPE- 
ONS, 80XX. FOR NON-NATIVE CHAN- 
DDRESS, THUSLY — FOR NATIVE COMM- 
FOR OTHER (NON-NATIVE) SINGLE 
FOR SHARED SUBCHANNELS, XX= 

SET ACTIVE BIT 

H=00B8 

H=00B4 

D=00C8 1ST UCW ADDRESSS 

B4= PRINT, READER, PUNCH, 1052 
CHECK FOR 

MATCH 
BR IF NOT FINISHED 
OR NON-NATIVE. 



ETE. NEXT, BREAK OUT TO OTHER 
ICE TYPE, ACTIVITY STATUS, ETC. 
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ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


COMMENTS 


0A8C 


5E60 


DCLA 


251 


TESACT 








RDH H AS,D+0 


RD UCW FIRST HW 


0A8E 


E024 


DCLA 


253 






30 5 


NOHALB 


BR IF G06=0 


BR IF NOT HALT I/O 


0A90 


8F7A 


DCLA 


274 


HALTRP 


ERRQ 


08 2 


RDCHST 


BAL ** GO GET CHAN. AND UNIT STATUS IN G,H 


CA92 


07FD 


DCLA 


275 










Z = DKKFO 


LOOK FOR 1052 


0A94 


EOCC 


DCLA 


276 






278 


DYPADD 


BR IF HZNZ 


BR IF OTHER NATIVE 


0A96 


A46C 


DCLA 


27 7 




DYPE 


221 


HLTTW 


BR 




OACO 


D518 


DCLA 


278 


DYPADD 




282 


VANSOI 


BR IF Gll=0 


BRANCH IF NOT CHAINED 


OAC2 


15C5 


DCLA 


279 


HOHO 








Gl=Gl*-KCO 


RST CDA AND CC FLAGS 


0AC4 


7460 


DCLA 


280 










STH G AS,D+0 


STORE UPDATED CH STAT IN UCW 


0AC6 


8A9F 


DCLA 


281 






285 


STORO 


BR 




0A98 


C41E 


DCLA 


282 


VAN SO I 




285 


STORO 


BR IF GOC=0 


BR IF NO SECONDARY 


0A9A 


0123 


DCLA 


283 






287 


GOB AC K 


BR IF G15=l 


BR IF ACTIVE 


0A9C 


DA2 3 


DCLA 


284 






287 


GOBACK 


BR IF H05=l 


BR IF DEVICE END 


0A9E 


4E52 


DCLA 


285 


STORO 








RDH H DC,9A 


READ ZERO CONSTANT INTO H 


OAAO 


A030 


DCLA 


286 




CCOM 


135 


STATUS 


BR 


STORE STATUS C SW 


OAA2 


8 IOC 


DCLA 


287 


SOBACK 


CCOM 


155 


CCOB 


BR 


SET CCO 


OAA4 


F037 


DCLA 


305 


NOHALB 




354 


TIOBR 


BR IF G07=l 


BR IF TEST I/O 


0AA6 


0B35 


DCLA 


30 6 






36 9 


CC2 


BR IF HI BIT5=1 


BR ON ACTIVE BIT 


0AA8 


CE3F 


DCLA 


320 






36 8 


NOTTES 


BR IF H00=1 


BR IF SEC. ON 


OAAA 


5 66 9 


DCLA 


324 


CCHCCW 








D0 = D0 




OAAC 


E0B1 


DCLA 


325 






327 


DCLBBR 


8R IF HZ=C 


BR IF NATIVE 


OAAE 


8 IF 8 


DCLA 


32 6 






40 2 


BURKEY 


BAL 


GO SET UP THE KEY 


0A80 


3 773 


DCLA 


327 


DCLBBR 








D1=D1$KC7 


SET D TO UCW HWD 


CAB 2 


9 5F4 


DCLA 


329 




OCLB 


081 


RDHWl 


BR 




0AB6 


DB3C 


DCLA 


354 


TIOBR 




36 7 


SETIT 


BR IF HI 5=0 ** 3R 


IF NAT. IS NOT ACTIVE 


0AB8 


CE34 


DCLA 


365 






369 


CC2 


BR IF H00=0 


SET BUSY IF NO CHAN. END 


OABA 


DF3 5 


DCLA 


366 






369 


CC2 


BR IF HI 1=1 


BR IF STILL CHAINED — SET BUSY 


OABC 


3613 


DCLA 


367 


SETIT 








D0=D0$K01 


REMEMBER TEST 10 FOR NATIVES 


OABE 


8765 


DCLA 


368 


NOTTES 




39 2 


INASIO N 


N=Dl BITS2 3 ** GO 


TO NAT. TEST I/O START-SEC. ON 


OAB4 


A EC A 


DCLA 


369 


:c2 


CCOM 


162 


CC2B 


BR 


SET CC=2 






DCLA 


390 


# 


BREAKOUT BY DEVICE, FOR START 1-0, 


, ACTIVE=0, SECONDARY* 1. 


0A60 


8 CCS 


DCLA 


39 2 


INASIO 


DPTT 


00 6 


TESTOO 


BR 


PR, SEC BIT = 1 START I/O 


QA62 


9F24 


DCLA 


394 


INASIO 1 


ERRQ 


004 


REDUC 


BR 


RD.SEC BIT=1, START 10 OR TIO 


0A64 


9F24 


DCLA 


395 


INASIO 2 


ERRQ 


004 


REDUC 


BR 


PU,SEC BIT=1, START 10 OR TIO 


0A66 


B31C 


DCLA 


400 


INASIO 3 


DYPE 


202 


TWSEC7 


BR 


TW,SEC BIT=1, START 10 


01F8 


52FF 


DCLA 


402 


BUPKEY 








H1=STPC 


H1=CURPENT CPU KEY 


OlFA 


526C 


DCLA 


40 3 










ISK STPO AS, 0+2 


READ OUT CHNL/COMM KEYS 


OlFC 


52EF 


DCLA 


404 










H0=STP0 


H0= CHNL/COMM KEYS 


OlFE 


51F2 


DCLA 


405 










ROB Ul DA, BE 


READ OUT NEW KEY 


0200 


C606 


DCLA 


410 






42 2 


MPXKEY 


BR IF 000=0 


BR IF MPX CHNL 


0202 


41E5 


DCLA 


412 










H0=U1XL$H0H 


OR OLD MPX AND NEW COMM KEYS 


0204 


C6C9 


DCLA 


41 6 






42 3 


KEYOR 


BR IF 000=1 


UNC BR 


0206 


41EB 


DCLA 


422 


' MPXKEY 








H0=U1H+H0L 


OR OLD COMM AND NEW MPX KEYS 


0208 


42EF 


DCLA 


42 3 


KEYOR 








STPO=H0 


MOVE UPDATED KEY TO STPO 


020A 


536C 


DCLA 


42 4 










SSK STP1 AS,D+1 


STORE UPDATED KEY IN STP1 


020C 


42FF 


DCLA 


42 5 










STP0=H1 


RESTORE CPU KEY 


020E 


128E 


DCLA 


426 










RTN 





OCLA 


002 


CICY 


24 7 


CICY 


248 


CICY 


249 


OCLA 


005 


DCLA 


003 










OCLA 


Oil 


DCLA 


010 










OCLA 


041 


DCLA 


065 










DCLA 


04? 


DCLA 


020 


DCLA 


050 


DCLA 


059 


DCLA 


044 


DCLA 


018 










DCLA 


049 


DCLA 


045 










DCLA 


069 


DCLA 


Oil 










DCLA 


74 


DCLA 


075 


DCLA 


091 


DCLA 


093 


DCLA 


075 


DCLA 


073 










DCLA 


095 


DCLA 


012 


DCLA 


013 


DCLL 


018 


DCLA 


099 


DCLA 


096 










DCLA 


121 


DCLA 


120 










DCLA 


125 


DCLA 


111 










DCLA 


133 


DCLA 


100 










DCLA 


141 


DCLA 


097 










DCLA 


144 


DCLA 


14R 










DCLA 


251 


DCLA 


147 


DCLA 


228 






DCLA 


2 78 


DCLA 


276 


DYPE 


23 6 






DCLA 


?79 


DYPE 


231 










DCLA 


28? 


DCLA 


278 










DCLA 


285 


DCLA 


231 


DCLA 


282 


DYPE 


227 


DCLA 


287 


OCLA 


283 


DCLA 


284 






DCLA 


305 


DCLA 


253 










DCLA 


327 


DCLA 


325 










DCLA 


3 54 


OCLA 


30 5 










DCLA 


367 


DCLA 


354 










DCLA 


368 


DCLA 


3 2 










DCLA 


369 


DCLA 


306 


DCLA 


36 5 


DCLA 


366 


DCLA 


392 


DCLA 


368 










DCLA 


402 


DCLA 


326 


DCLB 


015 






DCLA 


422 


DCLA 


410 










DCLA 


423 


DCLA 


416 











CICY 



jfc $$$$ $£&$$$ $&$$$$)!? $$$&#$$ 2<e$$^c$$$$$ 

* CROSS REFERENCE FOR CSECT DCLA * 
250 
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CCW FETCH AND CHFCK ROUTINE 

THE -DCLB- ROUTINE READS AND CHECKS THE CCW'S FOR IPL, 
START I/O, COMMAND CHAINING, AND DATA CHAINING. THE 
ROUTINE IS VERSIONED ACCORDING TO THE CHANNEL FEATURE 
SELECTED FOR THE CONTROL-STORAGE LOAD, I.E., EITHER 
CHANNEL -- BYTE MODE, OR CHANNEL 1 -- BURST MODE. 

ENTRIES 

CCW BUR — BURST MODE ENTRY FROM START I/O OP I PL. THIS 

PORTION OF THE ROUTINE SETS THE INITIAL SELECT 

LATCH AND SETS AN INDICATOR BIT IF THE DEVICE 
IS BUFFERED. 

COMCHN — COMMUNICATIONS CHAINING ENTRY. 

CHAIN — NATIVE I/O OR BYTE MODE CHAINING ENTRY. 

CDACOM — BYTE MODE DATA CHAINING ENTRY. 

ADDR WORD SEQUENCE NO. LABEL NEXTSEQ NEXTLABEL STATEMENT 



ENTRY POINTS CONTINUED 

SKIP — BURST MODE ENTRY TO INCREMENT CCW ADDRESS BY 8 

BEFORE CHAINING. 
RDHW1X — BURST MODE COMMAND CHAINING ENTRY. 

RDHW1 — BYTE MODE ENTRY FROM START I/O OR IPL. 

BURST MODE ENTRY FOR DATA CHAINING WHEN NEXT 
CCW IS A TIC COMMAND. 

NOTIC — BURST MODE ENTRY FROM LOW-PRIORITY TRAP ROUTINE 
AFTER DETECTION OF AN INCORRECT TIC ADDRESS. 
THE CCW ADDRESS IS INCREMENTED IN -DCLB- 
BEFORE BRANCHING TO THE -DCLR- ERROR ROUTINE. 

BSTCDA — ENTRY FROM -DCLR- ERROR ROUTINE TO PERMIT 
RETURN FROM TRAP AFTER DATA CHAINING ERROR. 



COMMENTS 







DCL3 


001 


T 






DCLR 


00 3 


* 


2FF2 


C648 


DCLB 


004 


CCWBUR 


2FF4 


A EC A 


DCLB 


005 


ACTBON 


2FC8 


2045 


DCLB 


006 


INACT 


2FCA 


7022 


DCLB 


00 7 




2FCC 


2 62 5 


DCLB 


010 




2FCE 


2787 


DCLB 


014 




2FDO 


81F8 


DCLB 


015 




2FD2 


2486 


DCLB 


017 




2FD4 


2880 


DCLB 


018 




2FD6 


7212 


DCLB 


019 




2FD8 


2 4F6 


DCLB 


02 




2FDA 


5 62 2 


DCLB 


021 




2FDC 


2 40 7 


DCLB 


022 




2FDE 


2585 


DCLB 


02 3 




2FE0 


3 543 


DCLB 


024 




2FE2 


5 148 


DCLB 


02 5 


MOTFIN 


2FE4 


6 171 


DCLB 


02 6 




2FE6 


C4F7 


DCLB 


02 7 




2FE8 


C16 2 


DCLB 


028 




2FEA 


2 5CB 


DCLB 


029 




2FEC 


F563 


DCLB 


03 




2FEE 


2 50 7 


DCLB 


031 




2FFO 


AFF8 


DCLB 


032 




2FF6 


5651 


DCLB 


033 


MATCH 


2FF8 


5212 


DCLB 


034 


BSTCC 


2FFA 


9 5F4 


DCLB 


035 








DCLB 


037 


* 



CCW FETCH AND CH 
BURST MODE ENTR 
006 INACT 
CCOM 162 CC2B 



DCLA 402 BURKEY 



03 3 MATCH 

025 NOTFIN 

025 NOTFIN 

034 BSTCC 



081 RDHW1 
NATIVE 10 AND BY 



ECK 

Y FR 
BR 
BR 
U0 = 
STH 
D0= 
Dl = 
BAL 
SET 
SET 
STH 
SET 
RDH 
GO- 
Gl = 
Gl= 
RDB 
Ul = 
BR 
BR 
Gl= 
BR 
Gl = 
8R 
Gl = 
RDH 
BR 

TE M 



ROUTINE 

OM START I/O 

IF DO BITO=0 

0$K40 

U DA,8C 
0$K20 
0$K88 

MODE K=38 
GA K=C8 

V DA,8A 
MODE K=3F 
D DA,8C 



0$K80 

G1$KC4 

Ul AS,G+1 
UKD1 
IF Z = 

IF Gl BIT4=0 
Gl+KOC 
IF Gl BIT3=1 


DOX 

V DA,8A 



ODE CHANNEL CHAIN ENTRY 



H.E.BERKEBILE 

BR IF NOT ACTIVE 
SET CC=2 

STORE UNIT I DENT 
SET DO TO BUMP 2 

BAL TO STORE KEY 



HWD IN AUX008C 



SET INL SELECT LTCH 


STORE NEXT CCW ADR IN AUX008A 


SET CHNL MODE AND ZONE 


RD UNIT IDENT HWD INTO D 


SET UP BUFFERED 


DEVICE ADDRESSES TABLE 


ADDRESS - 0084 


READ OUT BUFFERED DEVICE ADDRESS 


LOOK FOR EQUAL ADDRESS 


BR IF EQUAL ADDR 


BR IF ADR NOT REACHED 0088 OR 98 


CHANGE ADDR TO 0094 OR 0GA4 


BR IF ADDR IS 0094 


HAVE REACHED END AND NO MATCH 


CONTINUE WITH CCW FETCH 


Gl=04 ACTIVE 


READ OUT NEXT CCW ADR 



ADDR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E60, 

COMMENTS 
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0CL8 


038 


* 






DCLB 


039 


* 


15CA 


168 3 


DCLB 


043 


CHAIN 


15CC 


3613 


DCLB 


044 


CCWCDA 


15CE 


3 77 3 


DCLB 


045 


CDACOM 


15D0 


5 260 


DCLB 


046 




15D2 


025A 


DCLB 


047 




15D4 


1643 


DCLB 


048 




1506 


3363 


DCLB 


04 9 


SKIP 


15D8 


6224 


DCLB 


050 




15DA 


0249 


DCLB 


058 


RDHW1X 


15DC 


F4C3 


DCLB 


060 




150E 


5038 


DCLB 


061 




15E0 


OOSB 


DCLB 


062 




15E2 


FOFA 


DCLB 


063 








DCLB 


064 


* 


15E4 


5119 


DCLB 


06 5 




15E6 


C4C4 


DCLB 


066 




15E8 


5030 


DCLB 


067 




15EA 


049 


DCLB 


07 5 




15EC 


F4C5 


DCLB 


077 




15EE 


0183 


DCLB 


078 




15F0 


F0C4 


DCLB 


079 




15F2 


4206 


DCLB 


080 




15F4 


5 03 8 


DCLB 


081 


RDHW1 


15F6 


0088 


DCLB 


082 




15F8 


F0C5 


DCLB 


083 




15FA 


5119 


DCLB 


084 


NOTIC 


15FC 


C4C4 


DCLB 


085 




15FE 


5049 


DCLB 


086 




1600 


6224 


DCLB 


08 7 




1602 


5038 


DCLB 


088 




1604 


0083 


DCLB 


089 




1606 


F094 


DCLB 


090 




1608 


C51F 


0CL3 


09 1 




160A 


! 53 7 


DCLB 


09 2 




160C 


F031 


DCLB 


09 3 


ABCD 


160E 


E033 


DCLB 


094 




1610 


C035 


DCLB 


09 5 




1612 


0033 


DCLB 


09 6 




1614 


6224 


DCLB 


097 


PRGERA 


1616 


63 9 


DCLB 


099 


PRGERR 


1618 


3 763 


DCLB 


ICO 




161A 


7 260 


DCLB 


104. 




161C 


B002 


DCLB 


10 5 


PRGERX 


1638 


7212 


DCLB 


107 


BSTPER 


163A 


B002 


DCLB 


108 




15C2 


6224 


DCLB 


110 


PRGERC 


15C4 


6224 


DCLB 


111 


PRGERB 


15C6 


6224 


DCLB 


112 




15C8 


9614 


DCLB 


113 





ENTRY TO FETCH 
TAINS UCW ADDRE 



05 8 RDHW1X 



110 PRGERC 



084 NOTIC 
COMMAND CODE IS 

111 PRGERB 



111 PRGERB 

111 PRGERB 

111 PRGERB 

HI PRGERB 



097 PRGERA 

118 CDABR 

114 OUTCMD 

115 INFCMD 

116 INBCMO 
115 INFCMD 

107 BSTPER 



OCLR 002 PRGERR 
DCLR C02 PRGERR 

097 PRGERA 



A NEW CCW UPON D 
SS, Gl CONTAINS 

D0=D0*-K08 

D0=00$K01 

D1=D1$K07 

RDH V AS,D+0 

BR IF DC 5=0 

D0=D0*-K04 

V1=V1$K06 

V=V+2 

Z=V0+K40 

BR IF AC = 1 

RDH U V+2 

Z=U0<K08 

BR IF LZNZ 

TIC. CHECK AND 

U 1 = U 1 

BR IF ZNZ 

RDH U V+0 

Z=U0+K40 

BR IF AC=i 

Z=U1*-K08 

BR IF LZNZ 

V=U 

RDH U V+2 

Z=U0<K08 

BR IF LZ=0 

U1 = U1 

BR IF ZNZ 

G0=U0 

V=V+2 

RDH U V+2 

Z=U0*-K08 

BR IF LZNZ 

BR IF Gl BIT0=1 

G1=G1*-K33 

BR IF GO 8IT7=1 

BR IF GO BIT6=1 

BR IF GO BIT4=1 
GO 



ATA OR COMMAND CHAINING. DC/D1 CON- 
FLAG AND OP BITS OF PREVIOUS UCW. 

SET "CAME FRM CHAINING" FLAG 
SET 01 TO UCW BYTE 7 
READ NEXT CCW ADR 
BR IF NO COMMU.STAT MOD 
TURN OFF "INCR CCW+8" BIT 
INCREMENT CCW 
ADR BY 8 

BR IF CCW ADR OVER MEMORY 
READ FIRST CCW HW 



BR IF 
V=V + 2 

BR IF 



BIT5=1 



DO BIT1=1 



D1=D1$K06 

STH V AS,D+C 

BR 

STH V DA,8A 

BR 

V=V+2 

V=V+2 

V=V+2 

BR 



BR IF NO TIC 
EXECUTE. 

BR IF CCW BYTE 1=NZ 
READ CCW SECOND HW 

BR IF DATA ADR OVER MEMORY 

CHK FOR VALID TIC ADR 

READ FIRST CCW HW 

CHK FOR VALID TI 

BR IF TIC CCW BYTE 1=NZ 
MOVE COMMAND TO GO 
INCREMENT CCW ADR 
READ CCW THIRD HW 
CHK FOR VALID FLAG 
CHK FOR VALID FLAGS 
CHK FOR DATA CHAIN 
G1=0000X100 
DECODING OF 
THE CCW 

COMMAND 
BYTE 
INCR V TO CORRECT NXT CCW ADR 
BR IF BURST CHNL 
SET D TO UCW HWD 3 
STORE NEXT CCW ADR 

STORE UPDATED NXT CCW ADR 

UPDATE V 

TO CORRECT 

NEXT CCW ADR 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


1630 


153B 


DCL8 


114 


OUTCMD 






G1 = GKK03 


1632 


151B 


OCLB 


115 


INFCMD 






G1 = GKK01 


1634 


153B 


DCL3 


116 


INBCMD 






G1 = GKKC3 


1636 


962 


OCLB 


117 




119 


FLAGOR 


BR 


161E 


2 40 5 


OCLB 


118 


COABR 






GO=0$KCO 


1620 


15F5 


OCLB 


119 


FLAGOR 






G1=G1*-KF0 


1622 


6505 


OCLB 


120 








G1=G1$U0 


1624 


5038 


OCLB 


121 


CHKFLG 






ROH U V+2 


1626 


4006 


OCLB 


122 








U=U 


1628 


C497 


DCL3 


123 




09 9 


PRGERR 


BR IF Z = 


162A 


D63D 


OCLB 


125 




130 


STBURS 


BR IF DO BIT1=1 


16 2 C 


726A 


OCLB 


127 








STH V AS,D-2 


162E 


9 63E 


OCLB 


128 




132 


DECV 


BR 


163C 


7212 


OCLB 


130 


ST BURS 






STH V DA,8A 


163E 


6226 


OCLB 


132 


DECV 






V=V~2 


1640 


1343 


OCLB 


133 








V1=V1*-K04 






OCLB 


134 


# 


LAST 


TO BE FETCHED IS THE DATA ADDR 


1642 


5230 


OCLB 


135 








RDH V V + 






OCLB 


136 


* 


CCW IS NOW ALL 


FETCHED, READY TO BE 






OCLB 


137 


* 


CCW OATA DISTIBUTEO AS FOLLOWS — 






OCLB 


13 8 


* 


GO CONTAINS COMMAND CODE (=0 IF DAT 






OCLB 


139 


* 


Gl CONTAINS FLAG/OP BYTE FOR NEW UC 






OCLB 


140 


* 


V0/V1 


CONTAINS 


INITIAL DATA ADDRESS 






OCLB 


141 


* 


UO /Ul 


CONTAINS 


INITIAL COUNT, 






OCLB 


142 


* 


00/01 


CONTAINS 


UCW ADDRESS + 2, 






OCLB 


143 


* 


DO BIT 7=1 IF CURRENT CCW IS NOT FI 






OCLB 


144 


* 


NEXT 


CCW ADDRESS IS IN AUX STORAGE. 


1644 


0659 


OCLB 


146 




215 


CHCCW 


BR IF DC1=1 


1646 


C54A 


DCL3 


148 




174 


NOTNAT 


BR IF Gl BITC=0 


1648 


156 5 


OCLB 


149 








G1=G1*-K60 


164A 


1763 


OCLB 


174 


NOTNAT 






D1=D1*-K06 


164C 


756A 


OCLB 


175 








STB Gl AS,D-1 


164E 


6 66 6 


OCLB 


189 








D = D-2 


1650 


F265 


OCLB 


19C 




194 


CHAKEY 


BR IF 007=1 


1652 


5FF2 


OCLB 


191 








RDB HI DA, BE 


1654 


7F60 


OCLB 


192 








STB HI AS,D 


1656 


9666 


OCLB 


193 




195 


SETKEY 


BR 


1664 


5F60 


OCLB 


194 


CHAKEY 






RDB HI AS,D 


1666 


6664 


OCLB 


195 


SETKEY 






0=0+2 


1668 


42FF 


OCLB 


196 








STPC=H1 


166A 


8 721 


OCLB 


2C3 




245 


NATSIO N 


N=D1 BITS23 






OCLB 


2C4 


* 


IF CHANNEL START 1-0, GO ON TO INIT 






OCLB 


2C5 


* 


IF CHANNEL CMD 


CHAIN, GO ON TO INIT 






OCLB 


206 


* 


IF CHANNEL DAT* 


» CHAIN, OR NATIVE CM 


1658 


A041 


OCLB 


215 


CHCCW 


231 


NOTCOA N 


BR IF GO=NZ 


165A 


C160 


OCLB 


219 




223 


BSTCOA 


BR IF Gl BIT4=0 


165C 


7602 


OCLB 


220 








STH D 0A,88 


165E 


2040 


OCLB 


221 








SET GB K=04 


1660 


1D00 


OCLB 


22 3 


BSTCOA 






RST GB K=80 


1662 


244 


OCLB 


227 








RTN G MMSK2=0 


1040 


80EE 


OCLB 


231 


NOTCDA 


DCLC 014 


ENTRY 


BR 



CL0AD=*E60, 

COMMENTS 



EC LEVEL=128266 PAGE 161 



SET OP BITS 
SET OP BITS 
SET OP BITS 



TO OUTPUT 
TO INP FW 
TO INPBKW 



SET CD INDICATION 
CLEAR HIGH FLAGS 

OR THE OLD AND NEW 
READ CCW FOURTH HW 



FLAGS 



BR IF CCW COUNT=0000 
BR IF BURSTCH 
STORE NEXT CCW 
XXXXXXXXXXMAKE 
STORE NEXT CCW 
DECREMENT V TO 
OF CURRENT CCW 
ESS FIELD OF THE NEW 
READ CCW SECOND HW 
TURNED OVER TO USING 



ADR 

ADDRESSABLE 
ADR 
HWD 1 



CCW 



1-0 ROUTINE. 



A CHAINED TO PRESENT CCW), 
W, 



RST IN CURRENT CHAIN, AND 

BR IF BURST 
BR IF NO CDA FLAG 
ZERO OUT CC AND SL I FLAGS 

STORE UCW FLAGS, OP 

BR IF FROM CHAIN 

GET SAVED CAW KEY-START I/O 

STORE KEY IN UCW 00X6 

GET ASSIGNED KEY FROM UCW 

SET KEY FOR NATIVE 

BR TO OIF NAT 10 STIO 
IAL SELECTION. 

IAL SELECTION, THEN RTN FROM TRAP, 
D OR OATA CHAIN, RETURN FROM TRAP. 

BR IF CMD IS NZ (IF NOT CDA) 

BR IF NO PCI BIT 

STORE UNIT IDENT IN IB 

SET INT BUFFER LATCH 

RST CDA REO LTCH 

RETURN FROM TRAP 

EXIT TO INITIAL SELECTION 



CL0AD=*E60, EC LEVEL=128266 PAGE 162 

ADDR WORD SEQUENCE NO. LABEL NEXTSEQ NEXTLABEL STATEMENT COMMENTS 

DCLB 243 * IF NATIVE START I-O, 8RANCH TO INDIVIDUAL ROUTINES. 

1020 8BF2 DCLB 245 NATSIO OPTS 043 PRSIQ BR PRINTER START I/O SEC BIT=0 

1022 9912 DCLB 247 NATSIO 1 ERDR 053 NRDR BR RDR START 10, SEC BIT=0 

1024 9912 DCLB 248 NATSIO 2 ERDR 053 NRDR BR PCH START 10, SEC BIT=0 

1026 A59A DCLB 253 NATSIO 3 DYPE 114 TW0FF7 BR TW, START 10, SEC BIT=0 

DCLB 257 * ********* emo OF DCHB ( CCW FETCH ROUTINE). ********** 

$***********#********************$ 

* CROSS REFERENCE FOR CSECT DCLB * 



DCLB 


004 


DCLA 


121 






DCLB 


006 


DCLB 


004 






DCLB 


025 


DCLB 


028 


DCLB 


03 


DCLB 


33 


DCLB 


027 






DCLB 


034 


DCLB 


03 2 






DCLB 


043 


DPTP 


074 


ECOL 


070 


DCLB 


049 


DCLC 


164 






DCLB 


058 


DCLB 


047 


DCLC 


165 


DCLB 


81 


DCLA 


^29 


DCLB 


035 


DCLB 


84 


DCLB 


06 3 


DCLF 


02 8 


DCLB 


097 


DCLB 


090 


DCLB 


113 


DCLB 


099 


DCLB 


123 






DCLB 


107 


DCLB 


099 






DCLB 


110 


DCLB 


060 


DCLF 


02 7 


DCLB 


111 


DCLB 


066 


DCLB 


07 7 


DCLB 


114 


DCLR 


09 3 






DCLB 


115 


DCLB 


094 


DCLB 


096 


DCLB 


116 


DCLB 


09 5 






DCLB 


118 


DCLB 


091 






DCLB 


119 


DCLB 


117 






DCLB 


130 


DCLB 


125 






DCLB 


132 


DCLB 


12« 






DCLB 


174 


DCLB 


148 






DCLB 


194 


DCLB 


19^ 






DCLB 


195 


DCLB 


193 






DCLB 


215 


DC LP 


146 






DCLB 


223 


DCLB 


219 


DCLP 


06 6 


DCLB 


231 


DCLB 


215 






DCLB 


245 


DCLB 


20 3 







DCLE 025 



DCLB 079 DCLB 083 DCLS 085 



DCLC DESCRIPTIVE TEXT 



CL0AD=*E60, EC LEVEL=128266 PAGE 163 



CHANNEL INITIAL SELECTION 



THIS ROUTINE PROVIDES THE INITIAL SELECTION SEQUENCE FOR 
DEVICES ATTACHED TO THE STANDARD INTERFACE. THE ROUTINE IS 
VERSTONED ACCORDING TO THE CHANNEL FEATURE* EITHER BYTE 
CHANNEL-O, OR BURST CHANNEL-1. 



BURST CHANNEL ENTRY POINTS 



BYTE CHANNEL ENTRY POINTS 



ENTRY ~ INITIAL SELECTION ENTRY, OR RESELECTION ENTRY 
IF CHAINING, FOR START I/O OR I PL AFTER 
COMPLETING CCW FETCH IN -DCLB- ROUTINE. 



ENTRY — INITIAL SELECTION ENTRY, OR RESELECTION ENTRY 
IF CHAINING, FOR START I/O OR IPL AFTER 
COMPLETING CCW FETCH IN -DCLB- ROUTINE. 



NOPCIB — ENTRY FOR I/O INTERRUPT OR INACTIVE TEST 
I/O TO GET DEVICE ON THE INTERFACE. 



BEGIN — ENTRY TO SELECT THE DEVICE FOR HALT I/O, I/O 

INTERRUPT, OR WHEN A CHANNEL ERROR IS DETECTED, 



HLTFNT — INACTIVE HALT I/O ENTRY TO GET DEVICE ON THE 

INTERFACE. 

ADRABC — FROM CHANNEL LOW-PRIORITY-TRAP STATUS ROUTINE 
-DCLE- TO CONTINUE TESTING STATUS. FROM THIS 
POINT, THE ROUTINE CAN EITHER COMMAND CHAIN, 
TRY TO LOAD THE INTERRUPT BUFFER, OR STORE THE 
CSW. 

ADP11A — FROM -DCLE- STATUS ROUTINE TO TRY LOADING 
THE INTERRUPT BUFFER OR TO STORE THE CSW. 

TRYIBS — FROM -DCLE- STATUS ROUTINE TO TRY LOADING 

THE INTERRUPT BUFFER. 
ADP22A -- ENTRY TO DO A TIMEOUT ON FALL OF OPER AT IONAL- I N , 

THEN EITHER RETURN FROM TRAP OR GO TO I-CYCLES. 



NOCHE — ENTRY FROM LOW-PRI OR I TY-TRAP STATUS ROUTINE 

-DCLE- TO EITHER COMMAND CHAIN OR SET UP FOR 
INTERRUPT. 

IPLCHK 

STATUS — ENTRY FROM -DCLE- STATUS ROUTINE TO SET UP 

FOR INTERRUPT. 

CSWFRM — FROM INTERRUPT ROUTINE OR TEST I/O ROUTINE TO 
PUT TOGETHER CSW. 

ACTPCI — FROM INTERRUPT ROUTINE TO STORE STATUS IN THE 
CSW FOR ACTIVE PCI . 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



COMMENTS 



OOEE 
ODFO 
ODF2 
00F4 
0DF6 



C176 
7602 
2040 
8DF8 
0D40 



DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 



C01 

00 3 
004 
005 
006 
00 7 
008 
0C9 
010 

on 

012 

013 
014 
015 
016 
017 
018 



T 
* 

* 

* 

ASEQ 

ENTRY 



NOPCIB 



360 CHANNEL INITIAL 



AL07=6E 



018 



019 



SELECTION H.E .BERKEBILE 

COUNT FIELD, HIGHORDERBYTE=UO 
COUNT FIELD, LOW ORDER BYTE=U1 
DATA ADDRESS, HIGH ORDER 3YRE=V0 
DATA ADDRESS, LOW ORDER BYTE =V1 
(CMD)=G0 

FLAGS AND OP BYTE =G1 
TIMEOUT COUNTER =D0 
DEVICE ADDRESS =D1 

Gl=0001 0000 I/O INTERRUPT 

0000 TEST I/O 

BR IF NO PCI B IT 

STORE UNIT IDENT IN INT 

SET INT BUFFER LATCH 

RESET IB LTCH 





01=0000 


NOPCI B 


BR IF Gl BIT4=0 




STH D DA, 88 




SET GB K=04 


ENTRY2 


BR 




RST GB K=04 



BUFFER 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 




0DF8 


2B80 


DCLC 


019 


ENTRY 2 






SET GA K=08 




OOFA 


4F7F 


OCLC 


020 


HLTENT 






GB/0UT=D1 




OOFC 


2B84 


DCLC 


021 








SET GA K=28 




OOFF 


2BC4 


DCLC 


022 








SET GA K=2C 




OEOO 


C9DD 


DCLC 


023 


ADR1 


06 9 


OPINUP 


BR IF GT BIT4= 


= 1 


0E02 


FOA1 


DCLC 


024 




03 9 


CUBUSY 


BR IF GT BIT3; 


= 1 


0E04 


262B 


DCLC 


025 








00=DO+K02 




0E06 


E600 


DCLC 


026 




02 3 


ADR1 


BR IF DC BIT2= 


=0 


OE08 


5C3 


DCLC 


027 


SLIN 






Z=G1*-K0C 




OFOA 


F094 


DCLC 


02 8 




03 3 


ADR 23 


BR IF LZNZ 




OEOC 


F514 


DCLC 


02 9 




033 


A OR 28 


BR IF Gl BIT3= 


=0 


OEOE 


2 32 3 


DCLC 


030 








V1=0$K02 




OEIO 


2 20 7 


DCLC 


031 








V0=0 




0E12 


8E3A 


DCLC 


032 




05 2 


ADR33C 


BR 




CE14 


DD9F 


DCLC 


03 3 


ADR28 


038 


INFCHK 


BR IF GT BITl^ 


= 1 


0E16 


2 BOO 


DCLC 


034 


ADR29 




' 


SET GA K=00 




OE18 


F21F 


DCLC 


035 




03 8 


INFCHK 


BR IF DO BIT7= 


= 1 


OE1A 


C3CB 


DCLC 


036 




06 


I PL 00 2 


BR IF BA 8IT4= 


= 1 


OE1C 


A OF 6 


OCLC 


03 7 


ADR 30 


CCOM 166 


CC3B 


BR 




OE1E 


A154 


DCLC 


038 


INFCHK 


DCLR 15 5 


INFCHK 


BR 




0F20 


5F4F 


DCLC 


039 


CUBUSY 






G0=GB/IN 




CE22 


FC9F 


DCLC 


040 




03 8 


INFCHK 


BR IF GS BIT3: 


= 1 


0E24 


2B84 


DCLC 


041 








SET GA K=28 




0E26 


E61F 


DCLC 


042 


ADR10 


03 8 


INFCHK 


BR IF DO BIT2; 


= 1 


0E28 


FDAE 


DCLC 


043 




046 


ADR 9 


BR IF GT BIT3= 


=0 


CE2A 


2 62B 


DCLC 


044 








00=D0+K02 




OE2C 


F0A7 


OCLC 


045 




042 


ADR10 


BR IF GT BIT3= 


= 1 


OE2F 


2B80 


DCLC 


046 


A OR 9 






SET GA K=08 




OE3C 


F21F 


DCLC 


047 




03 8 


INFCHK 


BR IF DO 3IT7= 


= 1 


OE32 


E149 


DCLC 


048 




059 


STRTIO 


BR IF Gl BIT6= 


= 1 


0E34 


F149 


DCLC 


049 




05 9 


STRTIO 


BR IF Gl 8IT7= 


= 1 


0E36 


2307 


DCLC 


050 


ADR33 






V1 = 




0E38 


5429 


DCLC 


051 


ADR33B 






V0=G0 




OE3A 


72A2 


DCLC 


052 


ADR33C 






STH V DA t AC 




0F3C 


2B00 


DCLC 


053 








SET GA K=00 




0E3E 


24C0 


DCLC 


054 


A OR 34 






SET MODE K=00 




0E4C 


5EA2 


DCLC 


055 








RDH H DA, AC 




0E42 


2AC7 


DCLC 


056 








T0=0 




OE44 


A01E 


DCLC 


057 




CCOM 123 


STATOS 


BAL 




OF 46 


9C6A 


DCLC 


058 




DCLT 041 


I NT RT X 


BR 




OE48 


C 3D 8 


DCLC 


059 


STRTIO 


06 7 


ADREBR 


BR IF BA 8IT4= 


=0 


0E4A 


A7D6 


DCLC 


060 


IPLQ02 


DCLL 025 


IPLSTP 


BR 




OE4C 


F537 


DCLC 


061 


A OR 32 


050 


ADR33 


BR IF G13=l 




OE4E 


5449 


DCLC 


062 








G0 = G0 




0E50 


C4B6 


DCLC 


06 3 




05 


ADR33 


BR IF ZNZ 




0E52 


2B00 


DCLC 


064 








SET GA K=00 




0E54 


8 1GC 


DCLC 


065 


ADR 33 A 


CCOM 155 


CCOB 


BR 




0E56 


2B84 


DCLC 


C66 


HALTIO 






SET GA K=28 




0E58 


2307 


DCLC 


067 


ADREBR 






V1 = 




OE5A 


A7B6 


DCLC 


068 




170 


A ORE 


BR 




0E5C 


2BC0 


DCLC 


069 


OPINUP 






SET GA K=0C 





CL0AD=*E60, 

COMMENTS 



EC LEVEL=128266 PAGE 164 



SET INL SELECT LATCH 
PUT ADR ON BUS OUT 
SET ADDR-OUT 

SET SEL-0 AND ADR-0 
BR IF OP IN UP 
BR IF ST A- IN UP 
INCREMENT COUNTER 
BR IF NO TIMEOUT 
MASK Gl BITS6 AND 7 
BR IF START I/O 
BR IF TEST I/O 
SET INTFCE CTRL CHECK 
SET CO UNIT STATUS 

BR IF SEL IN DOWN 

RESET ALL TAGS OUT 

BR IF CHAINED- TO CCW 

BR IF IPL 



BUSS IN TO GO 

BR IF PARITY ERROR 

DROP SEL-OUT,KEEP AOR-OGINL SEL 

BR IF TIMEOUT 

8R IF STA-IN DOWN 

INCREMENT COQNTER 

BR IF STA-IN STILL UP 

DROP ADR-OUT ,KEEP INL SEL ON 

BR IF CHAINED- TO CCW 

BR IF 

START I/O 
SET CO CHANNEL STATUS 
MOVE UNIT STATUS TO VO 
SAVE STATUS 
DROP ALL TAGS OUT 

RESTORE CHANNEL STATUS 

BAL TO RTHE TO STORE CSW 

RTN FROM BAL FOR I/O INT ONLY 

8R IF NOT IPL 

GO TO IPL STOP 

BR IF I/O INTERRUPT 

BR IF STA NZ 

RESET INL SEL 
SET CDN CODE £ RTN TO ICYC 
RAISE ADR-0 AND DROPSEL-0 
CHNL STATUS = 
GO SET I/O INTERRUPT 

RESET ADR-0 



ADDR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CL0AD=*E60, 
COMMENTS 



EC LEVEL=12 8266 PAGE 165 



0E5E 
OE60 
0E62 
0F64 
OF 66 
CE6B 
0E6A 
0E6C 
0E6E 
0E70 
0E7? 
0E74 
0E76 
0E78 

IE86 
IE 88 
1E8A 
1E8C 
IE8E 
1F9C 
1E92 
1F94 
IE 96 
1E98 
1E9A 
1E9C 
1E9E 
IE AC 
1EA2 
1EA4 
1EA6 
1EA8 
1EAA 
1EAC 
1FAE 
1EBC 
1EB2 
1E84 



0442 
0444 

2F70 
2F72 
2F74 
1E84 



0D10 
E61F 
C0E9 
262B 
CDEO 
4F4F 
5F4F 
FC9F 
6471 
C49E 
C54B 
C4D7 
2BC2 
9E86 

F60 5 
FD8F 
2 62 3 
FD86 
5F4F 
FC85 
F12 3 
F12 3 
2B88 
F605 
C9AC 
2 62B 
C999 
8E4C 
C4B6 
F233 

2 DC 4 

3 68 5 
7 63 2 
168 5 
D134 
2 00 2 
1543 
8442 



2B4 8 

AF70 

163 5 
C3F7 
A7AE 
A 154 



OCLC 
OCLC 
PCLC 
OCLC 
OCLC 
DCLC 
OCLC 
DCLC 
OCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
OCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
OCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
DCLC 
OCLC 
DCLC 



070 
071 
072 
073 
074 
075 
076 
077 
078 

07 9 
080 
081 
082 
083 
084 
085 
086 

08 7 
088 
089 
090 
091 
092 
q 3 
094 
095 
096 

09 7 

09 8 
099 
100 
101 
102 
103 
104 
105 
106 
1D7 

10 8 
110 
111 
112 
113 
114 
116 
118 
119 
121 
122 
123 
124 



ADR2 



ADINUP 



AENO 
A OR 3 



STINUP 



TSTIS 
ADR31 



ADR32B 

MOTTST 
ZEROST 



NOBUFF 
^OTBUF 
ATABLE ADDR=0442 

* 







RST GB K=01 


038 


INFCHK 


BR IF DO BIT2=1 


C75 


ADINUP 


BR IF GT BIT0=1 
D0=00+K02 


071 


ADR2 


BR IF GT BIT0=0 

GB/OUT=GO 

GO=GB/IN 


03 8 


INFCHK 


BR IF GS BIT3=1 

G0=G0<D1 


038 


INFCHK 


BR IF ZNZ 

Z=GKK04 


06 6 


HALTIO 


BR IF Z = 
SET GA K=1C 


08 5 


ADR 3 


BR 


124 


INFCKK 


BR IF DO BIT2=1 


089 


STINUP 


BR IF GT BIT3=1 
D0=DC+K02 


08 5 


ADR 3 


BR IF GT BIT3=0 
GO=GB/IN 


124 


INFCKK 


BR IF GS BIT3=1 


099 


NOTTS T 


BR IF Gl BIT6=1 


099 


NOTTST 


BR IF Gl BIT7=1 

SET GA K=48 


124 


INFCKK 


BR IF DC BIT2=1 


C98 


ADR32B 


BR IF GT BIT4=0 

D0=DQ+K02 


094 


ADR31 


BR IF GT BIT4=1 


061 


ADR32 


BR 


126 


NZSTA 


BR IF ZNZ 


107 


NOBUFF 


3R IF DC7=1 
SET GB K=20 
D0=D0$K80 
STH D DA,8E 
00=DO*-K80 


108 


NOTBUF 


BR IF Gl BIT5=0 
SET GB K=10 
G1=G1*-K04 


116 


FAAE1 


BR 


2 




THE FOLLOW 



FAAE1 

AEND 
FAAEEX 
IPLBR 

INFCKK 



121 FAAEEX 



125 IPL001 
20 6 A OR 24 
OCLR 155 INFCHK 



SET 

BR 



GA K=44 



RST SUPR OUT 
BR IF TIMEOUT 
BR IF ADR-IN UP 
INCREMENT COONTER 
BR IF ADR-IN NOT UP Y 
PUT CMD ON BUSS OUT 
PIT DEVICE ADR IN GO 
BR IF PARITY ERROR 
COMPARE ADDRESS 
BR IF ADR MISMATCH 
TEST FOR HALT I/O 
BR IF HLT I/O 

SET CMD-O 



BR IF TIMEOUT 

BR IF STA-IN UP 

INCREMENT COONTER 

BR IF STA-IN NOT UP YET 

G0= STATUS ON BUSS- IN 

BR IF PARITY ERROR 

BR IF 

START I/O 

SET SRV-OUT, INLSELUP 
BR IF TIMEOUT 
BR IF OP-IN DOWN 
INCREMENT TMOUT CNTR 
BR IF OP-IN STILL UP 

BR IF NZ UNIT STATUS 

BR IF CHAINED TO CCW 

TURN ON BURST LATCH 

TURN ON BURSTCH/FILE ACTIVE BIT 

STORE STATS 

RESTORE DO TO ORIGINAL VALUE 

BR IF NOT BUFFERED DEVICE 

TN ON BUF DEV LTCH 
RESET BUFFERED DEV INDICATOR 

ING TWO WORDS HAVE 

FIXED ADDRESSES TO ALLOW A 
CONSTANT PATCH CARD TO BE ADDED 
TO A CSL DECK TO RUN NHW 
DIAGNOSTIC FAAE. 
SET SRV-OUT £ KEEP SEL-OUT UP 



D0=D0*-K3Q 

BR IF BA BIT4=1 

BR 

BR 



RST 2 
BR IF 



HI BITS 
I PL 



OF TIMEOUT CNTR 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


2F76 


8 48 8 


DCLC 


125 


IPL001 


DCLL 019 


IPLWTL 


BR 


1EB6 


C04E 


DCLC 


126 


NZSTA 


13 8 


NOCHE 


BR IF GO BIT4=0 


1EB8 


D03C 


DCLC 


127 




129 


NODE 


BR IF GO BIT5=0 


1EBA 


040 


DCLC 


128 








RST GB K=04 


1EBC 


F44F 


DCLC 


129 


MODE 


138 


NOCHE 


3R IF GO BIT3=1 


1EBE 


2D04 


DCLC 


130 








SET GB K=20 


1EC0 


0148 


DCLC 


131 




135 


NTBFX 


BR IF Gl BIT5=0 


1EC2 


F24 7 


DCLC 


132 




134 


RSTG15 


BR IF DO BIT7=1 


1FC4 


2 00 2 


DCLC 


133 








SET GB K=10 


1EC6 


1543 


DCLC 


134 


RSTG15 






G1=G1*-K04 


1EC8 


2285 


DCLC 


135 


MTBFX 






V0=0$K80 


1ECA 


2 30 7 


DCLC 


136 








V1 = Q 


1ECC 


7232 


DCLC 


137 








STH V DA,8E 


1ECE 


2307 


DCLC 


138 


NOCHE 






V1 = 


1EDO 


C55F 


DCLC 


139 




146 


CCFLON 


BR IF Gl BIT0=1 


1ED2 


D560 


DCLC 


140 


ADR ABC 


147 


A DR 1 1 


BR IF Gl BIT1=0 


1ED4 


04C7 


DCLC 


141 








Z=GO*-KCC 


1ED6 


C4EC 


DCLC 


142 




147 


ADR11 


BR IF ZNZ 


lens 


C461 


DCLC 


143 




147 


ADR 11 


BR IF GO BIT0=1 


1EOA 


006 5 


DCLC 


144 




154 


D EC HT P 


BR IF GO BIT5=1 


1EDC 


C07B 


DCLC 


145 




149 


ADR 12 


BR IF GO BIT4=1 


1ED»= 


15C5 


DCLC 


146 


CCFLON 






G1=G1*-KC0 


1EEO 


0010 


DCLC 


14 7 


ADR 11 






RST GB K=01 


1EE2 


A782 


DCLC 


148 




166 


ADR11A 


BR ** TO NOT 


1EFA 


2 010 


DCLC 


149 


ADR 12 






SET GB K=01 


1EFC 


2B4 8 


DCLC 


150 








SET GA K=44 


IEFE 


2 40 5 


DCLC 


151 








GO=0$KOO 


1FCO 


1 573 


DCLC 


152 








G1 = G1*.-K07 


1F02 


AF72 


DCLC 


153 




122 


I PL BR 


BR 


1EE4 


2D10 


DCLC 


154 


DECHTP 






SET G3 K=01 


1EE6 


2 88 8 


DCLC 


155 








SET GA K=48 


IEE8 


E60 5 


DCLC 


156 


ADR15 


124 


INFCKK 


BR IF 00 BIT2=1 


1EEA 


C9FQ 


DCLC 


157 




160 


A0R14 


BR IF GT BIT4=0 


IF EC 


2 62B 


DCLC 


15 8 








D0=D0+KO2 


IEEE 


C9E9 


DCLC 


159 




156 


A OR 15 


BR IF GT BIT4=1 


1FFO 


2 645 


DCLC 


160 


ADR14 






D0=0$K4C 


1EF2 


3613 


DCLC 


161 








D0=D0$K01 


1EF4 


5212 


DCLC 


162 








RDH V DA, 84 


1EF6 


40 2 


DCLC 


163 




165 


NOINCR 


BR IF GO BIT 1=0 


1EF8 


9506 


DCLC 


164 




DCLB 04 9 


SKIP 


BR 


1E82 


9 50 A 


DCLC 


165 


H 01 NCR 


DCLB 05 8 


RDHW1X 


8R 


2782 


C3B2 


DCLC 


166 


ADR11A 


168 


NTIPL2 


BR IF BA BIT4=C 


2784 


A70C 


DCLC 


167 




DCLL 028 


IPLSTB 


BR 


27B2 


F20 9 


DCLC 


168 


NTIPL2 


186 


NZSTCC 


BR IF DO BIT7=1 


27B4 


2B88 


DCLC 


169 








SET GA K^48 


27B6 


5 42 9 


DCLC 


170 


A ORE 






VO = GO 


27B8 


C13C 


DCLC 


171 




173 


ADR16 


BR IF Gl BIT4=0 


27BA 


3385 


DCLC 


172 








Vl=Vi$K80 


27BC 


7 22 2 


DCLC 


173 


ADR 16 






STH V DA,8C 


27BE 


2007 


DCLC 


174 








U0=0 


27C0 


7032 


DCLC 


175 








STH U DA,8E 



CL0AD=*E60, 

COMMENTS 
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BR IF NO CH.E. BIT 
3R IF NO DEVICE END BIT 
RESET INT BUFFER LATCH 
BR IF BSY BIT IN STATUS 
TURN ON BURST LATCH 
BR IF NOT BUFFERED DEVICE 
BR IF CHAINED TO CCW 
SET BUFFERED DEVICE LATCH 
RESET 8UFFERED DEVICE INDICATOR 
TURN ON BURSTCH/FILE ACTIVE BIT 



STORE 


STATS 


CHNL ! 


STATUS = 


BR IF 


CDA FLG ON 


BR IF 


CCFLG -0 


BR IF 


BAD STATUS 


8R IF 


BAD STATUS 


BR IF 


DEVICE END 


BR IF 


CHNL END 



CDA FLG ON - BRK CHAINING 
RESET SUPPRESS OUT 
CHAINING OR BAD STATUS RTNE 

SET SUPR OUT 

SET SERVICE OUT 
G0=00 CHNL STATUS 
RST CODED OP BITS 

SET SUPR OUT 

SET SRV-OUT 
BR IF TIMEOUT 
BR IF OP IN DOWN 
INCREMENT TMOUT CNTR 
BR IF QP-IN STILL UP 
RESET TMOUT CNTR AND SET 

UP DO TO CHAIN 
RD OUT NXT CCW ADR 
BR IF NO STATUS MODIFIER 
GO INCR CCW ADR+8 BEFORE CHAIN 
NO CCW INCR NECESSARY-DO CHAIN 
BR IF NOT [PL 
BR TO IPL STA RTNE 
BR IF CHAINED-TO CCW 
SET SERVICE-OUT 
PUT UNIT STA IN VO 
BR IF PCI FLG OFF 
PUT PCI BIT IN CH STA 
TEMP STORE STATUS 

AUX008E = 0000 —RST STATS 



ADDR 


WORD 


SEOUENC 


:e no. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 




27C2 


CD04 


OCLC 


176 










RST GB K=20 




27C4 


F607 


DCLC 


177 


ADR 18 




191 


INFCKX 


BR IF DO BIT2 = 


= 1 


27C6 


C9CC 


DCLC 


178 






181 


ADR 17 


BR IF GT BIT4= 


=0 


27C8 


2 62 8 


OCLC 


179 










DQ=D0+K02 




27CA 


C9C5 


OCLC 


180 






177 


A DR 1 8 


BR IF GT BIT4= 


= 1 


27CC 


0000 


DCLC 


181 


A OR 17 








RST S K=00 




27CE 


2B00 


DCLC 


182 










SET GA K=0G 




27D0 


2 40 


DCLC 


183 










SET MODE K=00 




27D2 


5E22 


DCLC 


184 










RDH H 0A,8C 




27D4 


A 030 


DCLC 


185 




CCOM 


135 


STATUS 


BR 




2788 


5 42 9 


OCLC 


186 


NZSTCC 








VO=GQ 




278A 


5 349 


OCLC 


187 










G0 = V1 




278C 


EC93 


OCLC 


188 






192 


ADR 20 


BR IF GS BIT2 = 


= 1 


278E 


0892 


OCLC 


189 


TRY IBS 




192 


ADR 20 


BR IF GS BIT5= 


=0 


2790 


ATA 2 


DCLC 


190 






200 


ADR22 


BR 




2786 


A154 


OCLC 


191 


INFCKX 


DCLR 


155 


INFCHK 


BR 




2792 


1 63 5 


DCLC 


192 


A OR 20 








D0=DC*-K30 




2794 


760 2 


DCLC 


193 










STH D DA,88 




2796 


3413 


DCLC 


194 










G0=G0$K01 




279 8 


2 040 


DCLC 


195 










SET GB K=04 




279A 


ECA2 


DCLC 


196 






200 


ADR22 


BR IF GS BIT2= 


=0 


279C 


2 80 8 


DCLC 


197 










SET GA K=40 




279E 


3 413 


OCLC 


198 










G0=G0$KOl 




27AC 


A 7 A 6 


DCLC 


199 






20 2 


ADR23 


BR 




27A2 


2RC2 


DCLC 


200 


ADR22 








SET GA K=10 




27A4 


163 5 


DCLC 


201 


ADR22A 








D0=DC*-K30 




27A6 


E60 7 


DCLC 


202 


ADR23 




191 


INFCKX 


BR IF DO BIT2= 


=1 


27A8 


C 9A E 


DCLC 


20 3 






206 


ADR24 


BR IF GT BIT4^ 


=0 


27AA 


2 62B 


DCLC 


20 4 










D0=DC+K02 




27AC 


C9A7 


DCLC 


2C5 






20 2 


ADR23 


BR IF GT BIT4= 


= 1 


27AE 


E63 


DCLC 


206 


ADR24 




20 8 


ADR25 


BR IF MMSK2=0 




27R0 


244 


DCLC 


207 










RTN G MMSK2=0 




2780 


99F6 


DCLC 
OCLC 


20 8 
209 


4 DR 2 5 

* 


DCHN 


122 


MOORS T 


BR 








DCLC 


210 


ATABLE 


ADDR=0084 








0084 


OBOC 


DCLC 
DCLC 


211 
212 


C 
AEND 








XAUX'CBOCODOE" 


1 






DCLC 


213 


ATABLE 


ADDR=C094 








0094 


OF 15 


DCLC 
DCLC 


214 
215 


C 
AEND 








XAUX'OFISISFF* 


1 



CL0AD=*E60, 
COMMENTS 
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RESET BURST LATCH 
BR IF TIMEOUT 
BR IF OP-IN DOWN 
INCREMENT TMOUT COUNTER 
BR IF OP-IN STILL UP 
NO-OP DELAY 
RESET INITIAL SELECT 
SET CPU MODE AND ZONE 
RD OUT UNIT GCHNL STATUS 
BR TO STORE CSW ROUTINE 
XFER STATUS TO VO 
GO = CHNL STATUS 
BR IF BURST LTCH ON 
BR IF IBLTCH=0 



STORE UNIT I DENT HWD IN IB 
TURN ON STATUS RECD 8 

TURN ON IB LATCH 
BR IF 8RST LTCH OFF 

SRV-0 ACCEPT STATUS 

TURN ON STA RECD BIT 

CM 0-0 QUE STATUS 

BR IF TIMEOUT 
BR IF OP IN DOWN 
INCREMENT TMOUT COUNTER 
BR IF OP-IN STILL UP 
BR IF NOT IN TRAP 
RETURN FROM TRAP 
RTN TO I CYCLES 



BUFFERED DEVICE STANDARD ADDRESS 



BUFFERED DEVICE STANDARD ADDRESS 



* CROSS REFERENCE FOR CSECT DCLC * 



DCLC 


014 


DCLB 


231 






DCLC 


018 


DCLC 


014 


DCLH 


015 


DCLC 


019 


DCLC 


017 






DCLC 


020 


DCLH 


014 






DCLC 


023 


DCLC 


026 






DCLC 


033 


DCLC 


02 8 


DCLC 


02 9 


DCLC 


038 


OCLC 


03 3 


DCLC 


03 5 


DCLC 


039 


OCLC 


024 







DCLC 040 OCLC 042 DCLC 047 DCLC 071 DCLC 077 DCLC 079 



$$$$$ $$$$ $2gc&^c$&$$ $$)$($$$$$ $$*$$$$$& 
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DCLC 


04? 


DCLC 


045 






DCLC 


046 


DCLC 


043 






DCLC 


050 


DCLC 


061 


DCLC 


06 3 


DCLC 


052 


DCLC 


03 2 






DCLC 


059 


DCLC 


04 8 


DCLC 


049 


DCLC 


060 


DCLC 


036 






DCLC 


C61 


DCLC 


09 8 






DCLC 


066 


DCLC 


081 






DCLC 


067 


DCLC 


059 






DCLC 


069 


DCLC 


02 3 






DCLC 


071 


DCLC 


074 






DCLC 


075 


DCLC 


072 






DCLC 


85 


DCLC 


08 3 


DCLC 


08 8 


DCLC 


089 


DCLC 


086 






DCLC 


094 


DCLC 


0^7 






DCLC 


098 


DCLC 


095 






DCLC 


099 


DCLC 


091 


DCLC 


09 2 


DCLC 


107 


DCLC 


1 






DCLC 


108 


DCLC 


105 






DCLC 


116 


DCLC 


108 






DCLC 


121 


DCLC 


118 






DCLC 


122 


DCLC 


153 






DCLC 


124 


DCLC 


08 5 


DCLC 


09 


DCLC 


125 


DCLC 


122 






DCLC 


126 


DCLC 


09 9 






DCLC 


129 


DCLC 


127 






DCLC 


134 


DCLC 


132 






DCLC 


135 


DCLC 


131 






DCLC 


138 


DCLC 


126 


DCLC 


129 


DCLC 


140 


DCLF 


075 






DCLC 


146 


DCLC 


13 q 






DCLC 


147 


DCLC 


140 


DCLC 


142 


DCLC 


149 


DCLC 


145 






DCLC 


154 


DCLC 


144 






DCLC 


156 


DCLC 


159 






DCLC 


160 


DCLC 


157 






DCLC 


165 


DCLC 


163 






DCLC 


166 


DCLC 


143 


DCLE 


072 


DCLC 


168 


DCLC 


166 






DCLC 


170 


DCLC 


06 8 






DCLC 


173 


DCLC 


171 






DCLC 


177 


DCLC 


130 






DCLC 


181 


DCLC 


178 






DCLC 


186 


DCLC 


168 






DCLC 


189 


DCLE 


057 






DCLC 


191 


DCLC 


177 


DCLC 


202 


DCLC 


192 


DCLC 


188 


DCLC 


189 


DCLC 


?00 


DCLC 


190 


DCLC 


196 


DCLC 


201 


DCLR 


07 5 







DCLC 094 DCLC 156 



DCLC 143 
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* CROSS REFERENCE FOR CSECT DCLC * 
********* **** ************ ********* 
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DCLC 


20? 


DCLC 


199 


DCLC 205 


DCLC 


206 


DCLC 


12? 


DCLC 20 3 


DCLC 


208 


DCLC 


206 
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CHANNEL DATA LOOP 



DCLO DESCRIPTIVE TEXT 

BYTE CHANNEL ENTRY POINTS 



THIS ROUTINE PROVIDES THE DATA LOOP FOR EITHER THE BYTE 
CHANNEL-0 OR BURST CHANNEL-1, DEPENDING ON WHICH CHANNEL 
OPTION IS LOADED IN CONTROL STORAGE. 



RURST CHANNEL ENTRY POINTS 



0170 



OPBRCH — 



DECCNT -- 



TRAP ENTRY FOR DATA SERVICE ON NON-BUFFERED 
DEVICE. 



ENTRY FROM LOW-PRIORITY-TRAP ROUTINE 
FOR BUFFERED DEVICES. 



-OCLE- 



FROM -DCLR- ROUTINE AFTER CHANNEL STATUS IS 
SET FOP PROTECTION CHECK OR STORAGE WRAP CHECl 
PURPOSE OF ENTRY IS TO DECREMENT COUNT, THEN 
RETURN FROM TRAP OR GO TO I-CYCLES. 



ENTRY 



LOOP 



RESET 



SERV 



— COMMON ENTRY INTO A LOOP THAT CHECKS FOR THE 
RISE OF SERVICE-IN, STATUS-IN, OR THE FALL OF 
OPERATIONAL-IN. THIS ENTRY INITIALIZES THE 

TIMEOUT COUNTER. 



— SAME AS -EN TRY- 
NOT INITIALIZED. 



EXCEPT TIMEOUT COUNTER IS 



— FROM LOW-PRIORITY-TRAP ROUTINE -DCLE- OR 
CHANNEL ERROR ROUTINE -DCLR- TO RESET TAGS- 
OUT, THEN EITHER RETURN FROM TRAP OR GO TO 
I-CYCLES. 

— FROM -DCLE- STATUS ROUTINE WHEN THE DEVICE 
REQUESTS SERVICE. 



DECREM — FROM -OCLR- CHANNEL ERROR ROUTINE AFTER 

CHANNEL STATUS IS SET FOR PROTECTION CHECK OR 
STORAGE WRAP CHECK. PURPOSE OF ENTRY IS TO 
DECREMENT COUNT, THEN RETURN FROM TRAP. 



ADDR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



COMMENTS 



0170 
0172 

01C0 
01C2 
01C4 
01C6 
01C8 
01CA 
01 CC 
DICE 
01D0 
G1D2 
01D4 
01D6 
0108 
01DA 
01DC 
01DE 
01E0 
OlE? 
01E4 
01 E6 
01E8 



2 240 
8153 

81EC 
81DC 
F554 
F551 
7F3E 
5006 
C4E3 
0240 
2 84 8 
81CA 
7F3C 
5006 
C4E3 
240 
5F3C 
5006 
C4DA 
C569 
1573 
0240 
3D00 



OCL D 
DCLD 
DCLD 
DCLD 
DCLD 
DCLD 
DCLD 
DCLD 
DCLD 
DCLD 
DCLD 
DCLD 
DCLD 
DCLD 
DCLD 
DCLD 
DCLD 
DCLD 
DCLD 
DCLD 
DCLD 
DCLD 
DCLD 
DCLD 
DCLD 
DCLD 



001 
009 
010 
Oil 

01 2 
013 
014 
015 
016 
017 
018 
019 
020 
021 
022 

02 3 
024 
025 
02 6 
027 

02 8 
029 
030 
031 
032 

03 3 



T 

ATABLE 
LABEL 

DPBRCH 
AEND 
OP 
DP 
OP 
DP 

DECCNT 



SKIP 

RDF WD 



CTNZ 
OUTPUT 



TZERO 



CTCDA 



CHANNEL DATA LOOP 



H.E. BERKEBILE 



ADDR=0170 







LINK G MMSK0=1 


013 


OP N 


N=G1 BITS67 


03 5 


EXP ST A 


BR 


02 7 


OUTPUT 


BR 


02 3 


RDF WD 


BR IF Gl BIT3=0 


021 


SKIP 


BR IF Gl BIT3=1 
STB GB/IN V-l 
U=U-1 


030 


C TZERO 


BR IF Z=0 
RTN G MMSK0=0 
SET GA K=44 


018 


DECCNT 


BR 

STB GB/IN V+l 

U=U-1 


030 


CTZERO 


BR IF Z=0 
RTN G MMSK0=0 
ROB GB/OUT V+l 
U=U-1 


026 


CTNZ 


BR IF ZNZ 


03 3 


CTCDA 


8R IF Gl BIT0=1 
Gl=Gi#-KG7 
RTN G MMSK0=0 
SET GB K=80 



FIRST WORD OF TRAP 




BR ON OP 




COUNT=0 AND STATUS 


EXPECTED 


OUTPUT COMMAND 




BR IF SKIP FLAG IS 





BR IF SKIP FLAG IS 


1 


STORE BUS IN, ADR -1 


L 


COUNT FIELD -1 




BR IF COUNT = 




RETURN FORM TRAP 




SET SRV-OUT 





STORE BUS IN, A DP +1 
DECREMENT COUNT BY 1 
BR IF COUNT HAS GONE TO ZERO 
RETURN FORM TRAP 
RD OUT TO BUS-0,ADR+1 
COUNT -1 

BR IF COUNT IS NOT YET ZERO 
BR IF CD FLAG 
SET CT=0 INDICATION 
RETURN FORM TRAP 
SET CDA REQ 



AD OR 


WORD 


SEQIJFNCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


OlEA 


0240 


DCLD 034 








RTN G MMSKO=0 


OlEC 


2 30 7 


DCLD 035 


EXPSTA 






V1 = 


OlEE 


4F3F 


DCLD 03 6 








GB/0UT=V1 


OlFO 


2B42 


DCLD 03 7 








SET GA K=14 


01F2 


D169 


DCLD 038 




033 


CTCDA 


BR IF Gl BIT5=1 


01F4 


3 543 


DCLD 039 








G1=G1$K04 


01F6 


C240 


DCLD 040 








RTN G MMSKO=0 



CL0AD=*E60, 

COMMENTS 

RETURN FORM TRAP 

SET BUSS-OUT TO ZERO 
SET CMD OUT 
BR IF CMD SET PREV 
Gl BIT5=1 CMD-0 GIVE 
RETURN FORM TRAP 
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* CROSS REFERENCE FOR CSECT DCLD * 



DCLD 


Oil 


DCLE 


03 3 






DCLD 


013 


DCLD 


Oil 






DCLD 


018 


DCLD 


02 2 


DCLR 


140 


DCLD 


021 


DCLD 


016 






DCLD 


023 


DCLD 


015 






DCLD 


026 


DCLD 


029 






DCLD 


027 


DCLD 


014 






DCLD 


030 


DCLD 


019 


DCLD 


02 5 


DCLD 


033 


DCLD 


030 


DCLD 


038 


DCLD 


035 


DCLD 


013 







DCLE DESCRIPTIVE TEXT 
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CHANNEL LOW PRIORITY TRAP STATUS ROUTINES 

BYTE CHANNEL 

WHEN THE BYTE CHANNEL OPTION IS LOADED IN CONTROL STORAGE, 
THIS ROUTINE HANOLES ALL TRAPS -- EITHER DATA SERVICE OR 
STATUS. 

BYTE CHANNEL ENTRY POINTS 

0180 — LOW-PRIORITY TRAP-ADDRESS FOR DATA OR STATUS. 

STATUS — FROM ENTRY LOOP OF -DCLD- WHEN STATUS-IN 
PISES. THIS PORTION OF -DCLE- HANDLES 
STATUS. 



BURST CHANNEL 

WHEN THE BURST CHANNEL OPTION IS LOADED IN CONTROL STORAGE, 
THIS ROUTINE HANDLES TRAPS FOR EITHER -- 

1. DATA SERVICE - BUFFERED DEVICE, OR 

2. STATUS - ANY DEVICE. 

BURST CHANNEL ENTRY POINTS 

0180 — LOW-PRIORITY TRAP-ADDRESS AS DESCRIBED ABOVE. 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



COMMENTS 







DOLE 


0G1 


T 




CHANNEL LOW 


PRIORITY TRAP ST 






DCLE 


00 9 


ATABLE 


ADDR=0180 








0180 


2244 


DCLE 


010 










LINK G MMSK2=1 


0182 


C886 


DCLE 


Oil 






C13 


GO 


BR IF 


GS BIT4=0 


0184 


244 


DCLE 


012 










RTN G 


MMSK2=0 


0186 


3613 


DCLE 


M3 


GO 








DO =00$ KOI 


0188 


CCA 8 


DCLE 


014 






030 


ADR40 


BR IF 


GS BITO=0 


01 8 A 


D12 7 


DCLE 


015 






02 9 


ADR41 


8R IF 


Gl BIT5=1 


018C 


5212 


DCLE 


016 










RDH V 


DA,8A 


018E 


5038 


DCLE 


017 










RDH U 


V+2 


0190 


008B 


DCLE 


018 










Z=U0<K08 


019 2 


FQA4 


DCLE 


019 






C2 8 


NOTIC 


BR IF 


LZNZ 


0194 


5119 


DCLE 


02 










Ul-Ul 




0196 


C4AC 


DCLE 


021 






026 


PRGERD 


BR IF 


ZNZ 


0198 


5230 


DCLE 


02 2 










RDH V 


V+0 


019A 


0383 


DCLF 


023 










Z=V1*- 


-K08 


019C 


FOAC 


DCLE 


02 4 






02 6 


PRGERD 


BR IF 


LZNZ 


0I9E 


95F4 


DCLE 


02 5 




DCLB 


08 1 


RDHW1 


BR 




01 AO 


5212 


DCLE 


026 


PRGERD 








RDH V 


DA,8A 


01A? 


9 5C2 


DCLE 


02 7 




DCLB 


110 


PRGERC 


BR 




01A4 


95FA 


DCLE 


028 


NOTIC 


DCLB 


084 


NOTIC 


BR 




01A6 


A 154 


DCLE 


029 


ADR41 


DCLR 


155 


INFCHK 


BR 




01 A 8 


8 BE 6 


DCLP 
DCLE 


030 
031 


ADR40 
AEND 




03 2 


ADR40B 


BR 




0BE6 


EDE2 


DCLE 


032 


ADR40B 




034 


ADR40A 


BR IF 


GT BIT2=0 


0BE8 


8172 


DCLE 


033 




DCLD 


Oil 


OPBRCH 


BR 




0BE2 


FDEA 


DCLE 


034 


ADR40A 




036 


NTSTIN 


BR IF 


GT BIT3=0 


08E4 


B09C 


DCLE 


035 






060 


CHESTA 


BR 




OBEA 


2B40 


DCLE 


036 


NTSTIN 








SET GA K=04 


OB EC 


2645 


DCLE 


037 










00=0$K40 


OBEE 


3613 


DCLE 


03 8 










D0=D0$K01 


OBFO 


B0B6 


DCLE 


039 






040 


ADR 43 


BR 




30B6 


CD8 7 


DCLE 


040 


ADR 43 




048 


ADR44 


BR IF 


GT BIT0=1 



ROUTINES 



H.E. BERKEBILE 



TRAP WORD-SET PRIORTY 

3R IF INL SELECT OFF 

RETURN FROM TRAP 

SET SOURCE OF ENTRY INDICATOR 

BR IF CDA REQ^O 

BR IF ICC DETECTED 

READ OUT NEXT CCW ADR 

READ CCW HWD 1 

TEST COMMAND FOR TIC 

BR IF NOT A TIC 

BR IF TIC ADDR TOO BIG 

RD OUT NEW CCW ADDR 

CHECK FOR DOUBLE WORD BOUNDARY 



READ OUT NEXT CCW ADR 
INCR CCW ADR IN DCLB £BR TO DCLR 
BR TO DCLB & CONTINUE CCW FETCH 
BR TO INTFCE CTRL CHECK RTNE 



BR IF NO SRV-IN 

BR IF STA-IN=0 
STATUS IS CHANNEL END TYPE 
SET SEL OUT 

SET DO 
TO 41 

BR IF ADR IN UP 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL STATEMENT 


30 B 8 


262B 


DCLE 


041 










D0=00+K02 


30BA 


C08 7 


DCLE 


042 






04 8 


ADR44 


BR IF GT BIT0=1 


30BC 


E 63 6 


DCLF 


043 






040 


ADR 43 


BR IF DO BIT2=0 


30BE 


DD9B 


DCLE 


044 






04 7 


INFCHK 


8R IF GT BIT1=1 


30C0 


2B00 


DCLE 


045 










SET GA K=00 


30C2 


0244 


DCLE 


046 










RTN G MMSK2=0 


309A 


A154 


DCLE 


047 


INFCHK 


DCLR 


155 


INFCHK 


BR 


3086 


5F7F 


DCLE 


048 


ADR 44 








D1=GB/IN 


3088 


FC9B 


DCLE 


049 






04 7 


INFCHK 


BR IF GS BIT3=1 


308A 


2007 


DCLE 


050 










U0 = 


30 8C 


4F0F 


DCLE 


051 










GB/OUT=U0 


30 8E 


2 BO 2 


DCLE 


05 2 










SET GA K = 10 


3090 


F61B 


DCLE 


053 


ADR47 




C47 


INFCHK 


BR IF DO BIT2=1 


3092 


FD99 


DCLE 


054 






057 


ADR 46 


BR IF GT BIT3=1 


3094 


2 62B 


DCLE 


055 










D0=D0+K02 


3096 


FD9Q 


DCLE 


056 






05 3 


ADR 47 


BR IF GT BIT3=0 


3098 


A78E 


DCLE 
DCLE 

DCLE 


05 7 
058 
059 


ADR 46 
* 


DCLC 


189 


TRY IBS 


BR 


309C 


FCA2 


DCLE 


060 


CHESTA 




063 


ADR 48 


BR IF GS BIT3=0 


309E 


0D0 2 


DCLE 


061 










RST GB K = 10 


30A0 


3 48 3 


DCLE 


062 










G0=G0$KC8 


30 A 2 


5 43 9 


DCLE 


C63 


ADR48 








V1 = G0 


30A4 


C52 8 


DCLE 


06 4 






066 


NCCRST 


BR IF Gl BITO=0 


30A6 


1565 


DCLE 


065 










G1=G1*-K60 


30A8 


5F4F 


DCLE 


066 


NCCRST 








GO=GB/IN 


30 A A 


FC9B 


DCLE 


067 






04 7 


INFCHK 


BR IF GS BIT3=1 


30AC 


E501 


DCLE 


068 






07 3 


ADR 50 


BR IF Gl BIT2=1 


30AE 


0583 


DCLE 


069 










Z=G1#-K08 


30B0 


F081 


DCLE 


070 






073 


ADR 50 


BR IF LZ=0 


30B2 


3 34 5 


DCLF 


071 










V1=V1$K40 


30 84 


A782 


DCLE 


072 


ADR 51 


DCLC 


166 


ADR 11 A 


BR 


3080 


0313 


DCLE 


07 3 


AOR50 








Z=V1*-K01 


3082 


C4B4 


DCLE 


074 






07 2 


ADR51 


BR IF ZNZ 


30 84 


9ED2 


DCLE 


075 




DCLC 


140 


ADR ABC 


BR 
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* CROSS 


REFERENCE FOR CSE 
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CLOA0=*E60, 

COMMENTS 
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INCREMENT TMOUT COUNTER 

BR IF ADR IN UP 

BR IF NO TIMEOUT 

BR IF NO SEL-IN 

SEL-IN RECEIVED-DROP ALL TAGS 

AND RETURN FROM TRAP 
BR TO ERROR RTNES FOR ICC 
D1=ADR ON BUSS-IN 
BR IF BAD PARITY ON BUSS-IN 



OU 



SET BUSS-OUT T 

SET CMD-O- 

BR IF TIMEOUT 

BR IF STA-IN U 

INCREMENT TIM 

BR IF STA-IN D 

TRY TO LOAD IN 

**S 

**S 

BR IF DATA PAR 

RESET PARITY C 

PUT CDC BITIN 

MOVE CHANNEL S 

BR IF NO COA F 

ZERO OUT CC AN 

PUT GB/IN INTO 

BR IF PARITY E 

BR IF SLI BIT 

MASK Gl-5,6,7 

BR IF CLR 

PUTINCLENGTHIN 

TRY TO SET INT 

MASK CHANNEL S 

BR IF CHNL STA 

CONTINUE TESTI 

CT DCLE * 

3*C # # # # >£ # 5* jjc 



C ZERO 

— PROCEED 

P 

EOUT COUNTER 

WN 

T BUFFER 

ET IB AND QUE 

TATUS AT DEVICE 

ITY OK 

HECK LATCH 

CHNLSTA 

TATUS 

LG 

D SLI FLGS 

GO 
RROR 
= 1 



CHNLSTA 

RUPT BUFFER 

TATUS 

TUS NZ 

NG STATUS 



DCLE 


013 


DCLE 


Oil 






DCLE 


026 


DCLE 


021 


DCLE 


024 


DCLE 


028 


DCLE 


019 






DCLE 


029 


DCLF 


015 






DCLE 


030 


DCLE 


014 






DCLF 


32 


DCLF 


030 






DCLE 


034 


DCLE 


032 






DCLE 


036 


DCLE 


034 






DCLE 


040 


DCLE 


039 


DCLE 


04 3 


DCLE 


047 


OCLF 


044 


DCLE 


049 


DCLE 


048 


DCLE 


040 


DCLE 


042 


DCLE 


053 


DCLE 


056 






DCLE 


057 


DCLE 


054 







DCLE 053 DCLE 067 



* CROSS REFERENCE FOR CSECT DCLE * 
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DCLE 


060 


DCLE 


03 5 


DCLE 


063 


DCLE 


060 


DCLE 


066 


DCLE 


06 4 


DCLE 


72 


DCLE 


074 


DCLE 


73 


DCLE 


06 8 



DCLE 070 



HALT I/O ROUTINE 



DCLH DESCRIPTIVE TEXT 

ENTRY POINTS CONTINUED 
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THIS ROUTINE EXECUTES A HALT I/O INSTRUCTION WHEN THE 
BURST CHANNEL OPTION IS LOADED IN CONTROL STORAGE. 

ENTRY POINTS 

ENTRY -- FROM -DCLA- I/O INSTRUCTIONS ROUTINE WHEN A 
HALT I/O INSTRUCTION IS DECODED. 



ADRO — FROM -DCLT- FOR INACTIVE TEST I/O 

TO TRANSFER INFORMATION FROM ONE LOCAL 
STORAGE ZONE TO ANOTHER. 

ADROA — FROM -DCLT- FOR INACTIVE I/O INTERRUPT 
TO TRANSFER INFORMATION FROM ONE LOCAL 
STORAGE ZONE TO ANOTHER. 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL STATEMENT 




COMMENTS 






DCLH 


001 


T 




CHANNEL 


HALT I/O 




H.E.BERKEBILE 






DCLH 


002 


* 














225E 


C643 


DCLH 


004 


ENTRY 




016 


ADR1 


BR IF DO BIT0= 


= 1 


BR IF ACTIVE 


2260 


2 043 


DCLH 


00 5 










U0=0$K04 




SET UP UOTO INDICATE HLT I/O 


2262 


7 02 2 


DCLH 


006 


ADRO 








STH U DA,8C 




TEMP STORE UNIT IDENT HWD 


2264 


2 4F6 


DCLH 


00 7 


ADROA 








SET MODE K=3F 




SET CHNL MODE £ ZONE 


2266 


2R80 


DCLH 


008 










SET GA K=08 




SET INL SELECT LTCH 


2268 


5 62 2 


DCLH 


009 










RDH D DA,8C 




RD OUT UNIT IDENT 


22 6A 


5659 


DCLH 


010 










G1 = DC 




Gl = TST I/O OR HLT I/O IDENT 


22 6C 


2 64 5 


DCLH 


on 










D0=0$K4Q 




SET D TO IDENTIFY BURST CHNL 


226E 


2 40 7 


DCLH 


012 










G0=0 




GO = CHNL STATUS 


2270 


D140 


DCLH 


013 






015 


HLTEBR 


BR IF G15=0 




BR IF NOT HALT I/O 


2272 


8DFA 


DCLH 


014 




OCLC 


020 


HLTENT 


BR 




GO GET DEVICE OM INTERFACE 


2240 


8DF6 


DCLH 


015 


HLTEBR 


DCLC 


018 


NOPCIB 


BR 




GO GET DEVICE ON INTERFACE 


2242 


2C25 


DCLH 


016 


ADR1 








P0=0$K20 




SET CC2 


2244 


2 4F6 


DCLH 


017 










SET MODE K=3F 




SET CHNL MODE 


2246 


2210 


DCLH 


018 










SET MMSK K=01 




SET DATA-TRAP PRIORITY 


2248 


F04E 


DCLH 


019 






022 


ADR6 


BR IF GO BIT7= 


=0 


BR IF NO STA RECD 


224A 


0210 


DCLH 


020 










RST MMSK K=01 




RST DATA-TRAP PRIORITY 


224C 


810C 


DCLH 


021 




CCOM 


155 


CCOB 


BR 




BR TO CCO SET RTNE 


224E 


1D00 


DCLH 


02 2 


ADR6 








RST GB K=80 




RST CDA RED LTCH 


2250 


2B84 


DCLH 


023 










SET GA K=28 




SET ADR-OUT AND INL SEL LATCHES 


2252 


0210 


DCLH 


024 










RST MMSK K=01 




RST DATA-TRAP PRIORITY 


2254 


E55D 


DCLH 


025 






029 


NOINCL 


BR IF Gl BIT2= 


= 1 


BR IF SLI BIT ON 


2256 


4 006 


nCLH 


02 6 










U=U 




U=COUNT 


2258 


C4D0 


DCLH 


027 






029 


NOINCL 


BR IF Z=0 




BR IF COUNT = 


225A 


344 5 


DCLH 


028 










G0=G0$K40 




PUT INC LGTH BIT IN CHNL STATS 


225C 


B02E 


DCLH 


29 


NOINCL 


DCLR 


06 7 


PRGECC 


BR 




BR TO RTNE TO SET INT BUFFER 
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* CROSS i 


REFERENCE FOR CSECT 


DCLH * 
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DCLH 


004 


DCLA 


12 3 


DCLH 


006 


DCLT 


00 5 


DCLH 


007 


DCLT 


064 


DCLH 


015 


DCLH 


013 


DCLH 


016 


DCLH 


00 4 


DCLH 


022 


DCLH 


019 


DCLH 


029 


DCLH 


02 5 



DCLH 027 



DCLL DESCRIPTIVE TEXT 
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ENTRY POINTS 



IPL 



IPLWTt. 



ENTRY IS MADE TO THIS LABEL FROM THE -8SYS- 
ROUTINE. THE FOLLOWING STEPS HAVE TAKEN 
PLACE PRIOR TO ENTRY HERE - 

1. THE LOAD KEY HAS BEEN PRESSED AND 
A MACHINE RESET PERFORMED. 

2. THE RESIDENT DIAGNOSTIC -8DIA- 
WAS EXECUTED. 

3. THE CHECK SUM ROUTINE -BCHK- HAS 
BEEN EXECUTED. 

4. THE SYSTEM RESET ROUTINE -BSYS- 
HAS BEEN EXECUTED AND A BRANCH TO 
THIS ROUTINE AT LABEL * IPL * 
HAS BEEN PERFORMED. 

IF OPERATING AS (BURST CHANNEL), ENTRY IS 
MADE AT THIS LABEL FROM THE -OCLC- ROUTINE 
TO ENTER THE IPL WAIT LOOP AND WAIT FOR A 
TRAP TO ADDRESS 0170 IN THE -DCLD- 
ROUTTNE, OR, IF BUFFERED DEVICE, TRAP TO 
ADDRESS 0180 IN THE -DCLE- ROUTINE. 

IF OPERATING AS (BYTE CHANNEL), ENTRY IS 
MADE AT THIS LABEL FROM THE -OCLD- ROUTINE 
AFTER OPERATIONAL-IN HAS DROPPED. THE WAIT 
LOOP IS ENTERED TO WAIT FOR A TRAP TO 
ADDRESS 0180 IN THE -DCLE- ROUTINE. 



IPLSTP 



IPLSTB - 



IPLSTA - 



PICKUP - 



ENTRY IS MADE TO THIS LABEL BECAUSE OF SOME 
UNRECOVERABLE ERROR BEING DETECTED. A HARD 
STOP IS EXECUTED. 



ENTRY IS MADE TO 
(BURST CHANNEL) , 
TO CHECK CHANNEL 
CHAINING FLAG. 



THIS LABEL IF OPERATING 
FROM THE -OCLC- ROUTINE 
STATUS AND THE COMMAND 



ENTRY 
(BYTE 
AFTER 
ZEROS 
UCW. 



IS MADE TO THIS LABEL IF OPERATING 
CHANNEL), FROM THE -DCLC- ROUTINE 
ALL CCWS HAVE BEEN READ, TO STORE 
IN THE FLAGS AND OP HALFWORD OF THE 



ENTRY IS MADE TO THIS LABEL FROM EITHER 
THE 2540 REQUEST AND TEST I/O ROUTINE 
-ERRQ-, OR THE 2311 FEATURE, COMMAND 
VERIFICATION AND EXECUTION ROUTINE -FILX-. 
ENTRY IS MADE AFTER THE IPL IS COMPLETED 
FROM THE DEVICE TO STORE THE DEVICE ADDRESS 
IN PROGRAM STORAGE LOCATION 0002 AND BRANCH 
TO THE -8SYS- ROUTINE TO RESET IPL AND 
GO TO -BPSW- TO LOAD THE PSW. 



AODR 


WORD 


SEQUENCE NO. 


LABEL 






DCLL 


001 


T 


3390 


42A6 


DCLL 


00 2 


IPL 


3392 


44A6 


DCLL 


0C3 




3394 


2 42 3 


DCLL 


004 




3396 


74B8 


DCLL 


00 5 




3398 


70B8 


DCLL 


00 6 




339A 


2 46 5 


DCLL 


007 




339C 


74B8 


DCLL 


008 




339E 


2115 


DCLL 


009 




33A0 


3183 


DCLL 


010 




33A2 


70B8 


DCLL 


Oil 




33A4 


3B4 5 


DCLL 


012 




33A6 


46A6 


DCLL 


013 




33A8 


1TFD 


DCLL 


014 




33AA 


8ADA 


DCLL 


015 




33AC 


10F5 


DCLL 


016 




33AE 


24C3 


DCLL 


017 




3 3 BO 


894E 


DCLL 


018 




3488 


0214 


DCLL 


019 


IPLWTL 


348A 


848 A 


DCLL 


024 


WAITLP 



NFXTSEQ 



NEXTLABEL STATEMENT 



INITIAL PROGRAM 



CSTS 071 RDSWCH 



DCLA 095 UADRID 



024 WAITLP 



LOAD (IPL) 
V=T 
G=T 

G0=Q$KC2 
STH G T + 2 
STH U T + 2 
G0=0SK60 
STH G T+2 
U1=0$K1C 
U1=U1$K08 
STH U T+2 
T1=T1$K40 
D=T 

D1 = DKKF0 
BAL 

U0=UO#-KF0 
GO=0$KCC 
BR 

RST MMSK K=21 
BR 



COMMENTS 

H.E.BERKEBILE 
T AND U ARE BOTH ZERO-FROM SYSR 

G=0200 (READ CMD) 
MS — 0000=0200 
MS — 0002=0000 
G=6000 (CC&SLI FLGS) 
MS 0004=6000 

U=0018 (COUNT) 

MS 0006=0018 

T=0048 FOR UNIT ADDRESS IN DCLA 

0=0048 

0=00B8 

READ IPL ADDR 



RESET MMSK 2 
IPL WIAT LOOP 





















CL0AD=*E6Q» 


ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL STATEMENT 


COMMENTS 


2TD6 


0000 


OCLL 


025 


CIPLSTP 








XCTL'OOCO' 




2708 


5 00 7 


DCLL 


026 


STOP 








STOP 


IPL STOP 


27DA 


A7D8 


OCLL 


027 






026 


STOP 


BR 


GO BACK TO STOP AGAIN 


27DC 


0313 


DCLL 


028 


IPLSTB 








Z=Vl*-K01 




27DE 


C4D6 


DCLL 


029 






02 5 


IPLSTP 


BR IF ZNZ 


BR IF BAD CHNL STATUS 


27E0 


04C3 


OCLL 


031 










Z=GO*-KOC 




27E2 


C4D6 


DCLL 


032 






02 5 


IPLSTP 


BR IF ZNZ 


BR IF BAD STATUS 


27E4 


D557 


DCLL 


033 






025 


IPLSTP 


BR IF Gl BIT1=1 


BR IF NO CC FLAG 


27E6 


0D04 


DCLL 


034 










RST GB K = 20 


RST BURST LTCH 


27E8 


2 40 7 


DCLL 


035 










G0=0 




27EA 


7432 


DCLL 


036 










STH G DA,8E 


RESET STATS IN AUXOC 


27EC 


2 BO 8 


DCLL 


037 










SET GA K=40 


SET SRV-0 


27EE 


C9EF 


DCLL 


03 8 


OPINLP 




03 8 


OPINLP 


BR IF GT BIT4=1 


BR ON FALL OF OP-IN 


27FQ 


0214 


DCLL 


039 










RST MMSK K=21 


RST MMSK 2 


27F2 


2 400 


DCLL 


040 


PICKUP 








SET MODE K=00 




27F4 


8ADA 


DCLL 


041 


I PLADR 


CSTS 


071 


RDSWCH 


BAL 


READ IPL ADDR 


27F6 


10F5 


DCLL 


04 2 










U0=U0*-KF0 




27F8 


2B2 3 


DCLL 


04 3 










T1=0$K02 




27FA 


70BO 


DCLL 


04 4 










STH U T+0 




27FC 


A2E6 


DCLL 


045 




BSYS 


180 


RETURN 


BR 


GO RST IPL AND LOAD P 
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* CROSS 
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DCLL * 
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PSW 



DCLL 


002 


BSYS 


178 












DCLL 


019 


OCLC 


12 5 












DCLL 


024 


DCLL 


024 












DCLL 


025 


DCHM 


125 


DCLC 


060 


DCLL 029 


DCLL 


032 


DCLL 


026 


DCLL 


02 7 


ERRO 


049 


FILE 141 


FILX 


45 2 


DCLL 


028 


DCLC 


167 












DCLL 


038 


DCLL 


038 












DCLL 


n 40 


EPRQ 


04 8 


F I L X 


45 8 









DCLL 033 DCLR 003 DCLR 152 



OCLR DESCRIPTIVE TEXT 



CL0AD=*E60t EC LEVEL=128266 PAGE 178 



CHANNEL ERROR ROUTINES 

ENTRY POINTS 

PRGERR ~ BURST CHANNEL ENTRY FROM -DCLB- WHENEVER A 

PROGRAM ERROR IS DETECTED WHILE FETCHING A CCW 
FOR A START I/O OR CHAINING. 

PGESTT — FROM -OCLA- WHEN A PROGRAM ERROR IS DETECTED 
WHILE FETCHING THE CAW FOR START I/O. 

NTYPE — FROM -BWRP- WHEN A STORAGE WRAP OR STORAGE 
PROTECT VIOLATION IS DETECTED WITH MODE SET 
FOR ONE OF THE INTEGRATED ATTACHMENTS. 

PRGECC — THIS BURST CHANNEL ENTRY LOADS THE INTERRUPT 
BUFFER, THEN THE MICROPROGRAM EITHER RETURNS 
FROM A TRAP OR GOES TO I-CYCLES. 
ENTRY IS FROM ONE OF THE FOLLOWING. 

1. -OCLR- IF PROGRAM ERROR IS DETECTED WHILE 
COMMAND CHAINING. 

2. -DCLH- AFTER PERFORMING HALT I/O. 



ENTRY POINTS CONTINUED 



INTQD — 



WRAP 
PROTCH 



INFCHK — 



cccxxx — 



BYTE-CHANNEL ENTRY FROM -DCLC- WHEN THE 
INTERRUPT BUFFER IS FULL AND ANY CHANNEL ERROR 
OCCURS. THE DEVICE IS SELECTED AND THE STATUS 
IS QUEUED IN -DCLC-. IN -DCLR-, THE UCW IS 

UPDATED, THEN THE ROUTINE BRANCHES TO -DCLD- 
TO EITHER RETURN TO I-CYCLES OR TO RETURN FROM 
TRAP. 



FROM -BWRP- TO SET EITHER PROGRAM CHECK OR 
PROTECTION CHECK IN STATUS* AND SET UP TO STOP 
THE DEVICE ON THE NEXT SERVICE-IN. 

COMMON ENTRY FOR INTERFACE CONTROL CHECK LOG- 
OUT. THE INTERFACE IS CLEARED AND THE CHANNEL 
ERROR STATUS IS SET UP. THEN THE ROUTINE 
EITHER RETURNS FROM THE TRAP OR GOES TO 
I-CYCLES, DEPENDING ON SOURCE OF ENTRY. 

FROM -BMCK- AFTER MACHINE CHECK TRAP IF MMSK 
BITS INDICATE A CHANNEL CONTROL CHECK. 



ADDR 


WORD 


SFQUENC 


'E NO. 


LABEL 


NEXTSFQ 


NEXTLABFL STATEMENT 






OCLR 


001 


T 






CHANNEL 


ERROR ROUTINES 


3002 


C3C0 


DCLR 


00 2 


PRGERR 




00 4 


NOIPLM 


BR IF BA4=0 


3004 


A7D6 


OCLR 


00 3 




DCLL 


02 5 


I PL ST P 


BR 


3C40 


F207 


DCLR 


004 


NOIPLM 




013 


PGECHN 


BR IF D07=l 


3042 


2 4C 


DCLR 


00 8 


PGESTT 








SET MODE K=CO 


3044 


2F25 


OCLR 


009 










Hl=0$K20 


30 46 


2E0 5 


OCLR 


010 


ADR 00 3 








HO=0$KOO 


3048 


A030 


DCLR 


on 




CCOM 


135 


STATUS 


BR 


3006 


62 3 


OCLR 


013 


PGECHN 




061 


BURST 


BR IF DO BIT1=1 


300 8 


177 3 


OCLR 


019 










D1=D1*-K07 


300A 


8F7A 


OCLR 


030 


NOT HEM 


ERRO 


082 


RDCHST 


BAL 


30 OC 


C51C 


DCLR 


031 






033 


NOD AT C 


BR IF G10=0 


30 OE 


2 EC 3 


DCLR 


03 2 










HO=0$KOC 


3010 


15C5 


DCLR 


03 3 


NODATC 








G1=G1*-KC0 


301? 


3 4A5 


DCLR 


034 










GO=GO$KAO 


3014 


C39 8 


OCLR 


03 6 






043 


NATPRO 


BR IF BA4=0 


3016 


9F5C 


OCLR 


038 




ERRO 


049 


STOP 


BR 


3013 


E71E 


OCLR 


043 


NATPRO 




052 


NTYPE 


BR IF D12=0 


301A 


F71E 


DCLR 


047 






052 


NTYPE 


BR IF 013=0 


301C 


B478 


DCL» 


048 




DYPE 


237 


PRGCHK 


BR 


30 IE 


B43C 


DCLR 


05 2 


NTYPE 


ERRQ 


109 


GUESS 


BAL 


3020 


8D68 


DCLR 


53 




DPTR 


075 


TAKEIN 


BR **TRY 


30 22 


242 5 


DCLR 


061 


BURST 








GO=0$K2 


3024 


54E9 


OCLR 


062 










H0=G0 


3026 


15C5 


OCLR 


063 


ADRXYZ 








G1=G1*-KC0 



COMMENTS 



H.E. BERKEBILE 



i 

BR IF NOT IPL 

GO TO IPL STOP 

BR IF FROM CHAINING 

SET PROGRAM CHECK IN CHNL STATUS 
H0=00 UNIT STA H1=CHNL ST A 
STORE STATUS ONLY CSW-SET CC1 
BR IF BURSTCH 
SET f) TO UCW HWD 
GET CHAN AND UNIT STATUS IN G,H 
BR IF NO DATA CHAIN 
SET CHANNEL END AND DEVEND 
RESET CHAIN FLAGS 
SET SEC AND PROG CHECK 
8R IF NOT IPL 
GO TO 2540 STOP 
CHECK FOR 
1052 

RST 2540 CMD.INTLK. 
1403,2540 INTRPT--GO TO SOFT STOP 
SET PROGRAM CHECK 
MOVE CHANNEL STATUS 
RST CDA £ CC FLAGS 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


3028 


1573 


DCLR 


064 








Gl=Gl*-K07 


302A 


CCAE 


DCLR 


06 5 




067 


PRGECC 


BR IF GS BITG=0 


30 2 C 


9660 


DCLR 


066 




DCLB 22 3 


8STCDA 


BR 


302 E 


010 


DCLR 


067 


PRGECC 






RST GB K=Ol 


30 3C 


3413 


DCLR 


068 








G0=G0$K01 


30 3 2 


2 20 5 


DCLR 


069 








VO=0$KOO 


3034 


7602 


DCLR 


07 








STH D DA, 88 


3036 


2D40 


DCLR 


071 








SET G8 K=04 


303 8 


C681 


DCLR 


072 




076 


HIPRTP 


3R IF MMSK0=1 


303A 


E681 


DCLR 


073 




076 


HIPRTP 


BR IF MMSK2=1 


303C 


2800 


DCLR 


074 








SET GA K=00 


303E 


A7A4 


DCLR 


075 




OCLC 201 


ADR 22 A 


3R 


3000 


0240 


DCLR 


076 


HIPRTP 






RTN G MMSK0=G 


3490 


3425 


DCLR 


134 


WRAP 






G0=G0$K20 


3492 


98D8 


DCLR 


13 5 




137 


WRPPRT 


BR 


18D6 


3415 


DCLR 


136 


PROTCH 






G0=G0$K10 


18D8 


15C5 


DCLR 


137 


WRPPRT 






G1=G1*-KC0 


18DA 


153 3 


DCL» 


138 








G1=G1*~K03 


18DC 


81CA 


DCLR 


140 




DCLD 018 


DECCNT 


BR 


218E 


A 706 


DCLR 


152 


IPLICC 


DCLL 02 5 


IPLSTP 


BR 


2154 


562F 


DCLR 


155 


INFCHK 






VO=MMSK 


2156 


221E 


DCLR 


156 








SET MMSK K=71 


2158 


5C3F 


DCLR 


157 








V1 = GS 


215A 


7222 


DCLR 


159 








STH V DA,8C 


21 5C 


5D2F 


DCLR 


163 


AOR102 






VC = GT 


215E 


5E3F 


DCLR 


164 








V1 = GD 


2160 


2 BIO 


DCLR 


165 








SET GA K=01 


2162 


2 40 7 


DCLR 


166 








G0 = 


2164 


2585 


DCLR 


167 








G1=0$K80 


2166 


3 573 


0CL3 


168 








G1=G1$K07 


2168 


7 65 A 


DCLR 


169 








STH D G-2 


216A 


725A 


DCLR 


170 








STH V G-2 


216C 


5350 


DCLR 


171 








ROB VI G+G 


2 1 6E 


231B 


DCLR 


172 








V1=V1+K01 


2170 


3 3C5 


ncL« 


173 








V1=V1$KC0 


2172 


5622 


DCLR 


175 








RDH D DA,8C 


2174 


5 72 9 


PCLR 


179 








V0=D1 


2176 


725A 


DCLR 


180 








STH V G-2 


2178 


577F 


DCLR 


181 








D1 = BA 


217A 


765C 


DCLR 


182 








STH D G 


217C 


3573 


DCLR 


183 








G1=G1$K07 


217E 


5650 


DCLR 


184 








RDH D G 


2180 


E690 


DCLR 


188 




191 


ADR100 


BR IF MMSK2=0 


2182 


2 BOO 


DCLR 


189 








SET GA K=00 


2184 


A194 


DCLR 


190 




193 


ADR101 


BR 


2190 


2 4F6 


DCLR 


191 


ADR100 






SET MODE K=3F 


2192 


2B80 


DCLR 


192 








SET GA K=08 , 


2194 


2 50 7 


DCLR 


193 


A0R101 






G1 = 


2196 


21 E 


DCLR 


194 








RST MMSK K = 71 


2198 


2323 


DCLR 


195 








V1=0$K02 


219A 


0D02 


DCLR 


196 








RST GB K=10 



CL0AD=*E60, 

COMMENTS 



EC LEVEL=128266 PAGE 179 



RST CODED OP BITS 
BR IF CDA FLAG OFF 
BR TO DCLB TO RTN FROM TRAP 

RESET SUPR-0 
SET STATUS RECEIVED INDICATOR 
SET CO UNIT STATUS 
STORE UNIT I DENT HWD IN IB 
SET INT BUFFER LATCH 
BR IF CHNL HI PRIORITY TRAP 
8R IF CHNL LO TRP PRIORITY 
RST TAGS OUT 

BR TO SET CMD-0 CTMOUT ON OPI 
RTN FROM TRAP 
SET PROGRAM CHECK-MEMORY WRAP 

SET PROTECTION CHECK 
RST CDA £, CC FLAGS 
RST CODED COMMAND BITS 



OW 



BR TO IPL 
SAVE MMSK 



WORD 



SET 
SAVE 
TEMP 
SAVE 
SAVE 
SET 



STOP 

REG 

PRIORITY HOLD LATCH 
GS REG 

STORE MMSK/GS 
GT EXTERNAL CDNS 
GO EXTERNAL CDNS 
STP TRAP INHIBIT LATCH 



G=0C8 7 

STORE UNIT IDENT HWD IN MS 0086 

STORE GT/GD IN MS0084 

READ OUT ERROR COUNT INTO VI 
INCREMENT ERROR COUNT 
SET *LGOUT WAS CHNL ICC BIT 
READ OUT MMSK/GS 
MOVE GS TO VO REG 
STORE GS/ERROR COUNT IN MS0082 
MOVE BA TO Dl REG 
STORE MMSK/BA IN MS0080 
BUILD 0087 ADDRESS 
RESTORE UNIT IDENT HWD IN D 
BR IF NOT IN TRAP 
RST CHNL TAGS 



SET INL SELECT 
ZERO OUT Gl 



LATCH 



SET INTERFACE CONTROL CHECK 
RESET PARITY ERROR LATCH 



A DDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 




219C 


C38F 


DCLR 


197 


IPLICK 


152 


I PL ICC 


BR IF BA BIT4= 


= 1 


219E 


2B80 


DCLR 


198 








SET GA K=08 




21A0 


C9B8 


DCLR 


199 




212 


OPIDWN 


BR IF GT BIT4= 


=0 


21A2 


2B84 


DCLR 


200 








SET GA K=28 




21A4 


2 20 7 


DCLR 


201 








V0=0 




21A6 


C9B8 


DCLR 


202 


ADR 00 I 


212 


OPIDWN 


BR IF GT BIT4= 


=0 


21A8 


221B 


DCLR 


20 3 








V0=V0+K01 




21AA 


F4A6 


DCLR 


20 4 




20 2 


ADR001 


BR IF AOO 




21AC 


2D10 


DCLR 


20 5 








SET GB K=01 




21 AE 


3B80 


DCLR 


206 








SET GA K=88 




21 BO 


2218 


DCLR 


207 


WT0PI2 






V0=V0+KC1 




21B2 


C9B8 


DCLR 


20 8 




212 


OPIDWN 


BR IF GT BIT4= 


=0 


21B4 


F4B0 


DCLR 


209 




20 7 


WT0PI2 


8R IF AC=0 




2186 


CD10 


DCLR 


210 








RST GB K=01 




21B8 


C637 


DCLR 


212 


OPIDWN 


229 


CHAING 


BR IF MMSK0=l 




21BA 


E687 


DCLR 


213 




229 


CHAING 


BR IF MMSK2=1 




21BC 


F20 7 


DCLR 


217 




229 


CHAING 


BR IF DO BIT7= 


= 1 


21BE 


221E 


DCLR 


218 








SET MMSK K=71 




21CO 


7222 


DCLR 


219 








STH V DA»8C 




21C2 


D8C6 


DCLR 


220 




222 


I NT OF F 


BR IF GS BIT5= 


=0 


21C4 


3413 


DCLR 


221 








G0=G0$K01 




21C6 


2 BOO 


DCLR 


222 


INTOFF 






SET GA K=00 




21C8 


2 40 


DCLR 


223 








SET MODE K=OC 




21CA 


5E2 2 


DCLR 


224 








RDH H DA,8C 




21CC 


21 F 


DCLR 


225 








RST MMSK K=71 




21CE 


1000 


DCLR 


226 








RST SO 




21 DO 


B046 


DCLR 


227 




010 


ADR 00 3 


BR 




2186 


5349 


DCLR 


22 9 


CHAING 






G0=V1 




2188 


3 613 


DCLR 


230 








D0=D0$K01 




218A 


1DC0 


DCLR 


231 








RST GB K=80 




21 8 C 


B02 6 


DCLR 


232 




063 


ADRXYZ 


BR 




18F8 


2343 


DCLR 


2.3 8 


UtL AA A 






V1=0*KC4 




18FA 


5612 


DCLR 


239 








RDH D DA,8A 




18 FC 


3613 


DCLR 


240 








D0=DQ$K01 




18FE 


A19C 


DCLR 


241 




197 


IPLICK 


8R 





CL0AD=*E60» 

COMMENTS 



EC LEVEL=128266 PAGE 180 



DCLR 


002 


DCLB 


105 


OCLB 


108 


DCLR 


04 


DCLR 


00 2 






DCLR 


008 


DC LA 


074 






DCLR 


CIO 


DCLR 


22 7 






DCLR 


013 


DCLR 


004 






DCLR 


033 


DCLR 


031 






DCLR 


C43 


DCLR 


036 






DCLR 


052 


BWRP 


156 


BWRP 


157 


DCLR 


061 


DCLR 


013 






DCLR 


063 


DCLR 


232 






DCLR 


067 


DCLH 


029 


DCLR 


06 5 


DCLR 


076 


OCLR 


072 


DCLR 


073 


DCLR 


134 


BWRP 


046 







BR IF IPL 

SET INL SELECT LATCH 
BR IF OP-IN IS ALREADY DOWN 
SET ADR-OUT AND INL SEL LTCHES 
INITIALIZE TIMEOUT COUNTER 
BR IF OP-IN DOWN 
INCREMENT TMOUT COUNTER 
BR IF NO TIMEOUT 
SET SUPR-OUT 
DROP OP-OUT 

INCREMENT TIMEOUT COUNTER 
BR IF OP-IN DOWN 
IF NO TIMEOUT 
RST SUPR-OUT 
IF CHNL HI TRP 
IF CHNL LO TRP 
IF ENTRY WAS VIA 
PRIORI TY HOLD 



PRIORITY 
PRIORITY 
CHAINING 



BR 

BR 

BR 

BR 

SET 

TEMP STORE UNIT 6 CHNL STATUS 

BR IF INTERRUPT LATCH OFF 

SET STATUS RECEIVED BIT 

DROP ALL TAGS OUT 

SET CPU MODE S ZONE 

READ OUT UNIT/CHNL STATUS 

RESET PRIORITY HOLD 

RST RETURN FLAG IF ON 

BR TO STORE CSW (STATUS ONLY) 

MOVE CHNL STATUS 

SET "SOURCE OF ENTRY WAS CHAIN" 

RESET CDA REQ LTCH 

SET CHNL CONTROL CHECK 

RD OUT UNIT IDENT HWD 

SET "SOURCE OF ENTRY WAS CHAIN" 



* CROSS REFERENCE FOR CSECT DCLR * 



DCLR 043 DCLR 047 



DCLR 


136 


BWRP 


079 


DCLR 


137 


DCLR 


135 


DCLR 


152 


DCLR 


197 


DCLR 


155 


DCLC 


03 8 


DCLR 


191 


DCLR 


188 


DCLR 


193 


DCLR 


190 


DCLR 


197 


DCLR 


241 


DCLR 


202 


DCLR 


204 


DCLR 


207 


DCLR 


209 


DCLR 


212 


DCLR 


199 


DCLR 


222 


DCLR 


220 


DCLR 


229 


DCLR 


212 


DCLR 


238 


BMCK 


06 5 



ft********************************* 
* CROSS REFERENCE FOR CSECT DCLR * 



CL0A9=*E60t EC LEVEL= 128266 PAGE 181 



DCLC 124 DCLC 191 DCLE 029 DCLE 047 



DCLR 202 DCLR 208 



DCLR 213 DCLR 217 



OCLT DESCRIPTIVE TEXT 



CL0A0=*E60, EC LEVEL=128266 PAGE 182 



CHANNEL TEST I/O AND I/O INTERRUPT 



BURST CHANNEL ENTRY POINTS 

TFSTIO — FROM -DCLA- I/O INSTRUCTIONS ROUTINE WHEN A 
TEST I/O INSTRUCTION IS DECODED. 

INTRTX -r- FROM -DCLC- TO RESTORE THE PREVIOUS CONTENTS 
OF THE H-REGISTER BEFORE THE MICROPROGRAM 
RETURNS TO I-CYCLES. 

INTENT — FROM -8SWI- WHEN AN I/O INTERRUPT IS DETECTED. 

ADDR WORD SEQUENCE NO. LABEL NEXTSEQ NEXTLABEL STATEMENT 



BYTE CHANNEL ENTRY POINTS 

ENTRY1 -- FROM -DCLA- I/O INSTRUCTIONS ROUTINE WHEN 
AN ACTIVE TEST I/O IS DECODED. 

ENTRY2 — FROM -DCLA- WHEN AN INACTIVE TEST I/O IS 

DECODED. 



COMMENTS 







DCLT 


0C1 


T 


1C28 


C62F 


OCLT 


00 3 


TESTIO 


1C2A 


2 00 7 


DCLT 


004 




1C2C 


A262 


DCLT 


005 








DCLT 


006 


* 






DCLT 


00 7 


* 


1C26 


AFCA 


DCLT 


0C8 


ADRO 


IC2E 


2 4F6 


DCLT 


00 9 


ACTIVE 


1C30 


ECA6 


DCLT 


010 




1C32 


F02 6 


DCLT 


Oil 




1C34 


2400 


DCLT 


012 




1C36 


5202 


DCLT 


013 




1C38 


6311 


DCLT 


014 




1C3A 


C4A6 


DCLT 


015 




1C3C 


2 4F6 


DCLT 


016 




1C3E 


C142 


DCLT 


017 


ADR1 


1C40 


3485 


DCLT 


018 




1C42 


70F2 


DCLT 


019 


SKIP 


1C44 


5419 


OCLT 


020 




1C46 


5209 


DCLT 


021 




1C4S 


445 2 


DCLT 


022 




1C4A 


7432 


DCLT 


023 




1C4C 


004 


DCLT 


024 




1C4E 


70E2 


DCLT 


025 


REDUC 


1C50 


0D40 


DCLT 


02 6 




1C52 


021E 


DCLT 


027 


SAVE1 


1C54 


2 400 


DCLT 


02 8 




1C56 


4652 


DCLT 


029 




IC58 


2B87 


DCLT 


031 




1C5A 


52AC 


DCLT 


032 




1C5C 


526F 


DCLT 


033 




1C5E 


5 66B 


DCLT 


034 




1C60 


5212 


DCLT 


036 




1C62 


5 OF 2 


OCLT 


037 




1C64 


5EE2 


DCLT 


03 8 




1C66 


1F13 


DCLT 


039 





CHANNEL TEST 
009 ACTIVE 



DCLH 006 ADRO 



CCOM 162 CC2B 

008 ADRO 
COS ADRO 



C08 ADRO 
019 SKIP 



I/O AND I/O INTERRUPT 
BR IF DO BIT0=1 BR IF ACTI 

U0=0 SET UO FOP 

BR GO SFT UP 



BR 

SET MODE K=3F 
BR IF GS2=0 ** 
BR IF GO BIT7=0 
SET MODE K=00 
RDH V DA, 88 
V1 = VKU1 
BR IF ZNZ 
SET MODE K=3F 
BR IF G14=0 
G0=G0$K80 
STH U DA, BE 
U1 = G0 

uo=vo 

RDH G DC,9A 

STH G DA,8E 

RST GB K = 20 

STH U DA,BC 

RST GB K=04 

RST MMSK K=71 

SET MODE K=00 

RDH D DC,9A 

T1=0$K88 

ISK STPO AS,T+2 

D0=STP0 

00=D0H 

RDH V DA,8A 

RDH U DA, BE 

RDH H DA,BC 

H1=H1*-K01 



BR 



BR TO 
SET C 
IF FILE 
BR IF 
SWITC 

ADDRE 
BR IF 
SET B 
BR IF 
SET P 

SAVE 
MOVE 
UNIT 
READ 
ZERO 
RST B 
STORE 

RST 
ALLOW 



CC2 

HNL M 

IS A 

NO S 
H BAC 
READ 
SS MA 

NO M 
ACK T 

NO P 
CI 

COUN 
STATU 
STATU 
ZERO 
OUT U 
URST 

STAT 
INT 

TRAP 



H.E. 
VE B 

TES 
MODE 

RET 

UNI 
SET 
ODE 
CTIV 
TATU 
K TO 
INT 
TCH 
ATCH 
CH 
CI 

T 
S 
S 

CONSTANT INTO 
NIT ADDRESS 
LATCH 
US 



S 



BERKEBILE 
IT ON 
T I/O 

AND ZONE 
REIVE STATUS FROM 
T 

S ZONE 

E-NOT CHANNEL 

S RECEIVED 

CPU MODE € ZONE 
BUFFER 



NL MODE £ ZONE 



READ ZERO CONSTANT INTO D 
GET 
PROTECT 
KEY 

CCW ADDRESS 
COUNT 

STATUS 
RST INT. BIT 



ADOR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CL0AD=*E60, 
COMMENTS 



EC LEVEL= 128266 PAGE 183 



1C68 
1C6A 
1C6C 
1C6E 
1C70 
1C72 

2218 
221A 
221C 
221E 
2220 
2222 

2224 
22 26 
2228 
222A 
222C 
222E 
2230 
2232 
2234 
2236 
2238 
223A 
223C 
223E 
2274 
2276 
2278 
227A 
227C 
227E 
2280 
2282 
2284 
2286 
2288 
228A 



A 02 4 
8C7A 
5A2 2 
2A13 

2 400 
A43E 

3 000 
2480 
5432 
C42 5 
E9A8 
A6FC 

D9A3 
C9A3 
5A02 
2A15 
7A2 2 
2A13 
C464 
2AQ7 
2413 
2 4F6 
221F 
FC74 
1413 
9C3E 
1583 
FCFA 
348 3 
040 
2 470 
74A2 
7 OF 2 
2 40 
5BA2 
3B85 
7AE2 
9C5 2 



DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 
DCLT 



DCLT 


003 


DCLA 


122 


DCLT 


008 


DCLT 


010 


DCLT 


009 


DCLT 


003 


DCLT 


017 


DCLT 


071 


OCLT 


019 


DCLT 


017 


DCLT 


027 


DCLT 


C3 3 


DCLT 


041 


DCLC 


058 


DCLT 


047 


BSWI 


134 



04 
041 
042 
043 
044 
045 
046 
04 7 
049 
050 
051 
052 
053 
054 
055 
056 
060 
061 
062 
063 
064 
065 
066 
06 7 
D68 

06 9 
070 
071 

07 2 
073 
074 
075 
076 
077 
078 
079 

08 
081 
082 
08 3 



INTRTX 



I NTRTN 



INTENT 



CCOM 127 
CCOM 187 



CSWADR 
RESTRH 



DCHN 105 USECOM 



F INT 

ACTON 

INACHL 



055 

06 

FINT 002 

053 
053 



ACTPCI 

NQCDZ 



072 
017 
075 



02 7 



DCLT Oil DCLT 015 



ACTON 

INACHL 

INTRPT 

F INT 
F INT 



DCLH 00 7 ADROA 



ACTPCI 
A DR 1 

NOCDZ 



SAVE1 

* CROSS R 



BAL 
BAL 

RDH 
T0 = 
SET 
BR 

SET 
SET 

RDH 
BR 

BR 
BR 

BR 

BR 

RDH 

T0= 

STH 

T0= 

BR 

T0 = 

G0 = 

SET 

SET 

BR 

GO 

BR 

Gl = 

BR 

G0= 

RST 

SET 

STH 

STH 

SET 

RDB 

Tl = 

STH 

BR 

EFER 



STORE CSW SO=1FOR INT.RTN 
RESTORE CPU HI 
T DA,8C UNIT ADDRESS FOR INT. 

0$K01 FIX CHANNEL ADDRESS 

MODE K=00 

GO TAKE INTERRUPT 

SO SET THE RETURN FLAG 

MODE K=08 FILE MODE 

G DA,8E 

IF GO BIT0=1 

IF FFI6=0 



IF FFI5=1 

IF FFI4=1 

T DA, 88 

0$K10 

T DA,8C 
0$K01 



IF GO BlTO=0 



0$K01 

MODE 

MMSK 
IF GO 



BR IF PCI LATCH IS ON 

RD UNIT IDENT HWD FROM IB 

SET TO TO TEST I/O INDICATOR 

TEMP STORE UNIT ADDRESS 

SET TO TO CHNL ADDRESS 

BR IF NOT ACTIVE 



K = 3F 
K=7l 
BIT7=0 



G0*-K01 

Gl*-K08 

IF GS3=0 

G0$K08 
GB K=04 
MODE K=07 
G DA, AC 
U DA, BE 
MODE K = OC 
Tl DA, AC 

T1SK80 
T DA,BC 



SET GO FOP INTERRUPT 
SET CHNL MODE £ ZONE 
SET PRIORITY HOLD 

BR IF NOT FROM INT 
RESET GO BIT7 
BR TO CSW STORE 
TURN OFF PCI IN OPFLG 

BR IF NO PARITY ERROR 

SET DATA CHECK 
RST INT. LATCH 

SET CHANNEL ZONE-CPU MODE 
STORE STATUS 
STORE COUNT 

GET CHAN STATUS 

SET PCI 

STORE STATUS WITH PCI 



&####&)£&&##$: jfc & jjc sfs # 3$c $ j$c # 

ENCE FOR CSECT DCLT * 

###&&### ^# ^:# # s§j< # j$e ## jfc # # 



DCLT 


53 


DCLT 


055 


DCLT 


055 


DCLT 


051 


DCLT 


060 


DCLT 


052 


DCLT 


072 


DCLT 


06 9 


DCLT 


075 


DCLT 


07 3 



* CROSS REFERENCE FOR CSECT DCLT * 
********************************** 
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DCLT 056 



DCOM — COMMON I/O ROUTINES 

THESE COMMON ROUTINES ARE EMPLOYED BY THE I/O ROUTINES FOR 
THE NATIVE DEVICES — PRINTER, READER-PUNCH, AND PR-KB. 

ENTRIES 

PC I BR ~ USED TO TRY FOR A PROGRAM-CONTROLLED INTERRUPT. 
IF THE PCI FLAG IS OFF, THE MICROPROGRAM RETURNS 
TO THE LINK ADDRESS. IF THE PCI FLAG IS ON, 
THE PCI-ALONE INDICATOR BIT IS SET FOR THE 
INTERRUPT BUFFER. FROM THIS POINT, PCI IS 
HANDLED THE SAME AS THE NORMAL INTERRUPT. 

INTRPT — NORMAL INTERRUPT ENTRY, I.E., WHEN CHANNEL-END 
AND/OR DEVICE-END STATUS IS READY. IF THE 
INTERRUPT IN I.B. BIT IS ON, THE DEVICE ALREADY 
HAS CONTROL OF THE I.B. OTHERWISE, THE ROUTINE 
MUST TEST TO SEE IF THE I.B. IS AVAILABLE. IF 
THE I.B. IS NOT AVAILABLE, THE INTERRUPT IS 
STACKED AMD ANOTHER REQUEST WILL OCCUR WHEN THE 
I .B. IS AVAILABLE. 
ADDR WORD SEQUENCE NO. LABEL NEXTSEQ NEXTLABEL STATEMENT 
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CHANOK 
REDSTR 



IF THE I.B 
INITIATED AS 



IS AVAILABLE, 
FOLLOWS. 



AN INTERRUPT IS 



1. SET CHANNEL INTERRUPT LATCH, S7. 

2. SET 1.8. BIT IN CHANNEL- STATUS REG. 

3. STORE UCW ADDRESS IN INTERRUPT BUFFER. 

4. STORE PCI-ALONE BIT IN I.B. IF THIS BIT 
TURNED ON AT -PC IBR- ENTRY. 

AFTER THE INTERRUPT IS INITIATED, THE MICRO- 
PROGRAM RETURNS TO THE LINK ADDRESS. 



USED TO UPDATE THE UCW. CHANNEL STATUS, 
FLAGS/OP, UNIT STATUS, AND COUNT ARE STORED 
IN THE UCW. IF COMMAND CHAINING, AND DEVICE- 
END IS SET, ENTRY IS TO -CHANOK- TO CLEAR 
THE UNIT STATUS REGISTER. 



WAS 



COMMENTS 







D C M 


GCl 


T 






DCOM 


00 2 


* 






DOOM 


003 


* 






DCOM 


CC4 


* 






DCOM 


00 5 


* 


OFBA 


C 174 


DCOM 


006 


PCI BR 


OFBC 


2683 


DCOM 


00 7 




OFBE 


F04 7 


DCHM 


COS 


INTRPT 


OFCO 


221E 


DCOM 


rif q 




0FC2 


C7EP 


DCOM 


010 




OFC4 


2C10 


DCOM 


Oil 




0FC6 


76D2 


DCOM 


012 


ITSME 


OFC8 


21 E 


DCOM 


013 




OFCA 


3 413 


DCOM 


014 




CFCC 


168 3 


HCOM 


015 




OFCE 


F75B 


DCOM 


02 5 


RSTREQ 


OFDO 


E75 7 


DCOM 


02 7 




DFD? 


COO 8 


DCOM 


028 




0FD4 


128E 


DCOM 


02 9 




OFDA 


E761 


DCOM 


030 


RDTW1 


OFDC 


0B20 


DCOM 


032 




OFDE 


128E 


DCOM 


033 




0FD6 


CF20 


DCOM 


034 


PCH1 


0FD8 


128E 


DCOM 


040 




OFEO 


CF24 


DCOM 


041 


TW1 


OFE2 


C866 


DCOM 


04 2 




OFE4 


1C83 


DCOM 


04 3 




0» r E6 


128E 


DCOM 


044 


TYREXT 


0FE8 


021E 


DCOM 


045 


IBTAKN 



COMMON I/O ROUTINES 

THIS ROUTINE TR I F S TO PUT THE NATIVE DEVICE INTO THE INTERRUPT 
BUFFER FOR PCI OR STATUS. 



BR IF NO PCI 
SET PCI ALONE 

BR IF SAME IN INT BUFFER 
BLOCK TRAPS 
BR IF IB FULL 
TAKE IT 
STORE ADDRESS IN IB 
ALLOW TRAPS 
SET IB BIT 

RST REQUEST, BR IF RDR OR TW 
BR IF PCH 

RST PTR REQUEST 

BR IF TW 
RST RDR REQUEST 

RST PCH REQUEST 
RST SHARE MICRO FORCE 

RST END STAT 
SOMEONE ELSE IN IB RST MMSK 



061 


RETURN 


BR IF G14=0 
D0=0$K08 




012 


ITSME 


BR IF G07=l 
SET MMSK K=71 




04 5 


IBTAKN 


BR IF BA BIT0= 

SET S7 

STH D DA,BA 

RST MMSK K-71 

G0=G0$K01 

D0=DC*-K08 


= 1 


030 


RDTW1 


BR IF Dl BIT3= 


= 1 


034 


PCH1 


BR IF Dl BIT2= 
RST PR A K=40 
RTN 


= 1 


041 


TW1 


BR IF Dl BIT2= 

RST R K=02 

RTN 

RST P K=02 

RTN 

RST TA K=22 


= 1 


044 


TYREXT 


BR IF P04=0 

P0=P0*-K08 

RTN 

RST MMSK K=71 





ADDR 


WORD 


SEQUENCE NO. 


LABEL 


OFEA 


1683 


DOOM 


046 




OFEC 


D575 


DOOM 


04 7 




OFEE 


F77B 


DOOM 


057 




OFFO 


F777 


DCOM 


059 




OFF? 


2088 


DCOM 


060 




0FF4 


128E 


DCOM 


061 


RETURN 


OFFA 


E735 


DCOM 


062 


RDTW2 


OFFC 


2B30 


DOOM 


064 




OFFE 


128E 


DCOM 


065 




0FF6 


2F30 


DCOM 


066 


PCH2 


OFFB 


128E 


DCOM 


07? 




0FB4 


C838 


DCOM 


073 


TW2 


0FB6 


2F04 


DCOM 


074 




0FB8 


128E 


DCOM 


075 


TWREXT 






DCOM 


076 


* 






DCOM 


077 


* 






DCOM 


07 8 


* 






DCOM 


079 


* 


3404 


2 EC 7 


DCOM 


080 


CHANOK 


3406 


746 8 


DCOM 


081 


REOSTR 


3408 


7E68 


DCOM 


082 




340A 


7060 


DCOM 


083 




340C 


C511 


DCOM 


C84 




340E 


2A0 7 


DCOM 


085 




3410 


128F 


DCOM 


086 


RETUN 



NEXTSEQ 



061 
062 
06 6 



NEXTLABEL STATEMENT 



CL0AD=*E60, 

COMMENTS 
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RETURN 

RDTW2 

PCH2 



07 3 T W2 



075 TWREXT 



D0=D0*-K08 

BR IF Gll=l 

BR IF Dl BIT3=1 

BR IF Dl BIT2=1 

SET PRA K=48 

RTN 

BR IF Dl BIT2=1 

SET R K=Q3 

RTN 

SET P K=03 

RTN 

BR IF P04=0 

SET TA K=20 

RTN 



RST PCI ALONE 
DONT QUE PCI CMND CHAIN 
SET QUE AND REQ.,&R IF RDR OR TW 
BR IF PCH 
SET PTR REQUEST AND QUE 

BR IF TW 

SET RDR REQUEST AND QUE 

SET PCH REQUEST AND QUE 



SET 1052 MICRO FORCE 



THIS ROUTINE 
THE COUNT OF 



STORES THE 
THE NATIVE 



CHNL STATUS, FLAGS, UNIT STATUS AND 
DEVICE INTO ITS UCW. 



086 RETUN 



H0=0 

STH G AS,D+2 

STH H AS,D+2 

STH U AS,D+0 

BR IF Gl BIT0=1 

T0 = 

RTN 

* CROSS REFERENCE FOR CSECT DCOM * 



STORE COUNT 
BR IF CDA 
RST TO 



DCOM 


006 


DPTR 


06 9 


DYPE 


040 


DCOM 


008 


DPTP 


075 


DYPE 


013 


DCOM 


012 


DCOM 


COB 






DCOM 


025 


EPRO 


03 7 


ERRQ 


051 


DCOM 


030 


DCOM 


025 






DCOM 


034 


DCOM 


027 






DCOM 


041 


DCOM 


030 






DCOM 


044 


DCOM 


042 






DCOM 


045 


DCOM 


010 






DCOM 


061 


DCOM 


006 


DCOM 


047 


DCOM 


062 


DCOM 


05 7 






DCOM 


066 


DCOM 


059 






OCOM 


73 


DCOM 


06? 






DCOM 


75 


DCOM 


073 






DCOM 


080 


DPTP 


073 


OPTS 


142 


DCOM 


081 


DPTR 


C7 6 


DYPE 


238 


DCOM 


86 


DCOM 


084 







DYPE 086 



ERRQ 047 



ADOR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CLOAD=*E60, 

COMMENTS 
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OMCS 


GDI 


T 






DMCS 


002 


* 


237E 


1E7D 


DMCS 


00 3 


CD737B 


2380 


E09C 


DMCS 


004 




2382 


E81C 


DMCS 


005 




2384 


EB09 


DMCS 


006 




2386 


F21D 


DMCS 


00 7 




2388 


2C75 


OMCS 


009 


RSTBIT 


238A 


2 00 5 


DMCS 


013 




238C 


53C0 


DMCS 


014 




238E 


1385 


DMCS 


015 




23 90 


CA15 


OMCS 


016 




239? 


3385 


D MC S 


017 




2394 


73C0 


OMCS 


018 


ADACHK 


2396 


8C5 8 


OMCS 


019 




2398 


EE4A 


OMCS 


020 


EBF3FB 


239A 


EBIF 


MC S 


021 




239C 


8C5C 


OMCS 


02 2 


CMDREJ 


23CA 


F21D 


DMCS 


023 


G AT EL D 


23CC 


3F23 


D^CS 


024 




23CE 


8C58 


DMCS 


02 5 




239E 


74E2 


DMC S 


026 


LOADOK 


23A0 


7 6F2 


OMCS 


027 




23A2 


2FIC 


OMCS 


02 8 








DMCS 


029 


* 






DMCS 


30 


* 






DMCS 


031 


* 


23A4 


2 713 


DMCS 


032 




23A6 


72A2 


DMCS 


03 3 




23A8 


2 42 7 


DMCS 


034 




23AA 


2 5A3 


DMCS 


03 5 




23AC 


4148 


DMCS 


03 6 


TRYLEN 


23AE 


51C9 


OMCS 


03 7 




23B0 


4826 


DMCS 


038 




23R2 


691B 


DMC S 


039 




23B4 


68AD 


OMCS 


040 




23B6 


5 83 8 


OMCS 


041 


COMPAR 


23B8 


5D98 


DMCS 


042 




238A 


2C1B 


OMCS 


043 




23BC 


6BD1 


D MC S 


044 




23BE 


C4D1 


OMCS 


04 5 




23C0 


5 2A2 


OMCS 


046 


MOTLEN 


23C2 


6773 


DMCS 


047 




23C4 


072C 


OMCS 


048 




23C6 


21F5 


DMCS 


049 




23C8 


A 304 


DMCS 


050 




23D0 


CCFD 


OMCS 


051 


EQUAL 


2302 


C4B6 


DMCS 


052 




23D4 


4 97F 


DMCS 


05 3 


SETHDW 


23D6 


2C75 


OMCS 


055 




23D8 


2005 


OMCS 


059 





MCS LOAD ROUTINE KREPPEL 



OPTS 



OPTS 



OPTS 







H0=H0<K70 


C2 2 


CMDREJ 


BR IF HZNZ 


022 


CMDREJ 


BR IF P06=0 


009 


RSTBIT 


BR IF H16=l 


02 2 


CMDREJ 


8R IF 007=1 
P0=0$K7O 
P1=0$K00 
RDB VI AStP 
V1=V1*-K80 


018 


ADACHK 


BR IF H04=l 
V1=V1$K80 
STB VI AStP 


12 5 


NOOP 


BR 


C23 


GAT ELD 


BR IF H02=0 


026 


LOADOK 


BR -IF H16=l 


131 


CMDREJ 


BR 


C2 2 


CMDREJ 


BR IF 00 7=1 
H1=H1$K02 


125 


NOOP 


BR 

STH G DA,BC 
STH D DA, BE 
SET PR8 K=01 



051 EQUAL 

036 TRYLEN 

053 SETHDW 

041 COMPAR 



D1=0$K01 

STH V DA, AC 

G0=0$K22 

G1=0$K0A 

RDB Ul CS,G+1 

P0=U1 

I=V 

UC=U + U1 

IOC=IO+TO+C 

RDB Tl V + l 

RDB PI 1+1 

P0=P0+K01 

T1 = TKP1 

BR IF Z = 

RDH V DA, AC 

01=01+01 

BR IF D11=0 

U1=0$KF0 

BR 

Z=PO<KFO 

BR IF ZNZ 

PCCL=D1 

P0=0$K70 

P1=0$K00 



COMMAN 
COMMAN 
BR IF 
BR IF 
SET XL 
SET AD 
READ P 
RESET 
BR IF 
SET BL 
RES TOR 
GO TO 
BRANCH 
BR IF 
GO TO 
BR IF 
SET GA 
GO TO 
SAVE G 
SAVE D 
SET DI 



D REJE 
D REJE 
GATF L 
NOT FI 
ATE TA 
OR TO 
CCL CO 
BLOCK 
ALLOW 
K DATA 
E PCCL 
NO-OP 

IF EB 
GATE L 
COMMAN 
NOT FI 
TE LOA 
NO-OP 

REG 

REG 
AG NO ST 



CT IF NOT 7X CMD 
CT IF NOT 73 OR 7B 
OAD TAG IS ON 
RST CMD IN CHAIN 
BLE ADDR FOR NO 24K 
7X00 OR 9X00 
NSTANT 

DATA CHECK BIT 
DATA CHK *7B CMD* 

CHK BIT *73 CMD* 

CONSTANT 

**GATE LOAD** 
OAD TAG **F3 OR FB** 
D REJECT 

RST CMD IN CHAIN 
D TAG 



IC DECODE 4 



DETERMINE CHAIN LENGTH ROUTINE 



BUILD INIT 
SAVE INI TI 
BUILD ADDR 

TABLE OF 
READ COUNT 
SET COUNTE 
BUILD ADDR 

EQUAL TO 
PLUS T 
READ DATA 
READ DATA 
INCREMENT 
COMPARE DA 
BR IF DATA 
RESTORE DA 
UPDATE PCC 
BR IF CONS 
SET CHAIN 
GO TO SET 
TEST FOR L 
GO BACK IF 
SET HDWR L 
BUILD XLAT 
SET ADDR T 



IAL PCCL CONSTANT 
AL DATA ADDRESS 
ESS OF THE 

CHAIN LENGTHS 
ER LENGTH FROM TABL 
R TO CHAIN LENGTH 
ESS 

DATA ADDRESS 
HE CHAIN LENGTH *T0=0* 
BYTE 1 
BYTE 2 
COUNTER 
TA BYTES 

BYTES EQUAL 
TA ADDRESS 
L CONSTANT 
TANT NO LENGTH 240 
LENGTH TO 240 
PCCL FOR LENGTH 240 
AST COMPARE 

NOT LAST COMPARE 
ATCH TO CHAIN LENGTH 
E TABLE ADDR FOR N024K 
7X00 OR 9X00 



ADDR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E60 f 

COMMENTS 
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23DA 


5 5CC 


DMCS 


060 








23DC 


C560 


DMCS 


061 




06 3 


RESTG1 


23DE 


3785 


DMCS 


062 








23E0 


2 50 5 


DMCS 


063 


RESTG1 






23 E 2 


52A? 


DMCS 
DMCS 
DMCS 

DMCS 


064 
065 
066 
067 


* 
* 
* 






23E4 


2BF7 


DMCS 


068 








23E6 


7BC8 


DMCS 


069 


CLEAR 






23E8 


F866 


DMCS 


070 




06 9 


CLEAR 


23EA 


2R0 5 


DMCS 


07 1 








23EC 


B24 8 


DMCS 
DMCS 
DMCS 
D MC S 


072 
073 
07 4 

075 


* 
* 
* 


081 


STZERO 


32 3E 


5 03 8 


D MC S 


076 


RDLOOP 






324G 


3585 


DMCS 


077 








3242 


2816 


MC S 


07 8 








3244 


7BC0 


DMCS 


079 


STL OOP 






3246 


FE4F 


DMCS 


080 




084 


NOFOLD 


3248 


2D4D 


DMCS 


081 


STZERO 






324A 


2 640 


DMCS 


082 








324C 


F4C4 


DMCS 


08 3 




07 9 


STL OOP 


3?4E 


CBE7 


DMCS 


084 


NOFOLD 


10 


CKLAST 


32 50 


D76 7 


DMCS 


085 




100 


CKLAST 


3252 


C56 6 


D MC S 
DMCS 
DMCS 
DMCS 


086 
087 
08 8 
08 9 


* 

* 
* 


100 


CKLAST 


3254 


2515 


DMCS 


090 








32 56 


C167 


DMCS 


09 1 


RDLIST 


100 


CKLAST 


3258 


4948 


D^CS 


092 








325A 


6 9D1 


DMCS 


093 








325C 


C4D6 


DMCS 


094 




091 


RDLIST 


32 5E 


F163 


DMCS 


095 




097 


ADDROK 


3260 


6446 


DMCS 


09 6 








3262 


4D40 


DMCS 


097 


ADDROK 






3264 


B244 


DMCS 
D^CS 


09 8 
099 


* 


079 


STL OOP 


3266 


5B59 


OMCS 


100 


CKLAST 






3268 


6 511 


DMC S 


101 








326A 


C4RE 


DMCS 
DMCS 
DMCS 
DMCS 


102 

103 
10 4 
105 


* 

* 


076 


RDLOOP 


326C 


2 DO 5 


DMCS 


1C6 








326E 


7 7CC 


OMCS 


10 7 








3270 


5 4E2 


OMCS 


10 8 








3272 


5 6F2 


DMCS 


109 








3274 


210 5 


DMCS 


110 









RDB Gl AS,P 
BR IF G10=0 
D1=D1$K80 
Gl=0$K0O 
RDH V DA, AC 



T1=0$KFF 

STB Tl AS,P+i 

BR IF PG7=0 
T1=0$K00 

BR 



READ PCCL CONSTANT 

8R IF NO BLOCK DATA CHECK BIT 

SET BLOCK DATA CHK BIT FOR REGEN 

CLEAR Gl REGISTER 

RESTORE INITIAL DATA ADDRESS 



CLEAR MCS TABLE ROUTINE 

BUILD CLEAR CHARACTER 
CLEAR TRANSLATE 

TABLE TO FF 
BUILD 00 IN POS 40 
GO STORE 00 IN POS 



OF FF 



XLATE TBL 
40 XLATE TBL 



RDB PI V + l 

G1=G1$K80 

T1 = TH-K01 

STB Tl AS,P 

BR IF HO BIT3=1 

P1=P1+K40 

D0=DC+K4C 

BR IF DYN BIT3=0 

BR IF PRO BIT4=1 

BR IF Dl BIT1=1 

BR IF Gl BIT0=0 



Gl=0$K10 

BR IF Gl BIT4=l 

RDB II CS,G+1 

I1=I1<P1 

BR IF ZNZ 

BR IF Gl BIT7=1 

G=G-2 

RDB PI CS,G 

BR 

G1=T1 
G1 = GKU1 
BR IF ZNZ 



P1=0$K00 
STB Dl AS,P 
RDH G DA,BC 
RDH D DA,BE 
U1=0$KG0 



LOAD MCS TABLE ROUTINE 

READ CHAIN IMAGE BYTE 

TURN ON NEW CHARACTER SWITCH 

INCREMENT PRINT POSITION COUNTER 

STORE PRINT POS NUMBER IN TABLE 

BR AROUND FOLD ROUTINE IF ON 

PLUS 40 HEX TO ADDRESS FOR FOLD 

ADD 40 TO NUMBER OF FOLDS CTR 

STAY IN LOOP 4 TIMES 

BRANCH IF NOT DUALING 

BR AROUND DUAL RTN IF 240 CHAR 

BR IF NEW CHARACTER SWITCH OFF 

DUALING ROUTINE 

SET REG TO DUALED PAIR LIST 
BR WHEN REG POINTS PAST LIST 
GET ONE OF THE DUALED CHARACTERS 
COMPARE TO CHAIN IMAGE CHARACTER 
BR IF NOT EQUAL 

BR IF MATCH WAS FIRST OF PAIR 
SET ADDR TO CHAR TO BE DUALED 
GET TABLE ADDR OF DUALED CHAR 
GO STORE PRINT POSITION NUMBER 

IN DUAL CHARACTER POSITION 
TEST FOR 

LAST CHARACTER 
BRANCH IF NOT LAST CHARACTER 

END HOUSEKEEPING 

SET ADDR TO 70C0 & 90C0 
STORE PCCL CONSTANT IN TABLE 
RESTORE G REG 
RESTORE D REG 
ZERO COUNT 
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AOOR WORD SEQUENCE NO. LABEL NEXTSEO NEXTLABEL STATEMENT COMMENTS 

3276 2E43 DMCS 111 HO=0$K04 SET DEVICE END 

3278 8D48 OMC S 112 DPTR 055 CHEND BR GO TO CHANNEL END ROUTINE 

DMCS 113 * 

DMCS 114 ATABLE ADDR=220A 

22CA 1028 DMCS 115 C XCTL ' 1028303C 50 784C5D6C4D7C7D7B 7E ' 



DMCS 116 AEND 



* CROSS REFERENCE FOR CSECT DMCS * 

9§C 3JC 3^C ^C 3$C ^C 3$C 3^ 3(}C ?(( 3$C >{C 3$C 3^C 3$S 3$S 3^ 3^C 3$C 9$C 3^C 3^C 9^C 9JC 3^C 3$C 9JC 3$C 9$C 3$C 3^ ^C 3$S S^C 



DMCS 003 OPTS 077 

DMCS 009 DMCS 00 6 

DMCS 018 DMCS 016 

DMCS 020 DPTS 093 

DMCS 022 DMCS 004 DMCS 005 OMCS 007 DMCS 023 

DMCS 23 OMCS 20 

DMCS 026 DMCS 021 

DMCS 036 DMCS 048 

DMCS 041 DMCS 05 2 

DMCS 051 DMCS 045 

DMCS 053 DMCS 050 

DMCS 063 DMCS 061 

DMCS 069 DMCS 07 

DMCS 076 DMCS 10 2 

DMCS 079 DMCS 033 DMCS 098 

DMCS 081 DMCS 072 

DMCS 084 DMCS 0«0 

DMCS 091 DMCS 094 

DMCS 097 DMCS 095 

DMCS 100 DMCS 084 DMCS 085 DMCS 086 DMCS 091 



AODR 



WORD SEQUENCE NO 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CLOAD=*E60, 
COMMENTS 
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DDTC 


001 


T 


OPTC 


DC 2 


* 


DPTC 


00 3 


# 


DPTC 


004 


* 


DPTC 


00 5 


* 


DPTC 


006 


* 


OPTC 


007 


* 


DPTC 


OCR 


* 


DPTC 


009 


* 


DPTC 


010 


* 


DPTC 


Oil 


* 


DPTC 


012 


* 


DPTC 


013 


* 


DPTC 


014 


* 


OPTC 


015 


* 


DPTC 


016 


* 


DPTC 


017 


* 


DPTC 


018 


* 


DPTC 


019 


* 


DPTC 


020 


* 


DPTC 


021 


* 


DPTC 


022 


* 


DPTC 


023 


* 


DPTC 


02 4 


* 


DPTC 


02 5 


* 


DPTC 


026 


* 


DPTC 


027 


* 


DPTC 


02 8 


* 


DPTC 


029 


* 


DPTC 


03 


* 


DPTC 


031 


* 


DPTC 


032 


* 


DPTC 


033 


* 


DPTC 


034 


* 


DPTC 


035 


* 


DPTC 


036 


* 


DPTC 


03 7 


* 


DPTC 


038 


* 


DPTC 


039 


* 


DPTC 


040 


* 


DPTC 


041 


* 


DPTC 


042 


* 


DPTC 


043 


* 


DPTC 


044 


* 


DPTC 


045 


* 


DPTC 


046 


* 


DPTC 


04 7 


* 


DPTC 


048 


* 


OPTC 


04 9 


* 


OPTC 


050 


* 


OPTC 


051 


* 



1403 PRINT BUFFER SCAN ROUTINE 

THIS ROUTINE CAN BE USED TO DISPLAY THE CONTENTS OF THE 1403 PRINT 
LINE BUFFER <PLB). THE PLB CONSISTS OF 8 OATA PLANES PLUS A PARITY 
PLANE. IN ADDITION THERE ARE 4 CHECK PLANES WHICH ARE USED TO 
INDICATE THE CAUSE OF A HAMMER CHECK AT THE END OF A PRINT OPERA- 
TION. THIS ROUTINE WILL PRINT A 4-CHARACTER GROUP ON THE 1052 FOR 
EACH PRINT POSITION IN PRINT POSITION SEQUENCE. A SPACE WILL OCCUR 
BETWEEN EACH GROUP. AT THE END OF 16 GROUPS A NEW LINE WILL 
STARTED. THE PRINT-OUT WILL CONTINUE UNTIL 132 GROUPS HAVE 
PRINTED. THIS ROUTINE IS ENTERED BY USING THE ALTER /D I SPL AY KEY. 
•DB» IS THEN TYPED ON THE 1052. THE 132 GROUPS ARE PRINTED OUT 
WITHOUT ANY FURTHER OPERATIONS. »EOB» AND 'CANCEL' ARE INEFFECTIVI 
DURING THE PRINT-OUT. AT THE END OF THE PRINT-OUT THE OPERATION 
RETURNS TO THE ALTEP/DI SPLAY ROUTINE FOR ADDITIONAL ALTER/DISPLAY 
OPERATIONS OR FOR RETURN TO CPU CONTROL. 

THE FIRST CHARACTER OF EACH GROUP IS THE CONTENTS OF THE CHECK 
PLANES. LISTED BELOW ARE THE CHARACTERS WHICH MAY BE PRINTED AND 
THE CONDITIONS THEY REPRESENT. AHDO MEANS ADDRESSED HD OFF. 



BE 
BEEN 



0,6 

1,2,3 
4 

5, 7, CD 

8 
9 



IF A COIL PROTECT CHECK 



IF A 



MAY OCCUR 

PRINTING 

SHOULD NOT OCCUR 

MAY OCCUR ON A 1403-N1 

TERMINATED PRINTING 

SHOULD NOT OCCUR 

PRINTED PROPERLY 

NO COMPARE OCCURRED AFTER 

HAD TAKEN PLACE 

AHDO CIRCUIT INDICATED 



TERMINATED 

***N0 ERROR*** 



COIL PROTECT CHECK 

***N0 ERROR*** 



THE 

WAS 
THE 
WAS 



***N0 ERROR*** 
SUFFICIENT PRINT SCANS 

***ERR0R*** 
THAT A HAMMER DRIVER 



ON, BUT NO COMPARE HAD OCCURRED. ***error*** 
AHDO CIRCUIT INDICATED THAT A HAMMER DRIVER 
ON, BUT BUT A PLC BIT WAS ON DUE TO A 
BLANK OR PREVIOUS PRINTING ***ERROR*** 

E A COMPARE OCCURRED, BUT THE AHDO INDICATED 

THAT THE HAMMER DRIVER DID NOT TURN ON. ***ERRGR*** 
F A COMPARE OCCURRED, BUT A PLC BIT WAS ON DUE TO 

A BLANK OR PREVIOUS PRINTING. ***pr RO r#** 

IF A COIL PROTECT CHECK OCCURRED DURING PRINTIN, AN »A* OR »B» 
CODE SHOULD BE PRESENT FOR THE POSITION CAUSING THE CHECK. 

THE SECOND CHARACTER OF EACH GROUP IS USED TO INDICATE THE PARITY 
CONDITION OF THE DATA PLANES. A «1» INDICATES A PLB PARITY CHECK. 

THE THIRD AND FOURTH CHARACTERS OF EACH GROUP DISPLAY THE PRINT DATA 
IN THE DATA PLANES OF THE PLB AS FOLLOWS. 



PLB 128 



PLB 8 



ADDR 



WORD SEQUENCE NO, 



LABEL 



NFXTSEQ NEXTLABFL STATEMENT 



CL0AD=*E60, 
COMMENTS 
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DPTC 


052 


* 






DPTC 


053 


* 






DPTC 


054 


* 






DPTC 


055 


* 






DPTC 


056 


* 






DPTC 


05 7 


* 






DPTC 


058 


* 


2F78 


2185 


DPTC 


05 9 


START 


2F7A 


213B 


DPTC 


060 




2F7C 


5 40 4 


DPTC 


061 




2F7E 


2413 


D D TC 


06 2 




2F80 


8 SBC 


DPTC 


063 


FEED 


2F82 


2482 


DPTC 


064 


TOP 


2F84 


4F4F 


DPTC 


06 5 




2F86 


1D00 


DPTC 


066 




2F88 


2D04 


DPTC 


06 7 




2F8A 


2F10 


DPTC 


06 8 




2F8C 


5B2F 


DPTC 


069 




2F8E 


5F0F 


DDTC 


070 




2F9C 


10F3 


0°TC 


071 




2F92 


EA96 


DPTC 


072 




2F94 


3013 


DPTC 


073 




2F96 


2 40 4 


DPTC 


074 


NPCHK 


2F98 


2F43 


DPTC 


075 




2F9A 


5035 


DPTC 


07 6 


NEXT 


2F9C 


2 3FD 


DPTC 


077 


UNPACK 


2F9E 


C361 


DPTC 


07 8 




2FAC 


F4A4 


DPTC 


079 




2FA? 


73B1 


DPTC 


080 




2<=A4 


8 8CE 


D D TC 


081 


PRINT 


2FA6 


5 030 


DPTC 


08 2 




2FA8 


2FFF 


DPTC 


083 




2«=AA 


FB10 


DPTC 


084 




2FAC 


5209 


DPTC 


08 5 




2FAF 


EB1B 


DPTC 


086 




2FBO 


88CC 


DPTC 


087 




2FB2 


2 47B 


DPTC 


088 




2FB4 


2 4A0 


DPTC 


089 




2FB6 


F488 


DPTC 


090 




2FB8 


6413 


DPTC 


091 




2FBA 


2 42B 


DPTC 


092 


3VER88 


2FBC 


2 5FF 


DPTC 


093 




2PBE 


C4C2 


DPTC 


094 




2FCO 


A6AE 


DPTC 


09 5 




2FC2 


C54B 


DPTC 


09 6 


NOTEND 


2FC4 


F08 2 


DPTC 


097 




2FC6 


AF80 


DPTC 


09 8 





1 

2 
3 



PLB 
PLB 
PLB 



64 
32 
16 



5 
6 

7 



PLB 
PLB 
PLB 



4 
2 
1 



ALDP 



ALDP 



ALDP 



THE DATA LOADED IN THE PLB WAS OBTAINED AS A RESULT OF USING THE 
1403 TRANSLATE TABLE IN AUXILIARY STORAGE. 

SET ADDRESS CONSTANT TO 

HEX 83 (DECIMAL 131) 
CHARACTER COUNT Gl=84 (DEC 132 > 
SET PLBAR COUNT TO 01 
FORCE A LINE FEED 
SET 1403 MODE 
SET PLBAR 

RESET THE PARITY CHECK LATCH 
SET READ CONTROL 
SET DIAG DECODE 4 
READ BUFFER DATA REG 
READ DIAG BYTE 

CLEAR LOWER DIGIT OF CHECK PLANE 
TEST FOR PARITY CHECK 
SET PARITY CHECK BIT 
SET 1052 MODE 
RESET DIGIT COUNTER 
PREPARE TO UNPACK UPPER DIGIT 
UNPACK HEX TO EBCDIC, ADD FO 
TEST FOR DIGIT HIGHER THAN 9 
BR IF DIGIT IS THROUGH 9 
Tl=39 GET CI THRU C6 
GO TO TYPE CHARACTER ON 1052 
PREPARE TO UNPACK LOWER DIGIT 
DECREMENT DIGIT COUNTER 
BRANCH TO UNPACK LOWER DIGIT 
MOVE DATA BYTE TO PRINT REGISTER 
BR TO PRINT DATA CHARACTER 
GO TO SPACE BETWEEN CHAR GROUPS 



ALDP 







U1=0$K80 






U1=U1+K0 3 






G=U + 1 






G0=0SKC1 


241 


LINEFD 


BAL 

SET MODE K=18 

PR = G0 

RST PRA K=80 

SET PRA K=20 

SET PRB K=01 

VO=PRI 

UO=PRD 

UO=UO*-KOF 


074 


NPCHK 


BR IF PRS BIT6 

U0=U0$K01 

SET MODE K=20 

H1=0$KC4 

V1 = U0XL 

V1=V1+KF0 

Z=V1+K06 


08 1 


PRINT 


BR IF AC=0 
V1=V1-T1+1 


252 


TYPCHR 


BAL 

V1=U0L 

H1=H1+KFF 


07 7 


UNPACK 


BR IF HI 7 = 1 

uo=vo 


07 6 


NEXT 


BR IF H16=l 


251 


SPACE 


BAL 
G0=G0+K0 7 
GO=GC+KAO 


09 2 


0VER98 


BR IF AC=1 
G0=GC+U1 
G0=G0+K02 
G1 = G1+KFF 


096 


NOTEND 


BR IF ZNZ 


30 2 


RSTLCH 


BR 
Z=GKKC4 


064 


TOP 


BR IF LZNZ 


063 


FEED 


BR 



ADD DECIMAL 
BR IF PLBAR 
ADD DECIMAL 



167 TO PLBAR COUNT 
WAS OVER 88 
131 TO PLBAR COUNT 
ADD 2 TO PLBAR COUNT 
DECREMENT CHARACTER COUNT 
CONTINUE FOR 132 POSITIONS 
DONE-RETURN TO ALTER /D I SPLAY 
TEST FOR X4 PLBAR COUNT 
BR IF NOT X4-N0T END OF LINE 
END OF LINE- CAUSE A LINE FEED 



********* ************** *********** 

* CROSS REFERENCE FOR CSECT DPTC * 
********************************** 
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OPTC 


059 


At DP 


10 3 


DPTC 


063 


DPTC 


098 


DPTC 


064 


DPTC 


09 7 


DPTC 


074 


DPTC 


07? 


DPTC 


076 


DPTC 


08 6 


DPTC 


077 


DPTC 


084 


DPTC 


081 


DPTC 


079 


DPTC 


092 


DPTC 


090 


DPTC 


096 


DPTC 


094 
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OPTO DESCRIPTIVE TEXT 



ENTRY POINTS 



PTRRFQ - ENTRY IS MADE AT THIS LABEL FROM THE -BSWI- 
ROUTINE. BIT 7 OF THE EXTERNAL { PRS) HAD 
BEEN TESTED AND FOUND TO BE ON. THIS 
INDICATES THAT A PRINT REQUEST HAS BEEN 
GENERATED. 



A DDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



COMMENTS 







DPTQ 


001 


T 






DPTQ 


00 2 


* 


3QC4 


4642 


DPTQ 


003 


PTRREQ 


3CC6 


8F74 


DPTQ 


00 4 




30C8 


D158 


DPTO 


00 5 




30CA 


C46 8 


DP TO 


006 




30CC 


CED4 


DPTQ 


00 7 




30CE 


8F0C 


DPTQ 


008 


CH12 


30 DO 


0EC3 


DPTQ 


009 




30 02 


FOEO 


DPTQ 


010 




30D4 


D562 


QPTQ 


Oil 


C HA INC 


30D6 


8064 


DPTQ 


012 




30 D 8 


C46 5 


DPTO 


013 


NACTIV 


30 DA 


CAE8 


DPTQ 


014 




30DC 


3485 


DPTQ 


1 5 




30DE 


2E43 


DPTQ 


016 




30 EO 


15C5 


OPTO 


017 


RSTCHN 


30E2 


806 8 


DPTO 


01 8 


TAKEIN 


30E4 


CECF 


DPTO 


019 


DEVEN1 


30E6 


DA63 


DPTQ 


020 




30 E 8 


AB2C 


DPTQ 


021 


IFCHEK 



1403 INTERRUPT REQUEST ROUTINF 



DPTO 


003 


B S W I 


10 3 


DPTO 


008 


DPTQ 


019 


DPTQ 


Oil 


DPTQ 


007 


DPTQ 


013 


DPTQ 


005 


DPTQ 


017 


DPTQ 


010 


DPTQ 


018 


DPTO 


Oil 


DPTQ 


019 


DPTO 


013 


DPTQ 


021 


DPTQ 


00 6 



ERRQ 



DPTT 



DPTR 



DPTR 



BSWI 



DPTQ 020 



DPTQ 014 







RDH D 


DC, 98 


079 


RDCONT 


BAL 




013 


NACTIV 


BR IF 


G15=0 


021 


IFCHEK 


BR IF 


GO 0=0 


Oil 


CHAINC 


BR IF 


PRS0=G 


071 


SENCHK 


BAL 








Z = H0*- 


-KOC 


017 


RSTCHN 


BR IF 


LZNZ 


018 


TAKEIN 


BR IF 


011=0 


073 


CHAIOK 


BR 




019 


DEVEN1 


BR IF 


GO 0= 1 


021 


IFCHEK 


BR IF 


PRS4=0 



G0=G0$K80 

H0=0$K04 

G1=G1*-KC0 
075 TAKEIN BR 

008 CH12 BR IF PRS0=1 

018 TAKEIN BR IF H05=l 

107 RESTRH BR 

* CROSS REFERENCE FOR CSECT DPTQ * 



D=00C8 1403 UCW ADDRESS 

GET CH AND UNIT STAT AND COUNT 

BR IF NO ACTIVE FLAG 

BR IF NO SECONDARY 

BR IF NO EXT DEVICE END 

GO TO DEVICE END SENSE 

LOOK FOR UNIT CHECK OR 

UNIT EXCEPTION 

BR IF NO CMD CHAINING 

GO TO CMD CHAIN SET UP 

BR IF SECONDARY BIT 

BR IF NO INITIAL READY 

SET SECONDARY BIT 

SET DEVICE END 

RESET CHAINING 



BR IF EXT DEVICE END 

BR IF DEVICE END IN UCW 

RETURN TO NATIVE REQUEST 



DPTR DESCRIPTIVE TEXT 
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ENTRY POINTS 



WRITE - ENTRY IS HADE AT THIS LABEL FROM THE -DPTS- 
ROUTINE WHEN A 1403 WRITE COMMAND HAS BEEN 
DECODED. THIS ROUTINE LOADS DATA FROM THE 
CPU INTO THE PRINT LINE BUFFER. WHEN THE PLB 
COUNT AND THE UCW COUNT BOTH REACH ZERO, 
CHANNEL END IS SET. 

WXFER3 - ENTRY IS MADE AT THIS LABEL FROM THE -DPTS- 
ROUTINE WHEN DATA CHAINING IS IN EFFECT. 

CHEND - ENTRY IS MADE AT THIS LABEL FROM THE -DMCS- 
ROUTINE TO SET CHANNEL END AT THE COMPLETION 
OF AN MCS LOAD OPERATION. 

TSTCDA - ENTRY IS MADE AT THIS LABEL FROM THE -DPTS- 
"OUTINE TO TEST FOR CHAIN DATA AND THE SL I 
FLAG AND TO SET CHANNEL END FOR A SENSE 
COMMAND. ENTRY CAN ALSO BE MADE FROM THE 
-DYPE-, -EEDR- AND -ERDR- ROUTINES SINCE THEY 
ALSO ENTER THE -OPTS- SENSE ROUTINE. 

ENDOK - ENTRY IS MADE AT THIS LABEL FROM THE -DPTS- 
POUTINE TO SET CHANNEL END IF THE UCW COUNT 
WAS ONE. 



CCBR - ENTRY IS MADE AT THIS LABEL FROM THE -EEDR- 
AND -EXFR- ROUTINES TO TEST FOR CHAINING 
AND TO TAKE A CHANNEL END INTERRUPT. 

CHAINC - ENTRY IS MADE AT THIS LABEL FROM THE -DYPE- 
ROUTINE TO RESTORE THE P AND I REGISTERS, 
UPDATE THE UCW AND GO TO CHAINING. 

CHAIOK - ENTRY IS MADE AT THIS LABEL FROM THE -DPTQ-, 
-EERQ- AND -ERRQ- ROUTINES TO UPOATE THE UCW 
AND GO TO CHAINING. 

TAKEIN - ENTRY IS MADE AT THIS LABEL FROM THE -BWRP-, 
-DCLR-, -DPTQ-, -DPTS-, -EERQ-, AND -ERRQ- 
ROUTINES TO ATTEMPT TO TAKE AN INTERRUPT. 

STINST - ENTRY IS MADE AT THIS LABEL FROM THE -EEDR-, 
-ERDR- AND -EXFR- ROUTINES TO UPDATE THE UCW. 

IMMEDI - ENTRY IS MADE AT THIS LABEL FROM THE -DPTS-, 
-EEDR- AND -EXFR- ROUTINES TO PROVIDE CHANNEL 
END FOR AN IMMEDIATE COMMAND. 



AD DR 


WOR D 


SEQUENCE NO. 


LABEL 






OPTR 


G01 


T 






OPTR 


00 3 


* 






DPTR 


004 


* 






OPTR 


00 5 


* 






DPTR 


006 


ASEQ 


OCFO 


ER74 


DPTR 


007 


WRITE 


0CF2 


2D20 


OPT*? 


008 




0CF4 


2813 


DPTR 


009 


NOLOAD 


0CF6 


2985 


DPTR 


010 




0CF8 


2 93B 


DPTR 


Oil 




OCFA 


6A99 


OPTR 


012 




OCFC 


2C75 


DPTR 


014 




OCFE 


5D3 8 


DPTR 


01 8 


WXFER1 


ODOC 


5DB9 


D^TR 


019 




CD02 


C48D 


DPTR 


020 




0D04 


5 BCD 


DPTR 


021 




0D06 


CBFF 


DPTR 


022 




0D08 


C48C 


DPTR 


023 




ODOA 


3F83 


DPTR 


024 




ODOC 


4F8F 


DPTR 


^25 


WXFER2 


OOOE 


2 DO 4 


DPTR 


026 




0D10 


237B 


DPTR 


02 7 





NEXTSEQ 



NEXTLABEL STATEMENT 



COMMENTS 



009 NOLOAD 



1403 WRITE-CHANNEL END, AND CARRIAG 

*** WRITE COMMANDS **# 

AL07=70 

BR IF H16=0 

SET PRA K=02 

IC=0$K01 

I1=0$K80 

I1=I1+K03 

T0C=T0+I1+1 

PQ=0$K70 

RDB PI V+l 

T1 = P1 

BR IF Z = 

RDB Tl AS,P+0 

Z = TKKFF 

BR IF ZNZ 

H1=H1$K08 

PR=IO 

SET PRA K=20 

I0=I0*-K0 7 



025 WXFER2 



025 WXFER2 



BR IF NOT GATE 
SET BLOCK 2 HO 
SET PLBAR COUN 

SET ADDRESS CO 
TO WAS SET P 
SET PLB TABLE 
READ CHAR FROM 
POSSIBLE 
IF PI WAS 
CHAR FROM 



MOVE 
TEST 
READ 



BRANCH IF CHAR 
SET DATA CHECK 
LOAD PLBAR 
SET READ CONTR 
ADD7 TO PLBAR 



E CTRL ROUTINE 

LOAD TAG 
ME PULSES LATCH 
T 01 

NSTANT TO 131 
LBAR COUNT TO 132 
ADDR FOR NOT 24K 

DATA ADDR 
00 TO Tl 

00 

TABLE 

NOT FF 

IN UNIT SENSE 

OL 

COUNT--DELAY LOAD 



A DDR 

0D12 
0D14 
0D16 
GDI a 

0D1A 
OOIC 

OD1E 
GD20 
0D2 2 
0D24 
OD26 
0D2B 
OD2A 
GD2C 
GD2E 
0D30 
OD32 
0D34 
0D36 
0D38 
GD3A 
0D3C 
GD3E 
OD40 
GD4? 
OD44 
0D46 
QD48 
OD4A 



GD4C 
GD4E 
CD50 
0D5? 
0D54 
0056 
QD58 
0D5A 
005C 
005 E 
0D60 
0062 
0D64 
0D66 
0068 
006A 
0D6C 



WORD SEQUENCE NO. LABEL 



4BBF 
2 8AD 
F49B 
6893 

2 82B 
P42B 
5006 
C4A9 
2AFF 
C4B5 
8CEE 
C56 5 
2AFF 
C4B7 
3445 
2B05 
8 DOC 
3445 
EABE 
3E23 
3F15 
1545 
2005 
5 0CC 
CD4 6 
1F8 3 

3 DO 2 
1F23 
D456 



C55 5 

E554 
1445 
8D56 
1545 
3E83 
3485 
0568 
8FBA 
1E8 3 
DA6A 
8178 
B404 
95CA 
8FBE 
B40 6 
AB2G 



OPTR 
DPTR 

DPTR 
OPTR 
DPTR 
OPT" 
DPTR 
DPTR 
DPTR 
DPTR 
OPT*? 
OPTR 
DPTR 
OPTR 
OPTR 
DPTR 
OPTR 
DPTR 
DPTR 
DPTR 
DPTR 
DPTR 
DPTR 
DPTR 
DPTR 
DPTR 
DPTR 
0°TR 
DPTR 
QPJQ 
DPTR 
DPTR 
DPTR 
DPTR 
DPTR 
DPTR 
DPTR 
OPTR 
OPTR 
DPTR 
DPTR 
DPTR 
DPTR 
DPTR 
D P T R 
DPTR 
DPTR 
DPTR 
DPTR 
DPTR 
DPTR 



02 8 
029 

030 
031 
032 

03 3 
034 
035 
036 
03 7 

03 8 
039 
040 
041 
042 
043 
044 

04 5 
046 
047 
048 

04 9 
050 
051 
05? 
053 
054 

05 5 

05 6 
058 
059 
060 
061 
062 

06 3 
064 
065 
066 
067 
068 
069 
070 
071 
072 
073 
074 
075 
076 
077 
079 
080 



VERBS 



WXFER3 



COUNTO 
XFEROO 



WRGLEN 
XFREND 



MPCHK1 



CHKEND 
CHE NO 



* 



TSTCDA 

INCLEN 



MOSLI 

ENDOK 

CCBR 
CMDCHN 



C HA I NO 
CHAIOK 

TAKEIN 
STINST 



EXTSEO 


NEXTLABEL 


STATEMENT 

PR0=T1 
I0=I0+KA0 


032 


0VER88 


BR IF AC=1 
10=10+11 

I0=I0+KC2 


040 


XFEROO 


BR IF G01=i 
U=U~1 


039 


COUNTO 


BR IF Z=0 

T0=T0+KFF 


045 


WRGLEN 


BR IF Z = 


018 


WXFERl 


BR 


073 


CHAIOK 


BR IF G10=l 
T0=T0+KFF 


046 


XFREND 


BR IF 7=0 

G0=G0$K40 
T1=0$K00 


025 


WXFER2 


BR 
G0=G0$K40 


050 


NPCHK1 


BR IF PRS BIT6=0 
H0=HC$K02 
H1=H1$K10 
G1=G1*-K40 

P1=0$KC0 
RDB PI AStP 


054 


CHKEND 


BR IF P10=0 
H1=H1*-KQ8 
SET PRA K=90 
H1=H1*-K02 


066 


ENDOK 


BR IF G01=0 



CL0AD=*E60, 
COMMENTS 



EC LEVEL=128266 PAGE 195 



LOAD PLB 

ADD DECIMAL 160 TO PLBAR COUNT 

BR IF PLBAR WAS OVER 88 

ADD DECIMAL 131 TO PLBAR COUNT 

ADD 2 TO PLBAR COUNT 

BR IF INC LENGTH LOAD ZEROS 



UCW COUNT 
BR IF UCW 
PLB COUNT 
BR IF PLB 
GO TO NEXT 



MINUS 
COUNT 
MINUS 
COUNT 
BYTE 



1 

IS 
1 
IS 











BR IF DATA CHAIN FLAG 

PLB COUNT MINUS 1 

BR IF PLB COUNT IS 

SET INCORRECT LENGTH 

SET PLB BYTE TO 00 

GO TO NEXT LOAD 00 BYTE 

SET INCORRECT LENGTH 

BR IF NO PARITY CHECK 

SET UNIT CHECK STATUS 

SET EQUIP CHECK SENSE 

RESET COMMAND CHAIN FLAG 

SET ADDR TO 7X00 OR 9X00 

READ PCCL CONSTANT 

BR IF NO BLOCK DATA CHECK BIT 

RESET DATA CHECK 

SET PRINT GATE AND BUSY 

RESET GATE LOAD TAG 

BR IF NO INCORRECT LENGTH 

** fc***************************** ****^t*jjt***** **************** ******** *** 

CHANNEL END ROUTINE 

**** #***##***************************** ************* £***$*$*$$$#*#$$*$* 



06 5 
065 



NOSLI 
NOSLI 



066 ENDOK 



DCOM 



CCOM 
DCOM 
DCLB 
DCOM 
DCOM 
BSWI 



075 

006 

G76 
066 
08 
043 
00 8 
081 
107 



TAKEIN 
PCIBR 

STINST 

LRSTRB 

CHANOK 

CHAIN 

INTRPT 

REDSTR 

RESTRH 



BR IF G10=l 

BR IF G12=0 

G0=GC*-K40 

BR 

G1=G1*-K40 

H0=HG$K0 8 

G0=G0$K80 

BR IF G11=0 

8AL 

H0=HC*-K08 

BR IF HC5=0 

8AL 

BAL 

BR 

BAL 

BAL 

BR 



BR IF DATA CHAIN FLAG 
BR IF NO SLI FLAG 
RESET INCORRECT LENGTH 

RESET COMMAND CHAIN FLAG 

SET CHANNEL END 

SET SECONDARY BIT 

BR IF NO CHAIN — TRY CH END INTRP 

CHECK FOR PCI INTERRUPT 

RESET CHAN END — FOR CHAINING 

BR IF NO DEVICE END YET 

RESTORE P AND I REGS 

UPDATE UCW 

GO TO CHAIN 

TRY NON-PC I INTERRUPT 

UPDATE UCW 

SET CPU MODE-GO TO NATV REQ 



* 
* 



*********#************#*******#***#*****#*** 3^* ****************** ******* 

IMMEDIATE COMMAND CHANNEL END ROUTINE 



ADDR 


WORD 


SEQUENC 


;f no. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 






DPTR 


081 


* 


#**#*****##*#######*#**#*#** 


0066 


C572 


DPTR 


082 


IMMEDI 




084 


OKCHAI 


BR IF G10=0 


0070 


15E5 


DPTR 


08 3 










G1=G1*-KE0 


0072 


3485 


DPTR 


84 


OKCHAI 








G0=G0$K80 


CD74 


3ER3 


DPTR 


085 










HO=H0$KO8 


0D76 


055D 


DPTR 


086 






069 


CMOCHN 


BR IF Gll=l 


0078 


F269 


DPTR 


087 






075 


TAKEIN 


BR IF DO 7=1 


0D7A 


0A7E 


DPTR 


088 






090 


NOTNOP 


BR IF H05=0 


007C 


148 5 


DPTR 


089 










G0=G0*-K80 


CD7E 


8C60 


DPTR 

DPTR 


090 
091 


NOTNOP 

AEND 


OPTS 


137 


PCENTR 


BR 
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COMMENTS 



BR IF NOT CHAIN DATA 
RE-SET CCtCD, SLI FLAGS 
SET SECONDARY BIT 
SET CHANNEL END 
BR IF THIS COMMAND CHAINED 
BR IF LAST COMMAND CHAINED 
BR IF NO DEVICE END 
RESET SECONDARY BIT 



* CROSS REFERENCE FOR CSECT DPTR * 



DPTR 


007 


OPTS 


09 










DPTR 


009 


DPTR 


007 










DPTR 


018 


DPTR 


03 8 










DPTR 


025 


DPTR 


0? n 


DPTP 


02 3 


DPTR 


044 


DPTR 


03? 


DPTP 


03 










DPTR 


036 


DPTS 


047 










DPTR 


039 


DPTR 


35 










DPTR 


040 


DPTR 


03 3 










DPTR 


045 


DPTR 


037 










DPTR 


046 


DPTR 


041 










DPTR 


050 


DPTR 


046 










DPTR 


054 


DPTR 


052 










DPTR 


055 


OMCS 


112 










DPTR 


061 


DPTS 


114 










DPTR 


065 


DPTR 


06 1 


DPTR 


062 






DPTR 


066 


DPTR 


05 6 


DPTR 


064 


DPTS 


115 


DPTR 


068 


EXFR 


144 










DPTR 


069 


DPTR 


086 










DPTR 


72 


DYPE 


16? 










DPTR 


073 


DPTQ 


01? 


DPTR 


03 9 


ERRO 


039 


DPTR 


075 


RWPP 


152 


DCLR 


05 3 


DPTQ 


018 


DPTR 


76 


DPTP 


07 1 


ERDR 


073 


EXFR 


142 


DPTR 


82 


DPTS 


foq 


DPTS 


126 


EXFR 


131 


DPTR 


084 


DPTP 


08 2 










DPTR 


090 


DPTR 


03 3 











DPTR 068 DPTR 087 DPTS 140 FRRQ 063 



DPTS DESCRIPTIVE TEXT 
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ENTRY POINTS 



PRSTO - 



SENSE - 



NOOP 



ENTRY IS 
ROUTINE. 
HAS BEEN 



MADE AT 
A START 
FETCHED 



THIS LABEL FROM THE -DCLB- 
I/O WAS DETECTED AND THE CCW 



ENTRY IS HADE AT THIS LABEL FROM THE -DYPE- 
ROUTINE TO HANDLE A SENSE COMMAND FOR THE 
1052. ENTRY IS ALSO MADE TO THE -DYPE- SENSE 
ROUTINE FROM THE -EEDR- AND -ERDR- ROUTINES. 

ENTRY IS MADE AT THIS LABEL FROM THE -DMCS-, 
-EEDR- AND -ERDR- ROUTINES TO SET CHANNEL 
END AND DEVICE END FOR NO-OP OR NO-OP TYPE 
COMMANDS. 



PCENTR - ENTRY IS MADE TO THIS LABEL FROM THE -DPTR- 
ROUTINE TO UPDATE THE UCW FOR AN IMMEDIATE 
COMMAND. ENTRY IS ALSO MADE TO THIS LABEL 
FROM THE -EEDR- AND -ERDR- ROUTINES TO 
UPDATE THE UCW WHEN A CMD REJECT IS DETECTED, 

TSTPCI - ENTRY IS MADE AT THIS LABEL FROM THE -DYPE- 
ROUTINE TO HANDLE STATUS FOR A 1052 NO-OP OR 

NOT READY CONDITION. 



ADDR 



WORD SEQUENCE NO. LABEL 



DPTS 


001 


T 


DPTS 


003 


* 


DPTS 


004 


* 


DPTS 


005 


* 


D°TS 


006 


* 


DPTS 


007 


* 


DPTS 


00 3 


* 


OPTS 


00 9 


* 


DPTS 


010 


* 


DPTS 


Oil 


* 


DPTS 


012 


* 


DPTS 


013 


* 


DPTS 


014 


* 


DPTS 


015 


* 


D°TS 


016 


# 


D^TS 


017 


* 


DPTS 


018 


* 


D"TS 


019 


* 


DPTS 


020 


* 


D^TS 


021 


* 


DPTS 


022 


* 


DPTS 


02 3 


* 


DPTS 


02 4 


* 


DPTS 


02 5 


* 


DPTS 


026 


* 


DPTS 


02 7 


* 


DPTS 


028 


* 


DPTS 


029 


* 


DPTS 


030 


* 


DPTS 


031 


* 


OPTS 


032 


* 


DPTS 


033 


* 


DPTS 


034 


* 



NEXTSEQ 


NEXTLABEL STATEMENT COMMENTS 




1403 PRINTER START I/O, COMMAND 


DECODE 


1403 


START 10 ACTIVE SECONDARY C 






COUNT 


U 




DATA ADDRESS 


V 




COMMAND BYTE 


GO 




FLAGS AND OP 


Gl 




CHANNEL STATUS 


HO 




UCW ADDRESS D 


0XC8 




UCW STATUS BYTE 


OXCA 




UCW SENSE BYTE 


OXCB 



AND SENSE 



C8 



NATIVF 1403 UCW FORMAT 

CA CC CE 



* 


* 


# * 




* 




* 




* 


* 


CHANNEL* 


CHANNEL* UNIT * 


UNIT 


* 


RESIDUAL 


# 


NEXT CCW 


* 


* 


STATUS* 


FLAGS * STATUS * 


SENSE 


* 


COUNT 


# 


ADDRESS 


* 


* 


# 


* fc 




* 




* 




* 


*- 
















-* 



CH STAT-C8 
O-SEC 

1-INC LENGTH 
2-PROG CHECK 
3-PROT CHECK 
4-CH DATA CHK 
5-CH CTRL CHK 
6- 



CHANNEL FLAGS-C9 

O-CHAIN DATA 

1-COMM CHAIN 

2-SLI 

3-SKIP 

4- PC I 

5- ACTIVE 

6- INPUT 



UNIT STAT-CA 

0- 

1- 

2- 

3-BUSY 

4-CH END 

5-DEV END 

6-UNIT CHK 



UNIT SENSE-CB 

0-COMM REJ 

1-INTERV REO 

2- 

3-EQUIP CHK 

4-DATA CHK 

5- 

6-GATE LOAD 
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ADDR WORD SEQUENCE NO. LABEL NEXTSEQ NEXTLA8EL STATEMENT COMMENTS 

OPTS 035 * 7-INT IN BUFFER 7-OUTPUT 7-UNIT EXEC 7-CHAN 9 

DPTS 036 * 

DPTS 037 * **************************************** 

OPTS 038 * START I/O ACTIVE-0 SECONDARY -0 

f)pyc; 039 * ***************************************** 

OPTS 040 * 

DPTS 041 * 

DPTS 042 ASEQ AL07=72 

0BF2 2482 DPTS 043 PRSIO SET MODE K=18 SET 1403 MODE 

0BF4 5449 DPTS 044 0*0=00 

C8F6 C4FC DPTS 045 048 NCHDAT BR IF ZNZ BR IF NO DATA CHAIN 

08F8 5460 DPTS 046 RDH G AS,D+0 GET CHANNEL STATUS AND FLAGS 

OBFA 8D22 DPTS 047 DPTR 036 WXFER3 BR GO TO DATA CHAIN RETURN 

OBFC 9816 DPTS 048 NCHDAT CCOM 05 8 LSAVE8 BAL SAVE P AND I REGS 

OBFE 54C9 DPTS 049 P0=G0 MOVE COMMAND TO PO 

OCOO BF7A DPTS 050 ERRQ 082 RDCHST BAL CHANNEL STATUS AND FLAGS GO Gl 

0C02 DE87 DPTS 051 053 READY BR IF PRS BIT1=1 BR IF PRINT READY ON 

0CC4 3F45 DPTS ^52 H1=H1$K40 SET INTERVENTION REQUIRED 

0CC6 0C4B DPTS 053 READY Z=P0<K04 UNIT STATUS AND SENSE HO HI 

0C08 C4BF DPTS 054 104 SENSE BR IF Z = BRANCH IF SENSE COMMAND 

OCOA 0C3B DPTS 055 Z=PO<K03 

OCOC C4D7 DPTS 056 121 NOOPTR BR IF Z = BR IF NOOP TO TEST FOR INTV REQD 

OPTS 057 * ********************************************************************* 

DPTS 053 * DECODE REMAINDER OF THE COMMANDS 

DPTS 059 * *********************************************************************** 

OCOE DE92 OPTS 060 062 NOTRDY BR IF PRS BIT1=0 BRANCH IF PRINT READY IS OFF 

0C10 1F45 OPTS 061 Hi=Hl*-K40 CLEAR INTERVENTION REQUIRED 

0C12 1D0C DPTS 062 NOTRDY RST PRA K=80 RESET EXTERNAL SENSE LATCHES 

0C14 1F97 DPTS 063 H1=H1*-K99 REGEN INTV REQD AND GATE LOAD 

0C16 DF5F DPTS 064 132 ISLCHK BR IF HI BIT1=1 BR IF INTERVENTION REQUIRED 

0C18 D85D OPTS 065 131 CMOREJ BR IF PC5=1 REJECT X4, X5 t X6 f X7 , XC, XD , XE , XF 

0C1A F85C OPTS 066 131 CMDREJ BR IF PC7=0 REJECT X0,X2,X8,XA 

OPTS 067 * *********************************************************************** 

DPTS 068 * TEST FOR VALID COMMANDS AMONG X1,X3»X9 OR XB 

DPTS 069 * *********************************************************************** 

0C1C 5CE9 OPTS 070 HC=PC MOVE COMMAND TO HO 

0C1E CC27 DPTS 071 079 SKIP BR IF P00=1 BR IF SKIP COMMAND 

0C20 0EE9 DPTS 072 Z=HO+KEC TEST FOR SPACE 0»l f 2 OR 3 

0C22 F4AE OPTS 073 087 VALCMD BR IF AC=C BR IF VALID SPACE COMMAND 

CC24 A37E DPTS 077 DMCS 003 CD737B BR BR TO TEST FOR MCS 73 OR 7B 

0C26 6EE3 DPTS 079 SKIP H0=H0+H0 SHIFT CHANNEL DECODE 

0C28 EODD DPTS 080 131 CMOREJ BR IF HZ=0 BR IF SKIP TO CHANNEL 

0C2A 0E39 DPTS 081 Z=H0+K30 TEST FOR SKIP ABOVE 12 

0C2C F4B7 DPTS 085 092 TSTMCS BR IF AC = 1 BR TO TEST FOR MCS EB,F3 OR FB 

0C2E 2E05 DPTS 087 VALCMD HO=0$KGO CLEAR UNIT STATUS 

0C30 4DCF DPTS 088 PRC=PO LOAD CARRIAGE CONTROL REGISTER 

003? E83B OPTS 089 098 CARCTL BR IF P06=l TEST FOR WRITE OR CARR CTRL CMD 

0C34 8CFC OPTS 090 DPTR 00 7 WRITE BR 

0C36 E85C OPTS 0<?2 TSTMCS 131 CMDREJ BR IF P06=0 CMD REJECT ON E9,F1,F9 

0C38 A398 DPTS 093 DMCS 020 EBF3FB BR GO TO GATE LOAD OR LOAD CMOS 

DPTS 095 * *********************************************************************** 



ADDR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CL0AD=*E60, 

COMMENTS 
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0C3A 
OC3C 



0C3E 
0C4Q 
0C42 
0C44 
0C46 
0C48 
0C4A 
0C4C 
0C4E 
OC50 
OC52 
0C54 



0C56 
0C5 8 
OC5A 



OC5C 

OC5E 



0C60 

0C62 
DC 64 
0C66 
0C68 
0C6A 
0C6C 
0C6E 
0C70 
OC72 
0C74 
0C76 
0C78 



2DC2 
8 06E 



F549 
5F89 

F247 
1B2 3 
7838 
2E43 
5 OC 6 
C551 
C4D5 
3445 
8D4C 
805 6 



DEDF 
2 EC 3 
8 06E 



3F85 
2F23 



1547 

F268 
3543 
8D68 
5E29 
R404 
52E9 
148 5 
C174 
3485 
54F9 
8178 
A030 



OPTS 
DPTS 

OPTS 
DPTS 
DPTS 
DPTS 
DPTS 
DPTS 
DPTS 
DPTS 
D°TS 
DPTS 
DPTS 
DPTS 
DPTS 
DPTS 
DPTS 
DPTS 
DPTS 
DPTS 
DPTS 
DPTS 
DPTS 
DPTS 
DPTS 
DPTS 
DPTS 
DPTS 
DPTS 
D°TS 
DOTS 
OPTS 
DPTS 
DPTS 
OPTS 
DPTS 
DPTS 
DPTS 
DPTS 
DPTS 
DPTS 
DPTS 
DPTS 
DPTS 
DPTS 
DPTS 
DPTS 



096 
097 

09 8 
099 
101 
102 
1C3 
104 
105 

10 6 
107 
108 
109 
110 
111 
112 
113 
114 
115 
117 
118 
119 
121 
125 
126 
128 
129 
130 
131 
132 
134 
135 
136 
137 
133 
139 
140 
141 
142 
143 
144 
146 
147 
148 
149 
150 
151 



* 



CARCTL 



* 
* 



SENSE 



3VER 
SNSRTN 



FORGET 

SNSEND 



* 
* 



MOOPTR 
MOQP 



* 

* 
* 



CMDRE J 
I SLCHK 

* 

PCENTR 

NOTINT 

TSTPCI 
NOPCIF 

AEND 



CARRIAGE CONTROL COMMAND 
*********************************************************************** 

SET PRA K=10 SET PRINT BUSY LATCH 

DPTR 082 IMMEDI BR 

******************************** *************************************** 

SENSE COMMAND 



109 SNSRTN 



108 OVER 



DPTR 
DPTR 



113 
115 

061 
066 



FORGET 
SNSEND 

TSTCDA 

ENDOK 



BR IF G13=l 

T1 = H1 

BR IF D06=l 

T1=T1*-K02 

STB Tl V + l 

H0=0$K04 

U=U-1 

BR IF G10=l 

BR IF Z=0 

G0=G0$K40 

BR 

BR 



BR IF SKIP FLAG ON 

MOVE SENSE 8YTE 

SKIP NEXT WORD IF 2540 SHARE 

STRIP SENSE BYTE FOR 1403 

STORE SENSE BYTE 

CLEAR UNIT STATUS SET DEVICE 

UCW COUNT MINUS 1 

BR IF DATA CHAIN SET WLR BIT 

BR IF UCW COUNT 

SET INCORRECT LENGTH 

BR TO TEST CDA AND SLI FLAGS 

BR TO CHANNEL END 



END 



******************************************************** *************** 

NO-OP COMMAND 
******************************** ************************** ************* 

132 ISLCHK BR IF PRS 8IT1=0 BRANCH IF PRINT READY IS OFF 

HO=0$KCC SET CHANNEL END DEVICE END 

DPTR C82 IMMEDI BR GO TO IMMEDIATE COMMAND END 

*********************************************************************** 

1403 INITIAL SELECTION CHECK 
*********************************************************************** 

H1=H14K80 SET COMMAND REJECT 

H0=0$K02 CLEAR UNIT STATUS SET UNIT CHECK 

*********************************************************************** 

INITIAL SELECTION CHECK OR NON-CHAINED IMMEDIATE 
*********************************************************************** 



141 NOTINT 



DPTR 075 TAKEIN 



DCOM 080 CHANOK 



148 NOPCIF 



CCOM 
CCOM 



066 
135 



LRSTRB 
STATUS 



G1=G1*-K44 

BR IF 007=0 

G1=G1*K04 

BR 

VO=HO 

BAL 

HO=VO 

G0=GC*-K80 

BR IF G14=0 

G0=GC$K80 

H1 = G0 

BAL 

BR 



RESET COMMAND CHAIN FLAG 

BR IF LAST COMMAND NOT CHAINED 

TURN ON ACTIVE FLAG IF CHAINED 

GO TO IMMEDIATE CMD INTERRUPT 

SAVE UNIT STATUS 

STORE CH STAT, FLAGS, UN IT STAT 

RESTORE UNIT STATUS 

RESET SECONDARY BIT 

BR IF NO PCI FLAG 

SET PCI INTRPT IN CHAN STATUS 

MOVE CHANNEL STATUS 

RESTORE P AND I REGS 

BR TO STORE 3»RD HW OF CSW 



* CROSS REFERENCE FOR CSECT DPTS * 
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OPTS 


043 


DCLB 


245 






DPTS 


048 


DPTS 


04 5 






DPTS 


053 


DPTS 


051 






DPTS 


062 


DPTS 


060 






DPTS 


079 


DPTS 


071 






DPTS 


087 


DPTS 


073 






DPTS 


092 


DPTS 


08 5 






DPTS 


098 


DPTS 


089 






DPTS 


104 


DPTS 


05 4 


DYPE 


177 


DPTS 


108 


DPTS 


10 6 






DPTS 


109 


DPTS 


10 4 






DPTS 


113 


DPTS 


111 






DPTS 


115 


DPTS 


112 






DPTS 


121 


DPTS 


056 






DPTS 


125 


DMCS 


019 


DMCS 


025 ERDR 087 


DPTS 


131 


DMCS 


02 2 


DPTS 


065 DPTS 066 


DPTS 


132 


DPTS 


06 4 


DPTS 


121 


DPTS 


137 


DPTR 


09 


ERDP 


145 


DPTS 


141 


DPTS 


138 






DPTS 


146 


DYPF 


153 






DPTS 


14a 


DPTS 


146 







DPTS 080 DPTS 092 



DPTT DESCRIPTIVE TEXT 
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ENTRY POINTS 



TESTOO - ENTRY IS MADE AT THIS LABEL FROH THE -DCLA- 
ROUTINE FOR A START I/O OR TEST I/O TO TEST 
THE ACTIVE AND SECONDARY BITS TO DETERMINE 
FURTHER OPERATION. 

UCENT - ENTRY IS MADE AT THIS LABEL FROM THE -DYPE-, 
-EERQ- AND -ERRO- ROUTINES TO SET UNIT CHECK 
AND TO STORE A CSW WITH ZERO CHANNEL STATUS 
WHEN A NOT READY CONDITION IS DETECTED. 

RESTES - ENTRY IS MADE AT THIS LABEL FROM THE -DYPE-, 
-EERQ- AND -ERRQ- ROUTINES TO CLEAR CHANNEL 
END OR CHANNEL END-DEVICE END. 



SHARE - 



DEVE 



ENTRY IS MADE AT THIS LABEL FROM THE -DYPE- t 

-EERQ- AND -ERRQ- ROUTINES. DEVICE END IS 

TESTED. 

DE ON - IF INTERRUPT HAS BEEN INITIATED, 

RESET INTERRUPT LATCH AND STORE 

STATUS IN THE CSW. 
DE OFF - STORE STATUS WITH BUSY SET INTO 

THE CSW. 

ENTRY IS MADE AT THIS LABEL FROM THE -DYPE- 
ROUTINE BECAUSE THE SECONDARY BIT IS ON 
DURING INITIAL SELECTION FOR START I/O OR 
TEST I/O. RESET INTERRUPT IF ON, AND STORE 
STATUS IN THE CSW. 



SENCHK - ENTRY IS MADE AT THIS LABEL FROM THE -OPTQ- 
ROUTINE TO CHECK DEVICE END SENSE DATA. 
RETURN IS MADE TO -DPTQ- . 

RESINB - ENTRY IS MADE AT THIS LABEL FROM THE -DCHN- 
ROUTINE TO RESET THE INTERRUPT LATCH AND TO 
CLEAR THE INTERRUPT IN I.B. AND SECONDARY 
BITS FOR CSW STORE. RETURN IS MADE TO -DCHN- 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



COMMENTS 







DPTT 


00 L 


T 






DPTT 


00 3 


* 






DPTT 


004 


* 






DPTT 


005 


* 


occa 


2482 


DPTT 


006 


TESTOO 


CCCA 


BF7A 


Q D TT 


007 




occc 


D15B 


DPTT 


OCR 




OCCE 


C42 1 


DPTT 


009 




OCDO 


DED4 


DPTT 


01 o 




0CD2 


8 IOC 


DPTT 


Oil 




0CD4 


2E23 


DPTT 


013 


UCENT 


0CD6 


2F0 7 


DPTT 


014 




0CD8 


A01E 


DPTT 


015 








DPTT 


016 


* 






DPTT 


017 


* 






DPTT 


018 


* 


OCDA 


ODD 8 


DPTT 


020 


TEST11 


OCDC 


5FB9 


DPTT 


021 




OCDE 


E401 


D^TT 


02 3 


RESTES 


OCEO 


AA19 


DPTT 


024 




0CE2 


AECA 


DPTT 


025 




0C80 


154B 


DPTT 


026 


PROGF 


0C82 


B448 


DPTT 


027 





1403 TEST I/O START I/O WITH SEC .ON 

TEST I/O ACTIVE=0 SECONDARY=0 

SET MODE K=18 SET 1403 MODE 

ERRQ 082 RDCHST 8AL ** GO GET CHAN. AND UNIT STATUS IN G ,H 



CCOM 



08 2 


RDCHST 


8AL ** GO 


020 


TEST11 


BR IF G15=l 


046 


STTE01 


BR IF G00=1 


013 


UCENT 


BR IF PRS1=0 


155 


CCOB 


BR ** GO TO 

H0=0$K02 

Hl = 


123 


STATOS 


BR ** STORE 



3R IF ACTIVE TEOT 100 

BR ON SEC TO START OR 
BR IF NOT READY 
COMM MODE RST,CC C SET 

SET UNIT CHECK IN STA 
ZERO OUT CHANNEL STATUS 
CSW WITH NEW STATUS 



TEST NO A 



CCOM 123 STATOS BR ** STORE O'S IN 

TEST I/O ACTIVE=1 SECONDARY^! 

RST PRA K=40 RST PRINT REQUEST 

T1=H1 SAVE SENSE BYTE 

02 6 PROGF BR IF G02=l BR IF PROGRAM ERROR 

026 PROGF N BR IF HC = NZ BR IF NO STATUS 

CCOM 162 CC2B BR GO SET BUSY 

G1 = GKK04 RESET ACTIVE BIT 

BAL GO RST S7, INT BUFF BIT, SEC. 



088 RSTINT 



A DDR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E60, 

COMMENTS 
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0C84 


DAOF 


DPTT 


028 




033 


ZSECON 


BR IF H05=l 


BR IF DE 


0C86 


CAOE 


DPTT 


029 




03 3 


ZSECON 


BR IF H04=0 


BR IF NO CHEND OR NO DEV.END 


0C88 


E40F 


DPTT 


030 




033 


ZSECON 


BR IF GO 2=1 


BR IF PRGRAM CHK-DONT SET SEC 


0C8A 


2085 


DPTT 


031 








U0=0$K80 


STORE SEC FOR CHE ALONE-UCW 


0C8C 


8C90 


DPTT 


032 




034 


UCWSTR 


BR 




0C8E 


2 00 7 


DPTT 


033 


ZSECON 






U0 = 


DE,CHE STAT-CLEAR CH STAT IN UCW 


CC9C 


7068 


D^TT 


034 


UCWSTR 






STH U AS»D+2 


UPDATE UCW CH STAT AND FLAGS 


0C92 


C116 


DPTT 


035 




037 


DONTCH 


BR IF G14=0 


BR IF NO PCI FLAG 


0C94 


3^85 


DPTT 


03 6 








G0=G0$K80 


SET PCI IN CHAN STAT 


0C96 


54F9 


DPTT 


03 7 


DONTCH 






H1 = G0 


MOVE CHANNEL STATUS 


0C98 


7A68 


DPTT 


038 








STH T AStD+2 


D=OOCC 


0C9A 


5 06 8 


DPTT 


03 9 








RDH U AS,D+2 


UCW COUNT=U 


0C9C 


5 260 


DPTT 


.040 








RDH V AS»D+0 


CCW ADDPESS=V 


0C9E 


AOOE 


DPTT 


041 


CALLH 


CCOM 110 


FULCSW 


BR ** STORE CSW 


RST MODEt SET CC1 






DPTT 


042 


* 


$£$$ $$$$ Jfcjfc #J$C $$$$&$$$ 3^$$^$$$$$$$$ #### $&$$$$& $$#$$$$$^$&&$$$$$9$C$^C$&$ 






DPTT 


043 


* 


TEST 


OR START 


1/0 ACTIVE=0 SEC0NDARY=1 






DPTT 


044 


* 


##^#####^#3£###^ifc##3kJ$C;$C#### ##*JC ^>^^^^^^J^^3^^)^J^>jC^^^^^>^^^^^^^)^)^^^^^5^^3jC3jC3{C3^ 


CCAO 


5E29 


DPTT 


046 


STTE01 






VO=HO 


MOVE UNIT STATUS 


OCA? 


CEBl 


DPTT 


047 




056 


EXTDE 


BR IF PRS0=1 


3R IF EXT DE 


0CA4 


DA3 9 


D°TT 


04 9 


SHARE 


061 


DEVE 


BR IF HO BIT5=1 


BR IF DE. 


0CA6 


2E15 


DPTT 


050 








HQ=0$K10 


SET BUSY 


0CA8 


5 4F9 


DPTT 


051 








H1 = G0 


MOVE CHANNEL STATUS 


OCAA 


1F85 


DPTT 


052 








H1=H1*-K80 


RST SECONDARY 


OCAC 


F246 


D^TT 


053 




068 


DELIC 


BR IF 007=0 


BR IF START-STORE STATUS ONLY 


CCAF 


A OIF 


DPTT 


54 


r, OS TOR 


CCOM 123 


STATOS 


BR 


THIS IS TEST STORE STAT AND O t S 


OCBO 


8 FOG 


D^TT 


056 


EXTDE 


071 


SENCHK 


BAL 


GO CHECK SENSE 


CGB2 


5F3 9 


DPTT 


057 








V1 = H1 


PUT UPDATED SENSE IN VI 


0CB4 


6 664 


DPTT 


05 8 








= 0+2 


UPDATE UCW ADD TO STATUS-CA 


0CB6 


7 26 A 


DPTT 


05 9 








STH V AS, 0-2 


STORE UNIT STAT 


0CB8 


B44 8 


DPTT 


061 


DEVE 


088 


RSTINT 


BAL ** GO RST 


S7,INT BUFF. BIT AND SEC. BIT 


OCBA 


7460 


DPTT 


062 








STH G AStD+O 


UCW CH STATUS 


OCBC 


54F9 


DPTT 


063 








H1=G0 


MOVE CH ST&TUS 


OCBE 


E24 3 


DPTT 


064 




066 


NOTPTR 


BR IF 006=1 


BR IF NOT PRINTER 


OCCO 


0D0 8 


DPTT 


065 








RST PRA K=40 


RST PRINTER REQUEST 


0CC2 


F22F 


DPTT 


066 


NlflTPTR 


054 


G OS TOR 


BR IF 007=1 


BR IF TEST I/O 


0CC4 


3 El 5 


DPTT 


067 








H0=H0$K10 


SET BUSY 


0CC6 


A 030 


DPTT 


068 


DELIC 


CCOM 13 5 


STATUS 


BR 


STORE STATUS 






DPTT 


06 9 


* 






##3£##$&i£#*)fc#^##i£>{c:fcj(cjjcs)!:>(e3}:)jc!jc:ijc#jic])e##j}c:<c>je $$:$:$$$ $ 


OFOO 


FE84 


D»TT 


071 


SENCHK 


073 


CHAN9 


BR IF PRS3=Q 


BR IF NO CHANNEL 12 


0F02 


3E13 


DPTT 


072 








H0=H0$K01 


SET UNIT EXCEPTION 


0FC4 


EEBA 


DPTT 


07 3 


CHAN9 


076 


DATACH 


BR IF PRS2=0 


BR IF NO CHANNEL 9 


CFQ6 


3E23 


0»TT 


074 








H0=HC$K02 


SET UNIT CHECK 


0FC8 


3F13 


DPTT 


075 








H1=H1$K01 


SET CHANNEL 9 IN SENSE 


OFOA 


CBOE 


DPTT 


076 


OATACH 


07 8 


HAMMER 


BR IF H14=0 


BR IF NO DATA CHECK 


OFOC 


3E23 


DPTT 


07 7 








H0=H0$K02 


SET UNIT CHECK 


OFOE 


5E3F 


DPTT 


078 


HAMMER 






V1=PRS 


MOVE SENSE 


0F10 


1393 


DPTT 


079 








Vl=Vl*-K09 


LOOK FOR PARITY OR HAMMER CHECK 


0F12 


F099 


DPTT 


080 




083 


SETDE 


BR IF LZ=0 


BR IF NO ERROR 


0F14 


3E23 


DPTT 


081 








HO=H0$K02 


SET UNIT CHECK 


OF 16 


3F15 


DPTT 


082 








H1=H1$K10 


SET EQUIPMENT CHK IN SENSE 


0F18 


3E43 


DPTT 


083 


SETDE 






H0=H0$K04 


SET DEVICE END 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


0F1A 


ODOA 


ODTT 


084 




OF1C 


128 p. 


DPTT 


085 








OPTT 


08 7 


* 


3448 


F04E 


9 PIT 


088 


R STINT 


344A 


1413 


DPTT 


089 


RESINB 


344C 


0010 


DPTT 


090 




344E 


4 04 6 


OPTT 


091 


OEVEND 


3450 


148 5 


DPTT 


092 




3452 


128E 


DPTT 


093 








DPTT 


094 


* 



DPTT 


006 


DCLA 


39 2 






DPTT 


013 


DPTT 


010 


DYPE 


214 


DPTT 


C2C 


DPTT 


00 8 






DPTT 


23 


DYPE 


215 


ERRQ 


053 


DPTT 


026 


DPTT 


023 


DPTT 


024 


DPTT 


33 


DPTT 


02 8 


DPTT 


029 


DPTT 


034 


DPTT 


032 






DPTT 


037 


DPTT 


035 






DPTT 


046 


DPTT 


CO 9 






DPTT 


049 


DYPE 


218 


FRRO 


054 


DPTT 


54 


DPTT 


066 






DPTT 


56 


DPTT 


047 






DPTT 


061 


DPTT 


04 9 


DYPE 


219 


DPTT 


066 


DPTT 


06 4 






DPTT 


068 


DPTT 


053 






DPTT 


71 


DPTO 


008 


DPTT 


056 


DPTT 


073 


DPTT 


071 






DPTT 


076 


DPTT 


07 3 






DPTT 


078 


DPTT 


076 






DPTT 


83 


DPTT 


080 






DPTT 


088 


DPTT 


02 7 


DPTT 


061 


DPTT 


089 


DCHN 


07 5 






DPTT 


091 


DPTT 


08 8 







CL0AD=*E60t EC LEVEL=128266 PAGE 203 
NEXTSEQ NEXTLABEL STATEMENT COMMENTS 

RST PRA K=50 RST BUSY AND REQUEST 

RTN GO BACK TO TEST I/O OR REQ 

3$C 3$C S^C 3^C S^C 3^C ^C >Je 3^C 9$C 3^C 9$C ^C ^C ^C 3$C 3$C 3$C ^C 9JC 3$C ?ijc 3^C 9$C 3^C 3$C 3$C 9fC 3^C 3yC 3^C 3^C 3$C S^C 3^C 3$C ?^C 9$C 3^C 3$C 3^C 

091 DEVEND BR IF G07=0 BR IF NO INT IN BUFF 

G0=G0*-K01 RESET INT INDICATOR 
RST S7 RESET INT LATCH 

U=G MOVE CHAN STAT+FLAGS 

G0=GC*-K80 RST SEC FOR CSW STORE 
RTN 

* CROSS REFERENCE FOR CSECT DPTT * 



ERRQ 015 



DPTT 030 



DUMP DESCRIPTIVE TEXT 



CLOAD=*E60, EC LEVEL=128266 PAGE 204 



THE MICRO CORF DUMP IS A NDN DESTRUCTIVE PROGRAM STORAGE 
DUMP. THE DUMP ROUTINE DISPLAYS ONLY ON A NATIVE 
1403. ENTRY IS A FUNCTION OF ALTER DISPLAY. SELECTIVE SECTIONS 
OF PROGRAM STORAGE ARE DISPLAYED WITH ALL OF AUX MODULE ZFRO 
PRECEEDING THE PROGRAM STORAGE SELECTION. 

THE ALTER DISPLAY ROUTINE (ALDP) RECOGNIZES A • DD XXYY' 
ENTRY AS A DUMP REQUEST. «XX» DESIGNATES THE START PROGRAM 
STORAGE MODULE ADDRESS. «YY» DESIGNATES THE STOP PROGRAM 
STORAGE MODULE ADDRESS. 

THF LINE FORMAT OF THE DUMP ROUTINE IS AS FOLLOWS. 

XXXX YYYY YYYY ETC. 

THE FIRST TWO BYTES ARE THE ADDRESS. MODULE ZERO IS DENOTED BY 
THE ABSENCE OF THE FIRST ADDRESS BYTE (UNDERSTOOD AS 30). 
THERE ARE TWO BLANKS AFTER THE ADDRESS. SIXTEEN , TWO BYTE GROUPS 
OF DATA SEPERATED BY BLANKS FOLLOW. 



#*#****#**#*####*##** EXAMPLE 



$$$$$$$$$$$$$$#$$$$$ 



IT IS DESIRED TO SEE PROGRAM STORAGE LOCATIONS 0505 THROUGH, 
AND INCLUDING, 3050. 

PROCEEDURE. 

STEP 1. DEPRESS THE ALTER DISPLAY KEY ON THE 2025 CONSOLE 

STEP 2. ENTER »DD0530« ON THE 1052 

STEP 3. IF THE PRINTER IS NOT READY, MAKE IT READY. 

NOTE. CARRIAGE CONTROL IS PROVIDED BY THE DUMP ROUTINE 

ASSUMING A STANDARD CARRIAGE TAPE IS ON THE PRINTER 
(CHANNEL 12 TO INDICATE THE END OF A PAGE AND CHANNEL 
1 TO INDICATE THE BEGINNING). 
A SPECIAL CARRIAGE TAPE MAY HAVE TO BE INSTALLED BEFORE 
USING THIS ROUTINE. 



A DDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 






DUMP 


OPl 


T 




MICRO CORE DUMP ROUTINE 


33B2 


1F2 A 


D UM P 


002 


START 






RST TA K=D2 


3384 


9812 


D UM P 


003 




CCOM 056 


LSAVE 


BAL 


33B6 


2 48? 


D UM P 


004 








SET MODE K=18 


33BB 


3 DC 2 


D UM P 


00 5 








SET PRA K=9C 


33 B A 


2FD3 


DUMP 


006 








H1=0$K0D 


33BC 


0111 


DUMP 


00 7 








Z=U1+KC1 


33BE 


F4C3 


D UM P 


00 8 




010 


AROUND 


BR IF AC=1 


33C0 


211B 


DUMP 


009 








U1=U1+K01 


33C2 


4252 


DUMP 


010 


AROUND 






RDH V DC9A 


33C4 


442 6 


D UM P 


Oil 








G=V 


33C6 


A636 


D UM P 


012 




07 8 


SKIP 


BR 


31BE 


2A75 


DUMP 


014 


INI TIL 






T0=0$K70 


31C0 


2E13 


DUMP 


019 








H 0=0$ KOI 


31C2 


2 5B3 


O'JMP 


020 








G1=0$KCB 


31C4 


252D 


DUMP 


021 








G1=G1+K20 


31C6 


2F8 5 


DUMP 


02 2 








Hl=0$K80 


31C8 


2F3B 


DUMP 


02 3 








H1=H1+KC3 


31 C A 


C05 3 


DUMP 


024 




028 


GETADR 


BR IF GO BIT4=1 


3 ICC 


2B4 5 


DUMP 


025 








T1=0$K40 


31CE 


A 60 6 


DUMP 


02 6 




054 


L0A03F 


BAL 


31D0 


A 606 


DUMP 


02 7 




054 


LOADBF 


BAL 


31D2 


4626 


DUMP 


028 


GETADR 






D=V 


31D4 


C05B 


DUMP 


029 




03 5 


FOUR 


BR IF GO BIT4=1 


31D6 


B1E2 


D UM P 


030 




03 9 


TWO 


BR 


31F6 


CQ59 


D UM P 


031 


GOSEE 


034 


PROGDU 


BR IF GO BIT4=1 


31F8 


5 62 8 


DUMP 


032 








RDH D AS,V+2 


31FA 


B1DA 


DUMP 


033 




03 5 


FOUR 


BR 


31D8 


5638 


DUMP 


034 


PROGDU 






RDH D V + 2 



COMMENTS 



RST 1052 
SAVE I REG 
SET PRINTER MODE 
SET PRINT GATE AND BUSY 
SET UP FOR A SKIP 

TEST FOR FF STOP ADDR 

ZERO OUT V REG 

ZERO OUT G REG 

GO DO A SKIP IMMED 

SET UP XLATE TABLE ADDRESS 

SET UP PLBAR COUNTER 

SET UP END OF LINE COUNTER 

SET UP CONSTANT OF 131 DECIMAL 
IN HI REG FOR PLBAR INCREM 
BR IF NOT MOD ADDR 
LOAD BLANK IN Tl 
GO PUT BLANK IN BUFFER 
GO PUT BLANK IN BUFFER 
LOAD ADDR INTO D REG 
BR IF PROG ADDR 

GO LOAD LAST HALF OF MOD ADDR 
BR IF NOT MOD 
READ OUT OF AUX 
GO LOAD BUFFER 
READ OUT OF PROG 



AODR 


WORD 


SEOUENC 


:e no. 


LABEL 


31 DA 


5 6B5 


DUMP 


035 


FOUR 


31 DC 


A5FC 


D UM P 


03 6 




31DE 


56B9 


DUMP 


037 




31EO 


A5FC 


DUMP 


03 8 




31E2 


5 7B5 


DUMP 


03 9 


TWO 


31 E4 


A5FC 


DUMP 


040 




31E6 


57B9 


D UM P 


041 




31E8 


A5FC 


DUMP 


042 




31FA 


2B45 


D UM P 


043 




31 EC 


A606 


DUMP 


044 




31 EE 


053D 


D UM P 


045 




31F0 


C4F4 


DUMP 


046 




31 F2 


A 60 6 


DUMP 


04 7 




31F4 


R1F6 


DUMP 


048 


NOTADR 


25FC 


33F5 


D UM P 


049 


UNPACK 


25FE 


0861 


D UM P 


050 




2600 


F48 6 


DUMP 


051 




2602 


2B7B 


D i JM P 


052 




2604 


2 BCD 


DUMP 


053 




2606 


5DA0 


D UM P 


054 


LOADBF 


2608 


4FEF 


DUMP 


055 




260A 


2D04 


DUMP 


056 




260 C 


2E7B 


D UM P 


057 




26CE 


4BDF 


DUMP 


05 8 




2610 


2EAD 


DUMP 


059 




2612 


F497 


D UM P 


060 




2614 


6EF3 


DUMP 


061 




2616 


2E2 3 


D UM P 


062 


OVERS 8 


2618 


251B 


DUMP 


063 




261A 


5 50 9 


DUMP 


064 




261C 


CC21 


DUMP 


065 




261E 


128E 


D UM P 


066 




2620 


2 34 5 


DUMP 


06 7 


LOADZE 


2622 


2C2B 


DUMo 


06 8 




2624 


OCBO 


DUMP 


069 




2626 


C48 6 


DUMP 


070 




2628 


031 


D UM P 


071 




262A 


2 41 B 


DUMP 


072 




262C 


03 


DUMP 


073 




262E 


5029 


DUMP 


074 




2630 


2F93 


D UM P 


075 


PRINT 


2632 


3002 


DUMP 


076 




2634 


FEB8 


DUMP 


07 7 




2636 


3F8 5 


DUMP 


07 8 


SKIP 


2638 


1D00 


DUMP 


079 


CARR 


263A 


4DFF 


D UM P 


080 




263 C 


FABC 


DUMP 


08 1 


WAIT 


263 E 


DB42 


DUMP 


082 




2640 


1D00 


DUMP 


08 3 




2642 


COO A 


DUMP 


084 


DONT 


2644 


51E9 


DUMP 


085 





EXTSEQ 


NEXTLABEL 


STATEMENT 
T1=D0XL 


049 


UNPACK 


BAL 

T1 = D0 


049 


UNPACK 


BAL 
T1=D1XL 


04 9 


UNPACK 


BAL 
T1 = D1 


049 


UNP AC K 


BAL 

T1=0$K40 


054 


LOADBF 


BAL 

Z = GKK30 


048 


NOTADR 


BR IF ZNZ 


054 


LOADBF 


BAL 


031 


GOSEE 


BR 

T1=T1$KF0 

Z=T1+KC6 


054 


LOADBF 


8R IF AC=0 

T1=T1+K07 

T1=T1+KC0 

ROB PI AS,T+0 

PR=HO 

SET PRA K = 2C 

H0=H0+K0 7 

PR0=P1 

HO=HO+KAQ 


06 2 


0VER88 


BR IF AC=1 
H0=H0+H1 
H0=H0+K0 2 
G1 = GH-K01 
P0 = G1 


06 7 


LOADZE 


8R IF PO BIT0=1 

RTN 

T1=0$K40 

P0=P0+K02 

Z=PO<KRO 


054 


LOADBF 


BR IF ZNZ 


075 


PRINT 


BR IF GO BIT4=1 
G0=G0+K0 1 


075 


PRINT 


BR IF GO BIT4=0 

vo=uo 

H1=C$K09 

SET PRA K=90 


079 


CARR 


BR IF PRS BIT3=C 
H1=H1$K80 
RST PRA K-SO 
PRC^Hl 


081 


WAIT 


BR IF PRS 3IT7=0 


084 


DONT 


BR IF HI BIT5=0 
RST PRA K/=80 
RST PRA K=50 
H0=U1 



CL0AD=*E60, 
COMMENTS 



EC LEVEL=128266 PAGE 205 



SET UP TO 
GO UNPACK 
SET UP TO 
GO UNPACK 
SET UP TO 
GO UNPACK 
SET UP TO 
GO UNPACK 
SET UP FOR 



UNPACK 

CHAR AND LOAD 
UNPACK CHAR 
CHAR AND LOAD 
UNPACK CHAR 
CHAR AND LOAD 
UNPACK CHAR 
CHAR AND LOAD 
A BLANK 



BUFFER 



BUFFER 



BUFFER 



BUFFER 



GO LOAD 
TEST IF 



BUFFER 
DONE WITH 



ADDR 



GO LOAD BUFFER 



PUMP IN F 

TEST FOR THRU 9 

BP IF THRU 9 

CONVERT BYTE TO HEX 

PUMP IN C 

READ FROM XLATE TABLE 

LOAD PLBAR 

SET READ CTRL 

INCREMENT PLQAR AND DELAY 

LOAD PLB 

INCREMENT PLBAR 

BR IF OVER 88 

ADD 131 TO PLBAR 

ADD 2 TO PLBAR 

CHECK FOR END OF DATA 

BR IF ALL DATA IN BUFFER 

SET UP TO LOAD BLANKS 
TEST FOR BUFFER FULL 



BR 


IF BUFFER NOT 


FULL 


BR 


IF DONE WITH 


MOD 


INCREMENT MOD LINE COUNTER 


BR 


IF NOT DONE WITH MOD 


PUT 


DUMP START ADDR IN VO 


SET 


UP FOR PRINT 


AND SKIP 


SET 


PRT GATE AND 


BUSY 


BR 


IF NO CH 12 




SET 


UP FOR SKIP 




RST 


CH 12 AND PRT CK 


SET 


CARR CTRL 




BR 


IF NO REQ 




DON 


•T RESET CH. 


12 UNLESS 


RESET CH. 12 AND 


PRT CHK 


RST 


PRT REQ AND 


BUSY 


TEST FOR END OF 


DUMP 



1ST, 



ADDR 


WORD 


SEQUENCE N 


2646 


6E21 


D UM P 


086 


2648 


C403 


n UM P 


087 


264A 


DEBC 


D UM P 


088 


264C 


02CO 


DUMP 


090 


264E 


C4D3 


DUMP 


0^8 


26 50 


B1BE 


DUMP 


099 


2652 


8174 


D UM P 


ICO 


2654 


AB2C 


D UM P 


101 



CL0A0=*E60, EC LEVEL=128266 PAGE 206 
LABEL NEXTSEQ NEXTLABEL STATEMENT COMMENTS 

BR IF DONE 
BIT1=0 BR IF PRT NOT READY 

TEST FOR END OF PROGRAM STORAGE 

GO PRINT ANOTHER LINE 
3UIT CCOM 064 LRSTR BAL RESTORE I REG 

GO TO SOFT STOP 

* CROSS REFERENCE FOR CSECT DUMP * 



NEXTSEQ 


NEXTLABEL 


STATEMENT 
H0=H0<V0 


100 


QUIT 


BR IF Z=0 


081 


WAIT 


BR IF PRS 
Z=V0<KCC 


100 


QUIT 


BR IF Z=0 


014 


INITIL 


BR 


CCOM 064 


LRSTR 


BAL 


BSWI 107 


RESTRH 


BR 



DUMP 


GO? 


ALDP 


165 










DUMP 


010 


DUMP 


00 8 










DUMP 


014 


DUMP 


0^9 










DUMP 


028 


DUMP 


024 










DUMP 


031 


DUMP 


04 8 










DUMP 


034 


DUMP 


031 










DUMP 


035 


DUMP 


02 9 


DUMP 


033 






DUMP 


039 


DUMP 


030 










DUMP 


048 


DUMP 


046 










DUMP 


049 


DUMP 


03 6 


DUMP 


03 8 


DUMP 040 


DUMP 042 


DUMP 


054 


DUMP 


026 


DUMP 


027 


DUMP 044 


DUMP 04 7 


DUMP 


062 


DUMP 


060 










DUMP 


067 


DUMP 


065 










DUMP 


75 


DUMP 


07! 


DUMP 


073 






DUMP 


078 


DUMP 


012 










DUMP 


79 


DUMP 


077 










DUMP 


081 


DUMP 


031 


DUMP 


088 






DUMP 


84 


DUMP 


082 










DUMP 


100 


DUMP 


087 


DUMP 


09 8 







DUMP 05 1 DUMP 070 
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DYPE DESCRIPTIVE TEXT 



ADDITIONAL INFORMATION REFERENCE 

2025 PROCESSING UNIT, F.E. THEORY OF OPERATION MANUAL 



AUX STORAGE 
ADDRESS 0XF7 

*********** 
* * 

* SENSE * 

* BYTE * 

* * 

** ** ** ** * * * 

L.S. REG PI 



1052 UCW 

0XF8 0XF9 OXFA OXFB OXFC OXFD OXFE OXFF 

***************#*****************************************************************#******** 

* * * DATA ADDRESS * * * 

* CHANNEL * FLAGS ************************ COUNT FIELD * NEXT CCW ADDRESS * 

* STATUS * AND OP * UNIT * * * * 

* * * STATUS * * * * 
****#****************#******###**#*****************************#************************** 

GO Gl HO STATUS U0-U1 

V0-V1 DATA ADDRESS 



SENSE BYTE 



CHANNEL STATUS 



FLAGS AND OP 



UNIT STATUS 



0=COMMAND REJECT 
1=INTERVENTI0N REQUIRED 
2=D0ES NOT APPLY 
3=EQUIPHENT CHECK 
4=D0ES NOT APPLY 
5=D0FS NOT APPLY 
6=D0FS NOT APPLY 
7=00ES NOT APPLY 



0=SECONDARY BIT 
1=INC0RRECT LENGTH 
2=PP0GRAM CHECK 
3=PR0TECTI0N CHECK 
4=0 COUNT BIT 
5=CHAN CONTROL CHECK 
6=INTERFACE CHECK 
7=PR-KB INTERRUPT IN 
INTERRUPT BUFFER 



C=CHAIN DATA (CD) FLAG 
1=CHAIN COMMAND (CO FLAG 

2=SUPPRESS LENGTH INDICATION (SLI) FLAG 
3=SKIP FLAG 

4=PR0GRAM CONTROLLED INTERRUPT (PCI) FLAG 
5=ACTIVE BIT 
6-7=0P -- 01=WRITE 

10=READ OR SENSE 

ll=WPITE WITH ACR 



©^ATTENTION 
L=DOES NOT APPLY 
2=D0ES NOT APPLY 
3= BUSY 

4=CHANNEL-END 
5=DEVICE-END 
6=UNIT-CHECK 
7=UNIT EXCEPTION 



DYPE ENTRY POINTS 



A SHARE REQUEST FOR ONE 



NOT READY 

LOGOUT 

ALTER/DISPLAY 



TWRREQ — FROM -BSWI- TO HANDLE 
OF THE FOLLOWING. 

1. ATTENTION 5. NOT READY TO READY 

2. READ SHARE REQUEST 6. 

3. WRITE SHARE REQUEST 7. 

4. INTERRUPT STKD REQ 

THE FOLLOWING BITS ARE TESTED AS NECESSARY TO 
DETERMINE THE STATUS OF THE CURRENT OPERATION 

Gl BIT 5 — ACTIVE BIT 

GO BIT — SECONDARY BIT 

PO BIT 4 ~ ENDING STATUS BIT 



GOCAL — 



TWSEC7 -- 



FROM 2540 ROUTINE TO SHARE WORD THAT MOVES 
SENSE REG. AFTER THE WORD IS EXECUTED, THE 
-DYPE- ROUTINE BRANCHES TO -DPTS- TO 00 THE 
SENSE OPERATION FOR EITHER THE 1052 OR 2540. 

FROM I/O INSTRUCTIONS ROUTINE -DCLA- FOR THE 

FOLLOWING CONDITIONS. 

START I/O — ACT BlT=0, SEC BIT=1 

TEST I/O — ACT BIT=1, SEC BIT=1, CC FLAG=0 

TEST I/O ~ ACT BIT=0 

OUTSTANDING STATUS IS STORED IN THE CSW. 



NOATEN — FROM WRAP TRAP ROUTINE. 
TRY FOR AN INTERRUPT. 



THIS ENTRY IS USED TO 



TW0FF7 — START I/O ENTRY. CCW FETCH HAS JUST BEEN 

COMPLETED IN -DCLB- . READY IS TESTED, THEN 
THE ROUTINE INITIALIZES FOR THE CURRENT COMMAND, 



HLTTW — 



HALT I/O ENTRY FROM I/O INSTRUCTIONS ROUTINE, 
-DCLA- . THE ACTIVE AND SECONOARY BITS ARE 
TESTED TO DETERMINE THE NECESSARY ACTION AND 
CONDITION CODE SETTING. 



STTRSL -- TRANSLATE SUBROUTINE ENTRY. TRANSLATES 

KEYBOARD CODE CHARACTERS TO EBCDIC. USED BY 
ALTER/DISPLAY ROUTINE, AS WELL AS DURING A 
READ REQUEST CYCLE. 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL statement 






OYPE 


001 


T 




1052 REQUEST ROUTINES 






OYPE 


0C2 


ASEQ 


AL07=0 2 








0782 


FFA3 


OYPE 


003 


TWRREQ 




020 


ADPACT 


BR IF TU3=1 


0784 


FAA5 


OYPE 


004 






021 


LOGREQ 


BR IF TT7=1 


0786 


9816 


OYPE 


005 




CCOM 


058 


LSAVEB 


BAL 


0788 


A 56 6 


OYPE 


006 






179 


GETUCW 


BAL 


078A 


C826 


OYPE 


007 






C22 


NOBUFR 


BR IF PQ4=0 


078C 


CE9 2 


OYPE 


008 


AFTER 




Oil 


N OATEN 


BR IF TTO=0 


078E 


3F85 


DYP C 


009 


ATT EN 








H0=H0$K8G 


0790 


0F1C 


OYPE 


010 










RST TA K=01 


0792 


1F28 


OYPE 


Oil 


NOATEN 








RST TA K = C2 


0794 


3C83 


OYPE 


012 










P0=P0$K08 


0796 


8PRE 


DYPE 


013 




OCOM 


00 8 


INTRPT 


BAL 


0798 


CE9C 


DYPE 


014 






016 


QATNO 


BR IF TT0=0 


079A 


2F04 


OYPE 


015 










SET TA K=20 


079C 


8378 


OYPE 
OYPE 


016 
017 


QATNO 
* 




191 


PUTUCS 


BAL 


079E 


FEDC 


OYPE 


019 






052 


GOBSWI 


BR IF TT3=0 


07A0 


9A0C 


DYPE 


019 


AOPREQ 


ALOP 


037 


START 


BR 


07A2 


A6B8 


OYPE 


020 


ADPACT 


ALDP 


27 5 


RTTYP 


BR 


07A4 


947A 


DYPE 


021 


LOGREQ 


BMCK 


092 


LOGOUT 


BR 


07A6 


D13D 


DYPE 


022 


MOBUFR 




034 


AC1 


BR IF G15=l 


07A8 


CE2D 


OYPE 


023 






025 


QATYES 


BR IF H00=1 


C7AA 


2E43 


OYPE 


02 4 










H0=0$K04 


07AC 


C413 


OYo c 


025 


OATYES 




Cll 


NOATEN 


BR IF G00=1 






OYPE 


026 


* 




ACTIVE 


SECONDARY 


07AE 


2 48 5 


OYPE 


027 










G0=0$K8C 


07BC 


DE93 


OYPE 


028 






Oil 


NOATEN 


BR IF TT1=1 


07B2 


2E07 


DYPE 


02 9 










H0 = 


07B4 


CE8F 


OYPE 


030 






00 9 


ATTEN 


6R IF TT0=1 


C7R6 


FEA1 


DYPE 


031 






019 


AOPREQ 


BR IF TT3=1 


07 B 8 


3 42 3 


OYPE 


032 










G0=GC$KC2 


C78A 


879 2 


OYPE 


033 






Oil 


NOATEN 


BR 


07BC 


C471 


OYPE 


034 


AC1 




062 


OSNS 


BR IF G00=1 






OYOE 


035 


* 




ACTIVE 1 


SECONDARY 


07BE 


2 EC 7 


OYPE 


036 










H0=0 


07C0 


EEC 6 


OYPE 


037 






04 


SINTVN 


3R IF TT2=0 


07C2 


3 04 5 


OYPE 


038 










P1=P1$K40 


07C4 


B36E 


OYPE 


039 


DOCRLF 




072 


CRLF 


BR 


07C6 


8FBA 


DYPE 


040 


SINTVN 


OCOM 


006 


PC I BR 


BAL 


C7C8 


DFF8 


DY^E 


041 






06 6 


READOT 


BR IF TU1=0 






DYPE 


042 


* 


1 


*/rite 


OPERATION 


7CA 


C05F 


OYPE 


043 






053 


WROBI T 


BR IF G04=l 


07CC 


5F38 


OYOF 


044 










ROB HI V + l 


07CE- 


4FFF 


OYPE 


045 










TE=H1 


07 DO 


0F20 


OYPE 


046 










RST TA K=02 


07D2 


5006 


DYPE 


047 


WCOMOT 








U=U-1 


07D4 


C4DA 


OYPE 


048 






051 


MORE 


BR IF ZNZ 


0706 


C57B 


OYPE 


04 9 






067 


CHAIN! 


BR IF G10=l 


0708 


3483 


DYPE 


050 










G0=G0*KG8 


07DA 


837A 


OYPE 


051 


MORE 




192 


PUT UCW 


BAL 



MODE 



IS OFF 


US REG 


HARE 


REQ 


SENT 




(NOT 


PCI ) 


NOT 


SET 



S REG 



CH OFF 
ART 
CHAR 
ST 


ATUS 
ATUS 


REG 
REG 



CLOAO=*E60, 
COMMENTS 



BR IF ALTER-OI SPLAY AC 
BR IF LOGOUT REQUEST 
GO SAVE P AND I 
GET UCW AND SET PR-KB 
BR IF NOT END STATUS 
BR IF ATTENTION LATCH 
SET ATTEN IN UNIT STAT 
RESET ATTEN LATCH 
RST READ, WRITE, AND S 
TURN ON END STATUS PRE 
TRY FOR NORMAL INTRPT 
BR IF ATTENTION LATCH 
SET MICROFORCE LATCH 
MOVE IN NEW UNIT STATU 

STORE UCW 
BR IF ALDP REQUEST LAT 
GO TO ALTER-DI SPLAY ST 
ALDP REQUEST, GO TYPE 
GO HANDLE LOGOUT REQUE 
BR IF ACTIVE BIT ON 
BR IF ATTN BIT IN U-ST 
SET DEVICE END IN U-ST 
BR IF SECONDARY BIT ON 



RST CH STATUS REG, SET SEC BIT 

BR IF NOT-READY TO READY 

CLEAR UNIT STATUS REG 

BR IF ATTENTION LATCH SET 

BR IF ALTER-OI SPLAY LATCH ON 

SET INTERFACE CHECK 

BR IF SECONDARY BIT ON 

CLEAR UNIT STATUS REG 

BR NOT INTERVENTION REQUIRED 

SET INTVN REQ IN SENSE REG 

IF PCI, TRY FOR PCI INTERRUPT 
BR IF READ OPERATION 

BR IF 0-COUNT BIT SET 

READ CHAR AT DATA ADDRESS 

SEND CHAR TO TE DATA REG 

ISSUE SHARE RESET 

DECREMENT COUNT 

BR IF COUNT = 

BR IF CD FLAG 

SET COUNT BIT 

STORE UCW EXCEPT UNIT STATUS 
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TIVE 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


070C 


AB2 


DYPE 


05 2 


GOBSWI 


BSWI 10 7 


RESTRH 


BR 


07DE 


148 3 


DYPE 


05 3 


WROBIT 






G0=G0*-K08 


07F0 


E567 


DYPE 


054 


AD1M 


057 


SLION 


BR IF G12=l 


07E2 


344 5 


DYPE 


055 








G0=G0$K40 


07E* 


15C5 


DYPE 


05 6 








G1=G1*-KC0 


07E6 


E145 


DYPE 


057 


SLION 


03 9 


DOCRLF 


BR IF G16=l 


07E8 


5DD9 


DYPE 


058 








P1 = P1 


07EA 


C4F1 


DYPE 


059 




06 2 


OSNS 


BR IF 1=0 


07EC 


15C5 


DYPE 


060 








G1=G1*-KC0 


07EE 


3E2 3 


DYPE 


06 1 








HO=HO$K0 2 


07F0 


D57B 


OYPC 


06 2 


OSNS 


06 7 


CHAIN1 


BR IF Gll=l 


07F2 


3 EC 3 


DYPE 


063 








H0=HC$KCC 


07F4 


3435 


DYPE 


064 


QFL I P 






G0=G0$K80 


07F6 


8792 


DYPE 


065 




Oil 


NOATEN 


BR 


07F8 


A1D2 


DYPE 


06 6 


READOT 


090 


READ 


BR 


C7FA 


148 5 


DYPE 


067 


CHAIN1 






G0=G0*-K80 


07FC 


8378 


DYPE 
DYPE 


06 8 
06 9 


# 


191 


PUTUCS 


BAL 


07FE 


A598 


DYPE 
DYPE 


C7 
071 


AEND 


162 


KKKKKK 


BR 


336E 


2F53 


DYPE 


072 


CRLF 






H1=0$K05 


3370 


3F15 


DYPE 


073 








H1=H1$K10 


3372 


1F0C 


DYPE 


074 








RST TA K=80 


3^74 


2F08 


DYPE 


°75 








SET TA K = 40 


3376 


4FFF 


OYPF 


07 6 








TE = H1 


3378 


CF20 


DYPE 


07 7 








RST TA K=02 


3 37 A 


3485 


DYPE 


078 








G0=G0$K80 


337C 


148 3 


DYPE 


079 








GC=G0*-K08 


337E 


50D9 


DYPE 


080 








P1 = P1 


33 80 


C48 7 


DYPF 


08 1 




08 4 


OKDE 


BR IF Z = 


3382 


3E23 


DYPE 


082 








H0=H0$KC2 


3384 


15C5 


DYPE 


08 3 








G1=G1*-KCC 


33 86 


D5CD 


DYPE 


084 


OKDE 


08 7 


EXITA 


BR IF Gll=l 


3388 


3E8 3 


DYPE 


08 5 








H0=HC$KQ8 


338A 


8F3F 


DYPF 


086 




DCOM 00 8 


INTRPT 


BAL 


338C 


8378 


DYPE 


08 7 


EXITA 


191 


PUTUCS 


BAL 


338E 


AB2C 


DYPE 


08 8 




BSWI 107 


RESTRH 


BR 






DYPE 


089 


* 


READ 


OPERATION 




21 D2 


5AFF 


DYPE 


090 


READ 






H1 = TI 


21D4 


1FC5 


DYPE 


091 








H1=H1*-KC0 


21D6 


DAF1 


DYPF 


092 




103 


ALTCOD 


BR IF TT5=1 


21D8 


CAOC 


DYPE 


093 




09 5 


ARNSET 


BR IF TT4=0 


21DA 


2015 


DYPE 


09 4 


SETEQP 






P1=C$K10 


2 IDC 


C06D 


DYPE 


09 5 


ARNSET 


112 


EXITB 


BR IF G04=l 


21DE 


4806 


DYPE 


096 








I=U 


21E0 


957A 


DYPF 


097 




242 


STTRSL 


BAL 


21 E2 


4 086 


DYPF 


09 8 








U = I 


21E4 


4 2CF 


DYPE 


099 








STPC=P0 


21E6 


F568 


DYPF 


ICO 




102 


SKIP 


BR IF G13=l 


21E8 


7F38 


DYPE 


101 








STB HI V+l 


21EA 


87D2 


DYPE 


102 


SKIP 


047 


WCOMOT 


BR 



CL0AD=*E60, 
COMMENTS 



RETURN FROM REQUEST 
RESET COUNT BIT 
BR IF SLI FLAG ON 
SET WLP 

BREAK CHAIN (RESET 
BR IF WRITE ACR OR 
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CC»CD FLAGS) 
READ OP 



BR IF SENSE REG IS ZERO 

RESET CC, CD FLAGS 

SET UNIT CHECK 

BR IF CC FLAG 

SET CHANNEL END, DEVICE 

SET SECONDARY BIT 



END 



RESET SECONDARY BIT 

MOVE IN NEW UNIT STATUS REG 

STORE UCW 
GO RESTORE P, I, THEN CHAIN 

SET UP 

NEW LINE CHARACTER 
RESET READ LATCH 
SET WRITE LATCH 
SEND NL CHAR TO TE DATA REG 
ISSUE SHARE RESET 
SET SECONDARY BIT 
RESET 0-COUNT BIT 

BR IF SENSE REG IS ZERO 

SET UNIT CHECK 

RESET CC, CD FLAGS 

BR IF CC FLAG 

SET CHANNEL END 

TRY FOR NORMAL INTRP (NOT PCI) 

GET NEW UNIT STATUS, STORE UCW 

RETURN FROM REQUEST 

GET KB CHAR FROM TI REG 

RESET CASE BITS 0, 1 
BR IF ALTERNATE CODING 
BR IF NOT KEYBOARD CHECK 
CLEAR SENSE REG, SET EQUIP CHK 
3R IF 0-COUNT BIT SET 
SAVE COUNT 

XLATE KB CHAR AND PRINT IT 
RESTORE COUNT 
SET PROTECT KEY 
BR IF SKIP FLAG 
STORE CHAR READ AT DATA ADDR 
GO DECREMENT COUNT 



AODR 


WORD 


SEOUEMC 


E NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


21F0 


0F5B 


OYPE 


103 


ALTCOD 






Z=HKK05 


21F2 


C4F0 


OYPE 


1C4 




109 


RON OF 


BR IF Z=0 


21F4 


CFAB 


DYPE 


105 








Z=HKKCA 


21F6 


C40A 


OYPE 


10 6 




094 


SETEQP 


BR IF 7NZ 


21F8 


2E13 


DYPE 


107 








H0=0$K01 


21 FA 


1545 


OYPE 


108 








G1=G1*-K40 


21FC 


C06F 


DYPF 


1C9 


R ONOF 


111 


A 01 MA 


BR IF G04=l 


21 FE 


8 TEC 


OYPE 


110 




054 


AD1M 


BR 


21EE 


B36E 


DYPE 


HI 


AD1MA 


072 


CRLF 


BR 


21 EC 


87DE 


OYPE 


112 


EXITB 


05 3 


WROBI T 


BR 






DYP = 


113 


* 


START 


I/O ACTIVE SECONDARY 


259A 


9816 


DYPE 


114 


TW0FF7 


CCOM 058 


LSAVEB 


BAL 


259C 


54F9 


DYPE 


115 


TW0FF8 






H1=G0 


259E 


6 66 4 


DYPE 


116 








D=D+2 


2 5 AC 


8 38 


DYPE 


117 




195 


PUTUCA 


BAL 


25A2 


A566 


DYPE 


118 




179 


GETUCW 


BAL 


25A4 


1485 


DYPE 


119 








G0=G0*-K80 


25A6 


1C83 


DYPE 


120 








P0=P0*-K08 


25A8 


8 37 A 


DYPE 


121 




192 


PUT UCW 


BAL 


2 5AA 


2 EOT 


DYPE 


122 








H0=0 


25AC 


5FF9 


DYPE 


123 








H1 = H1 


25AE 


C432 


DYPE 


124 




126 


CONTUE 


BR IF ZNZ 


25BC 


A 82 


DYPE 


125 




BSWI 137 


RESTRH 


BR 


25B2 


104 5 


DYP!= 


126 


CONTUE 






D 1=P1*-K4C 


25B4 


1F2 8 


DYPP 


127 








RST TA K=C2 


25B6 


EEBA 


DYOP 


128 




130 


NONRDY 


BR IF TT2=0 


25B8 


3D4 5 


DYPE 


129 








P1=P1$K4Q 


25BA 


CF4B 


DYPE 


130 


NONRDY 






Z=HKKC4 


25 BC 


C4D0 


DYPE 


131 




174 


SENSE 


8R IF Z=0 


25BE 


EED5 


DYPE 


132 




147 


NOTRDY 


BR IF TT2=1 


25C0 


CF3B 


DYPE 


133 








Z=HKK03 


25C? 


C495 


DYPE 


134 




159 


NOOPRA 


BR IF Z=0 


25C4 


2 DO 7 


DYPE 


135 








P1=0 


25C6 


0F1B 


DYPE 


136 








Z=HKK01 


25C8 


C491 


DYPE 


137 




164 


WRIT 


BR IF Z=0 


25CA 


0F9B 


DYPE 


138 








Z=HKK09 


25CC 


C48F 


DYPE 


139 




163 


WRTACR 


BR IF Z=0 


25CE 


OFAB 


DYPE 


140 








Z=HKKOA 


25DO 


C487 


DYPE 


141 




170 


READOP 


BR IF Z=0 


25D2 


3D8 5 


DYPE 


146 








P1 = P1$K8C 


2504 


2E2 3 


DYPE 


147 


NOT ROY 






H0=0$K02 


25D6 


15C5 


OYPE 


148 








G1=G1*-KC0 


2508 


F 200 


DYPE 


149 


NOTCCB 


151 


NOTCCA 


BR IF 00 7=0 


25DA 


87F4 


DYPE 


150 




064 


QFLIP 


BR 


2580 


1 54 7 


DYPE 


151 


NOTCCA 






G1=G1*-K44 


2582 


8378 


DYPE 


152 




191 


PUTUCS 


BAL 


2584 


8C70 


DYPE 


153 




OPTS 146 


TSTPCI 


BR 


2 594 


2 EC 3 


DYPE 


159 


NOOPRA 






H0=0$K0C 


2596 


D558 


DYPE 


161 




149 


NOTCCB 


BR IF G11=0 


2598 


8D62 


DYPE 


162 


KKKKKK 


DPTR 072 


CHAINO 


BR 


258E 


3523 


DYPE 


163 


WRTACR 






G1=G1$K02 



CLOAD=*E60, 
COMMENTS 
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BR IF EOB 

BR IF NOT CANCEL 

SET UNIT EXCEPTION 

RESET CC FLAG 

BR IF 0-COUNT BIT IS SET 



SAVE P AND I 

MOVE COMMAND CODE 

ADJUST UCW ADR REG TO DATA ADR 

STORE DATA ADR AND COUNT IN UCW 

GET UCW, SENSE BYTE» SET MODE 

RESET SECONDARY BIT 

RESET ENDING STATUS BIT 

STORE UCW EXCEPT UNIT STATUS 

CLEAR UNIT STATUS REG 

BR IF NOT CHAIN DATA 

GO RESTORE CPU MODE 

RESET INTERVENTION REQUIRED BIT 

RST READ, WRITE, AND SHARE REO 

BR IF READY 

SET INTERVENTION REQUIRED 

BR IF SENSE COMMAND 
BR IF NOT READY 

BR IF NO-OP COMMAND 
CLEAR SENSE REG 

BR IF WRITE COMMAND 

SR IF WRITE ACR COMMAND 



BR 


IF READ COMMAND 


SET 


COMMAND REJECT IN SENSE REG 


SET 


UNIT CHECK IN U-STATUS REG 


RESET CC, CD IN FLAGS/OP REG 


BR 


NOT CHAINED FROM PRIOR CCW 


GO 


SET SEC BIT, TRY FOR INTRPT 


RESET CC FLAG AND ACTIVE BIT 


GET 


NEW UNIT STATUS, STORE UCW 


TEST PCI AND STORE CSW STATUS 


SET 


CHANNEL END , DEVICE END 


BR 


IF NO CC FLAG 


RESTORE P, I, STORE UCW, CHAIN 


SET 


BIT 6 FLAGS/OP REG 



CL0AD=*E60, EC LEVEL=128266 PAGE 211 



AODR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


COMMENTS 


2590 


2F03 


DYPE 


164 


WRIT 








SET TA K=40 


SET WRITE LATCH 


2 592 


87DA 


DYPE 


165 






051 


MORE 


BR 


GO STORE UCW, RESTORE CPU MODE 


2586 


3F20 


DYDE 


170 


READOP 








SET TA K=82 


SET READ, INITIAL PRTR LATCHES 


2588 


EB8C 


DYPE 


171 






173 


INNN 


BR IF TU6=0 


BR IF INITIAL PRTR NOT SET 


258A 


4FFF 


DYPE 


172 










TE=H1 


SEND CHARACTER TO 1052 DATA REG 


258C 


870A 


DYPE 


173 


INNN 




051 


MORE 


BR 


GO STORE UCW, RESTORE CPU MODE 


25DC 


3C83 


DYPE 


174 


SENSE 








P0=PC$K08 


SET ENDING STATUS BIT 


25DE 


837A 


DYPE 


175 






19 2 


PUTUCW 


BAL 


STORE UCW EXCEPT UNIT STATUS 


25E0 


5DF9 


DYPE 


176 


GOCAL 








H1 = P1 


MOVE SENSE REG 


25E2 


8C3E 


DYDE 


177 




OPTS 


104 


SENSE 


BR 


GO SHARE PRINTER SENSE ROUTINE 






DYPE 


178 


* 




UCW 


FETCH 






2566 


2 791 


DYPE 


179 


GETUCW 








D1=G-KC9 


SET AUX STORAGE 


2563 


5 66 


DYPE 


180 










DO=DCL 


ADDRESS 


25 6A 


16E3 


DYPE 


181 










D0=D0*-K0E 


0XF6 


256C 


2 404 


DYPE 


182 










SET MODE K=20 


SET PR-KB MODE 


256E 


5C6 8 


DYPE 


18 3 










RDH P AS,D+2 


GET PROTECT KEY, SENSE BYTE 


2570 


5 46 8 


DYPE 


184 










RDH G AStD+2 


READ CHNL STATUS, FLAGS/OP 


2572 


5268 


DYPE 


185 










RDH V AS,D+? 


DATA ADDRESS /UN IT STATUS 


2574 


5 06 8 


DYPE 


186 










RDH U AS, 0+2 


COUNT FIELD 


2576 


52E9 


DYPE 


187 










H0=V0 


MOVE UNIT STATUS 


2578 


2 771 


DYPE 


188 










Dl=0-K07 


RESTORE UCW ADDRESS TO F8 


257A 


128E 


DYPE 

DYPE 


189 
190 


* 








RTN 


UCW STORE 


0178 


5F2 9 


DYPE 


191 


PUTUCS 








V0=H0 


MOVE UNIT STATUS 


037A 


2 791 


DYPE 


192 


PUTUCW 








D1=0-KC9 


SET ADDRESS TO 0XF6 


037C 


7C6 8 


DYPE 


193 










STH P AS,D+2 


STORE SENSE BYTE 


037E 


746 8 


DYPE 


194 










STH G AS,D+2 


CHANNEL STATUS, FLAGS/OP 


0380 


7268 


DYPE 


195 


PUTUCA 








STH V AS,D+2 


DATA ADDRESS/UNIT STATUS 


0382 


7 06 8 


DYPE 


196 










STH U AS,D+2 


COUNT FIELD 


0384 


2771 


DYPE 


197 










Dl=0-K07 


RESTORE UCW ADDRESS TO F8 


0386 


128E 


DYPE 
DYPE 

DY°E 
DYPE 


198 
199 

200 
201 


* 
* 








RTN 


* START I/O ACT=0, SEC=l (007=0) 

* TEST I/O ACT=1, SEC=1, CC ELAG=0 

* TEST I/O ACTIVE=0 


33 1C 


2 79 1 


DYPE 


202 


TWSEC7 








Dl=0-K09 


SET ADDRESS TO 0XF6 


331E 


5 86 


DYPE 


20 3 










RDB Tl AS,D 


READ SENSE BYTE 


3320 


5BBR 


DYP E 


204 










T1=T1H 


RESET SENSE BITS 4-7 


3322 


7B60 


DYPE 


205 










STB Tl AS,D 


STORE SENSE BYTE 


3324 


6 664 


DVPE 


206 










D = D+2 


INCREMENT UCW ADDRESS TO F8 


3326 


2 404 


DYPE 


20 7 










SET MODE K=20 


SET PR-KB MODE 


3328 


8F7A 


DYPE 


208 




ERRO 


082 


PDCHST 


BAL 


GO READ CHANNEL AND UNIT STATUS 


332A 


0F04 


DYPE 


20 9 










RST TA K=20 


RESET MICROFORCE LATCH 


332C 


0139 


DYPE 


210 






215 


ZA1S1 


BR IF G15=l 


BR IF ACTIVE BIT I S ON 


332E 


C43 8 


DYPE 


211 






216 


ZA0S1 


BR IF G00=1 


BR IF SECONDARY BIT IS ON 


3330 


EEB5 


DYPE 


212 






214 


TNRCNT 


BR IF TT2=1 


BR IF INTERVENTION REQUIRED 


3332 


810C 


DYPE 


213 




CCOH 


155 


CCOB 


BR 


GO SET CPU MODE, COND CODE 


3334 


8C04 


DYPE 


214 


TNRCNT 


DPTT 


013 


UCENT 


BR 


GO SET UNIT CHECK, STORE CSW 


3338 


8C0E 


DYPE 


215 


ZA1S1 


DPTT 


02 3 


RESTES 


BR 


GO TEST UNIT STATUS 


333A 


3 62 3 


DYPE 


216 


ZA0S1 








D0=DC$K02 


SET DO 6 FOR P TR RTN TO BR ON 


333C 


CE3 7 


DYPE 


217 






219 


ZATEN 


BR IF HO 0=1 


BR IF ATTENTION BIT IS ON 


333E 


8CA4 


DYPE 


218 




DPTT 


04 9 


SHARE 


BR 


SHARE PTR RTN, THEN STORE CSW 



ADDR 


WORD 


SEQUENC 


:e no. 


LABEL 


NEXT! 


5EQ 


NEXTLABEL 


STATEMENT 


3336 


8C88 


DYPE 


219 


ZATEN 


DPTT 


061 


DEVE 


BR 






OYPE 


220 


* 


HALT 


10 




246C 


8F7A 


DYPE 


221 


HLTTW 


ERRQ 


082 


RDCHST 


BAL 


246E 


2404 


OYPE 


222 










SET MODE K=20 


2470 


C46 3 


DYPE 


22 3 






232 


ZHACTV 


BR IF GO 0=1 


2472 


D179 


DYPE 


224 






228 


ZHTERM 


BR IF G15=l 


2474 


FEEC 


DYPE 


225 






22 7 


ZHAO 


BR IF TT2=0 


2476 


ADF6 


OYPE 


226 




CCOM 


166 


CC3B 


BR 


2460 


8A9E 


DYPE 


227 


ZHAO 


DCLA 


285 


STORO 


BR 


2478 


1F00 


DYPE 


228 


ZHTERM 








RST TA K=80 


247A 


2F08 


OYPE 


,22 9 










SET TA K=40 


247C 


3 48 3 


DYPE 


230 










G0=G0$K0 8 


247E 


8AC2 


DYPF 


231 




DCLA 


279 


HOHO 


BR 


2462 


D56A 


DYPE 


23 2 


ZHACTV 




236 


ZHERE 


BR IF G11=0 


2464 


3E8 3 


DYPE 


233 










H0=H0$K08 


2466 


6 664 


DYPE 


23 4 










D=D+2 


2468 


7E6A 


DYPF 


235 










STH H AS,D-2 


246A 


8 AGO 


DYPE 


236 


ZHERE 


DCLA 


278 


OYPADD 


BR 


3478 


9316 


DYPE 


23 7 


PRGCHK 


CCOM 


05 8 


LSAVEB 


BAL 


34 7A 


B406 


DYPE 


238 




DCOM 


081 


REDSTR 


BAL 


347C 


A566 


DYPE 


239 






179 


GETUCW 


BAL 


347E 


8792 


DYPE 


240 






Oil 


NOATEN 


BR 






DY"F 


241 


* 




NEW 


TRANSLATE 


ROUTINE 


157A 


5AFF 


DYPF 


242 


STTRSL 








H1 = TI 


157C 


5F19 


DYPE 


243 










U1 = H1 


157E 


11C 5 


DYPE 


244 










U1=U1*-KC0 


158C 


CF10 


DYPE 


245 






253 


LOWCSE 


BR IF H10=0 


1582 


2 05 5 


DYPE 


246 


BACK 








UO=0$K50 


1534 


21BD 


OYPE 


247 










U1=U1+KB0 


1586 


2188 


DYPE 


248 










U1=U1+K08 


1588 


5F00 


DYPF 


249 










RDB HI AS,U 


158A 


4FFF 


DYPE 


250 


LOWEQ 








TE=H1 


158C 


0F2 


DYPE 


251 










RST TA K=02 


158E 


128E 


DYPE 


252 










RTN 


159C 


C48 3 


DYPE 


253 


LOWCSE 




246 


BACK 


BR IF Z=0 


1592 


F098 


DYPE 


254 






257 


LOWAQ 


BR IF LZNZ 


1594 


11CB 


DYPE 


255 










U1 = UKK0C 


1596 


C48 2 


DYPE 


2 56 






246 


BACK 


BR IF ZNZ 


1598 


F081 


DYPE 


257 


LOWAQ 




270 


LOWFQ 


BR IF HZ=0 


159A 


CB2 


DYPE 


258 






261 


LOW BO 


BR IF H14=0 


159C 


DB03 


DYPE 


259 






246 


BACK 


BR IF H15=l 


159E 


ER2D 


DYPE 


260 






267 


LOWCQ 


BR IF H16=l 


15A0 


011F 


DYPE 


261 


LOWBQ 








Z=UKKll 


15A2 


C4A9 


DYPE 


262 






265 


LOWDQ 


BR IF Z=0 


15A4 


1FBD 


DYPE 


263 










H1 = HKKB0 


15A6 


C48A 


DYPE 


264 






250 


LOWEQ 


BR IF ZNZ 


15A8 


1F7D 


DYPE 


26 5 


LOWDQ 








H1 = HKK70 


15AA 


C48A 


DYPE 


266 






250 


LOWEQ 


BR IF ZNZ 


15AC 


1118 


DYPE 
DYPE 


267 

26 8 


LOWCO 
* 








U1 = UKK01 


15AE 


C48 2 


DYPE 


269 






246 


BACK 


BR IF ZNZ 



CL0AD=*E60f 

COMMENTS 



EC LEVEL=128266 PAGE 212 



GO RESET I.B.t THEN STORE CSW 



GO 


READ CHANNEL AND UNIT STATUS 


SET 


PR-KB MODE 


BR 


IF SECONDARY BIT IS SET 


BR 


IF ACTIVE BIT IS SET 


BR 


IF NO INTERVENTION REQUIRED 


GO 


SET CPU MODE, COND CODE 3 


GO 


ZERO STATUS, STORE CSW 


RESET READ LATCH 


SET 


WRITE LATCH 


SET 


0-COUNT BIT 


GO 


RST CC, CD FLAGS, STORE CSW 


BR 


IF NO CC FLAG 


SET 


CHANNEL END 


SET 


UCW ADDRESS TO UNIT STATUS 


STORE UNIT STATUS IN UCW 


GO 


TEST CC FLAG 


GO 


SAVE P, I 


GO 


STORE UCW 


GET 


UCW, SENSE BYTE, SET MODE 


GO 


TO ENDING ROUTINE 


GET 


KEYBOARD CHARACTER 


MOVE CHAR TO WORK REG 


RESET CASE BITS — 0,1 


BR 


IF LOWER CASE 


SET 


MODLE ADDR OF TABLE 50XX 


ADO 


XXB8 


TO BIAS THE TABLE ADDRESS 


GET 


EBCDIC CHAR FROM TABLE 


SEND CHAR TO 1052 DATA REG 


SHARE RESET TO ALLOW 1C52 CYCLE 


RETURN TO LINK ADDRESS 


BR 


IF CHAR IS A BLANK 


BR 


IF NOT DASH, AT, AMPERSAND 


MODIFY TABLE ADOR 


UNCONDITIONAL BRANCH 


BR 


IF NUMERIC OR POUND SIGN 


BR 


IF NOT KB 8 BIT 


BR 


IF KB 4 BIT 


BR 


IF KB 2 BIT 



BR IF SLASH 

TRANSLATE ALPHA CHAR TO EBCDIC 

TRANSLATE CHAR TO EBCDIC SLASH 

MODIFY TABLE ADDR FOR COMMA, 
DOLLAR SIGN, OR PERIOD 



AODR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CL0AD=*E60, 
COMMENTS 



EC LEVEL=128266 PAGE 213 



15B0 


CB3 4 


DYPE 


270 


LOWFQ 


272 


LOWGQ 


15B2 


EB3 9 


DYPE 


271 




274 


LOWHQ 


15B4 


1FFD 


DYPE 


272 


LOWGQ 






15B6 


C48A 


DYPE 


273 




250 


LOWEQ 


15B8 


114B 


DYPE 


274 


LOWHQ 






15BA 


C48 2 


DYPE 


275 




246 


BACK 






DYPE 


277 


* 


FOLLOWING IS 






DYPE 


278 


ATABLE 


AD0R=50B8 




50B8 


407E 


DYPE 


279 


C 






50CE 


E6E7 


DYPE 


280 


C 






50 E4 


6015 


DY°E 

DYPE 


281 
282 


C 
AEND 







BR IF NOT KB 8 BIT 
BR IF KB 2 BIT 

TRANSLATE NUMERIC TO 
MOO TABLE AOOR FOR 



EBCDIC 
OR POUND 



BR IF HI 4=0 
BR IF H16=l 
H1 = HKKF0 
BR IF ZNZ 
U1 = UKK04 
BR IF ZNZ 
THE 1052 XLATE TABLE 

\ r 

XAUX' 407 E4C5E7A6C7D6E 5C4D5D 7F0C00F0 7B4A6FE2 E3E4E5 * 
XAUX«E6E7E 8 E96B4F7C 250000600 1D2D3D4D5D6D7D8D95B5A • 
XAUX«6015160C4EC1C2C3C4C5C6C7C8C94B5F50 05» 



* CROSS REFERENCE FOR CSECT DYPE * 



DYPE 


003 


BSWI 


088 








DYPE 


009 


DYPE 


03 








DYPE 


Oil 


BWRP 


162 


DYPE 


008 DYPE 025 


DYPE 


016 


DYPE 


CI 4 








DVPE 


019 


DYPE 


031 








DYPE 


020 


DYPE 


00 3 








DYPE 


021 


DYPE 


004 








DYPE 


C22 


DYPE 


00 7 








DYPE 


025 


DYPE 


2 3 








DYPE 


034 


DYPE 


022 








DYPE 


039 


DYPE 


057 








DYPE 


040 


DYPE 


037 








DYPE 


C47 


DYPE 


102 








DYPE 


051 


DYPE 


04 8 


DYPE 


16 5 DYPE 173 


DYPE 


52 


DYPP 


018 








DYPE 


053 


DYPE 


04 3 


DYPE 


112 




DYPE 


54 


DYPE 


110 








DYPE 


057 


DYPE 


054 








DYPE 


062 


DYPE 


03 4 


DYPE 


059 




DYPE 


64 


DYPE 


150 








DYPE 


066 


DVPE 


041 








DYPE 


067 


DYPE 


04 9 


DYPE 


062 




DYPE 


072 


DYPE 


03 9 


DYPE 


11 1 




DYPE 


084 


DYPE 


081 








DYPE 


087 


DYPE 


084 








DYPE 


09C 


DYPE 


06 6 








DYPE 


094 


DYPE 


10 6 








DYPE 


095 


DYPE 


00 3 








DYPE 


102 


DYPE 


100 








DYPE 


103 


DYPE 


09 2 








DYPE 


109 


DYPE 


104 








DYPE 


111 


DYPE 


10 9 








DYPE 


112 


DYPE 


09 5 








DYPE 


114 


DCLB 


253 








DYPE 


126 


DYPE 


124 








DYPE 


130 


DYPE 


128 









DYPE 028 DYPE 033 DYPE 065 DYPE 240 



ft********************************* 
* CROSS REFERENCE FOR CSECT DYPE * 



CL0AD=*E60t EC LEVEL=128266 PAGE 214 



DYPE 


147 


DYPE 


13? 










DYPE 


149 


DYPE 


161 










DYPE 


151 


DYPE 


149 










DYPE 


159 


DYPE 


134 










DYPE 


162 


DYPE 


070 










DYPE 


163 


DYPE 


139 










DYPE 


164 


DYPE 


137 










DYPE 


170 


DYPE 


141 










DYPE 


173 


DYPF 


171 










DYPE 


174 


DYPE 


131 










DYPE 


176 


ERDR 


104 










DYPE 


179 


DYPE 


006 


DYPE 


118 


DYPE 


239 


DYPE 


191 


DYPE 


016 


DYPE 


06 8 


DYPE 


087 


DYPE 


192 


DYPF 


051 


DYPE 


121 


DYPE 


175 


DYPE 


195 


DYPE 


117 










DYPE 


202 


DC LA 


40 3 










DYPE 


214 


DYPE 


212 










DYPE 


215 


DYPE 


210 










DYPE 


216 


DYPE 


211 










DYPE 


219 


DYPE 


217 










DYPE 


221 


DC LA 


277 










DYPE 


227 


DYPE 


225 










DYPF 


228 


DYPE 


224 










DYPE 


23? 


DYPE 


223 










DYPE 


236 


DYPE 


23 2 










DYPE 


237 


DCLR 


04 8 










DYPE 


242 


ALDP 


304 


DYPE 


09 7 






DYPE 


246 


DYPE 


253 


DYPE 


256 


DYPE 


259 


DYPE 


250 


DYPE 


264 


DYPE 


266 


DYPE 


273 


DYPE 


253 


DYPF 


245 










DYPE 


2 57 


DYPE 


25 4 










DYPE 


261 


DYPE 


25 8 










DYPE 


265 


DYPE 


262 










DYPE 


267 


DYPE 


260 










DYPE 


270 


DYPE 


25 7 










DYPE 


27? 


DYPE 


270 










DYPE 


2 74 


DYPE 


271 











DYPE 152 



DYPE 269 DYPE 275 



ECOL DESCRIPTIVE TEXT 
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ENTRY POINTS 



MASK 



WLR 



ENTRY IS MADE TO THIS LABEL FROM THE EPCH 
ROUTINE WHEN A COLUMN BINARY OPERATION 
NEEDS A MASK TO START. THE PUNCH ROW IMAGE 
BUFFER HAS BEEN FILLED WITH ONES, THE DATA 
ADDRESS AND COUNT HAVE BEEN STORED, 2540 
MODE AND CPU ZONE HAVE BEEN SET. 

ENTRY IS MADE TO THIS LABEL FROM THE FPXF 
ROUTINE WHEN A WRONG LENGTH RECORD HAS BEEN 
DETECTED. THE WLR BIT IS SET AND STORED 
IN THE INDICATOR BYTE IN AUXILIARY STORAGE. 
THE RESIDUAL COUNT IS STORED AND THE ERRO 
ROUTINE IS BRANCHED TO FOR A UCW READOUT. 



GOCHAN ENTRY IS MADE FROM THE ERCX ROUTINE AFTER 
THE CCW COUNT IS ZERO FOR A DATA CHAINING 
OPERATION. A BRANCH TO DCLB IS MADE TO 
PICK UP THE NEXT CCW. 

CNTLRG ENTRY IS FROM THE EPCH ROUTINE DURING A 

DATA CHAINING OPERATION TO DETERMINE IF THE 
LAST CCW RESULTED IN AN 8 COLUMN GROUP 
BEING SET INTO THE PUNCH IMAGE BUFFER. IF 
AN 8 COLUMN GROUP WAS NOT COMPLETED BY THE 
LAST CCW, THE INFORMATION IS READ BACK FROM 
THE BUFFER, COMPLETED, AND STORED BACK INTO 
THE BUFFER. 



MOVWLP ENTRY IS MADE FROM THE EPXF ROUTINE AFTER 
THE PUNCH DATA HAS BEEN TRANSLATED TO ROW 
IMAGE. THE RESIDUAL COUNT IS STORED AND 
THE ERRQ ROUTINE IS BRANCHED TO FOR A UCW 
READOUT. 



NEWMSK N ENTRY IS MADE TO THIS BRANCH SET FROM THE 
EPXF ROUTINE TO FETCH A NEW COLUMN MASK 
AS INDICATED BY THE CONTROL REGISTER -I0-. 



ADDR 


WORD 


SEQUENC 


:e no. 


LABEL 






ECOL 


001 


T 






ECOL 


00 2 


* 


1B4A 


2 48 5 


ECOL 


00 3 


MASK 


1B4C 


2AF7 


ECOL 


004 




1B4E 


5AB9 


ECOL 


00 5 




1B50 


4EA6 


ECOL 


006 




IB 52 


5B99 


ECOL 


007 




1B54 


5 85 9 


ECOL 


00 3 




1B56 


C1E.3 


ECOL 


00 9 


AGAIN 


1B58 


F0E1 


ECOL 


010 




1B5A 


211 B 


ECOL 


on 




1B5C 


D861 


ECOL 


012 




1B5E 


311B 


ECOL 


013 




IB 60 


E82 4 


ECOL 


014 


CTEVEN 


1B62 


261B 


EC3L 


015 




1B64 


F4A4 


ECOL 


016 




1B66 


?DA1 


ECOL 


017 


WLR 


186 8 


5 ECO 


ECOL 


018 




1B6A 


3E13 


ECOL 


019 




186C 


7 ECO 


ECOL 


020 




1B6E 


9B7C 


ECOL 


021 




1B24 


5 73 8 


ECOL 


022 


RDDATA 


1B26 


E72A 


ECOL 


023 




1B28 


6 541 


ECOL 


024 




1B2A 


F72E 


ECOL 


025 


M 


182C 


6B41 


ECOL 


026 





NEXTSEQ 



NEXTLA8EL STATEMENT 



PUNCH COLUMN BINARY AND DATA CHAINING 



G0=0$K80 

T0=O$KFF 

T1 = TC 

H=T 

I1 = T1 

G1 = T1 

Z=U1*-KCE 

BR IF LZ=0 

U1 = UH-K01 

BR IF PC BIT5=1 

U1=U1-K01 **TOTAL CT 

BR IF PO BIT6=0 

D0=D0+K01 

BR IF AC=0 

P1=0-KCA 

RDH H AS,P+0 

H0=H0$K01 

STH H AS,P+0 

BR 

PDB Dl V+l 

BR IF Dl BIT2=0 

G1 = GKG0 

BR IF Dl BIT3=0 

TUTKGO 



014 CTEVEN 

C14 CTEVEN 

02 2 RDDATA 

022 RDDATA 



059 HALF 
02 5 N 
027 NE 



COMMENTS 



FIRST MASK 
RST ALL REG 1 S 



MASK FOR ODD CT 

BR IF CCW CT EVEN 

MAKE CT EVEN 

BR IF TOTAL CT EVEN 

ODD, TAKE 1 COL LESS 

BR IF LOWER HALF 

WLR CTR + 1 

BR IF NOT WLR 

WLR, P=10F5 

RD IND BYTE 

WLR INDICATOR 



READ DATA 



ADDR 

1B2E 
1B30 
1832 
1834 
1B36 
1B38 
1B3A 
1B3C 
1B3E 
1B40 
1B42 
1844 
1B46 
1B48 
1B0C 
130E 
1810 
1812 
1814 
IB 16 
1B18 
1B1A 
1B1C 
1B1E 
IB 20 
1B22 
1B70 
1B72 
1B74 
1B76 
1B78 
1B7A 
1B7C 
1B7E 
1B80 
1B82 
1B84 
1B86 
1888 
1B8A 
1B8C 
1B8E 
1B90 
1B92 
IB 86 
1BB8 
13BA 
1BBC 
1800 
1802 
18G4 



WORD SEQUENCE NO, 



C332 
6F41 
0336 
6 941 

E33A 
6A41 
F33E 
6E41 
5 22 4 
2828 
3118 
C480 
5 879 
B309 
75C0 
2 DAB 
7BC0 
2DAB 
7FC0 
1C1B 
F871 
5 95 9 
5AB9 
5EF9 
2DAB 
9B0C 
2DCD 
2 OF 8 
5119 
C4F0 
08AD 
EOCA 
1C2B 
E814 
5629 
71A2 
5C99 
8F64 
8A68 
2E07 
C536 
F337 
5209 
95CA 
3485 
5FA0 
7CAR 
9F01 
2F08 
98CA 
2F0C 



ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 
ECOL 



027 
028 
029 
030 
031 
032 
033 
034 
03 5 
036 
037 
038 

03 9 
040 
041 
042 

04 3 
044 
045 
046 
047 
048 
049 
050 
051 

05 2 

05 3 
054 
055 
056 
057 
058 
059 
060 
061 

06 2 
063 
064 
065 
066 
A 67 
06 8 
06 9 
070 
071 
082 
083 
08 5 
086 
087 
088 



LABEL 

NE 

MEXT 

NJEXTB 

MEXTBT 

TEMPRY 
STORE 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E60t 

COMMENTS 
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D0N2ND 



HALF 

MOVWLR 



029 NEX 



031 NEXT 



033 NEXTB 



035 NEXT3T 



BIT4=0 



ERRQ 
ERRO 



041 STORE 



12 7 NEW MS K N 



053 D0N2ND 



041 STORE 



059 HALF 



00 3 MASK 



095 LOHALF 



08 6 
091 

071 
071 



RPHUCW 
RDINO 

NOCO 
NOCD 



GOCHAN 
NOCD 

STKSEL 
STKSEL 2 



DCLB 043 CHAIN 



086 STKSEL N 



BIT5=C 



BIT6=0 



BIT7=0 



BR IF Dl 
H1 = HKG0 
BR IF Dl 
Ii = IKGO 

BR IF Dl 

TO=TO<GO 

BR IF Dl 

HO=HC<GC 

V=V + 1 

I0=I0*K02 

U1=U1-K01 

BR IF 7=0 

D1=I0 

N=D1L 

STB Gl AS,P+C 

P1=P1+KCA 

STB Tl AS,P+0 

P1=P1+K0A 

STB HI AS,P+0 

P0=PC<K01 **INVERT 

BR IF PO BIT7=1 

G1=I1 

T 1 = TO 

H1 = HC 

P1=P1+KCA 

BR 

P1=P1+KC0 

P1=P1+KCF 

U1 = U1 

BR IF Z = 

7=I0<KA0 

BR IF HZNZ 

P0=P0<K02 

BR IF PO BIT6=0 

VO=DC 

STB Ul DA, AC 

11= PC 



EVERY OTHER BYTE 

CONTROL REG + 2 

CCW COUNT - 2 
BR IF CT=0 

BREAK FOR NEW MASK 
STORE INTO PCH IMAGE 
BUFFER 



1ST 3 OR 2ND 3 IND 
BR IF STORE 2ND 3 
MOVE 2ND 3 BYTES 



GO TO STORE 2ND 3 



POINT TO NEXT 6 COL'S 



BR IF 
FORCE 



091 COUNT 



BAL 

BAL 

H0=0 

BR IF Gl BIT0=0 

BR IF PO BIT7=1 

P1=V0 

BR 

G0=G0$K80 

RDB HI AS,T+0 

STH P AS,T+2 

N=H1 BITS! 23 

SET P K=40 

8R 

SET P K=60 



CCW CT-0 

LOWER TO STOP 
IN CASE OF WLR 
INVERT UPPER OR LOWER HALF BIT 
BR IF LOWER HALF 
MOVE WLR CTR 
STORE RESIDUE COUNT 
STORE IX REG 
READ PUNCH UCW 
READ INDICATOR AND SENE 
ZERO UNIT STATUS 
BR IF NOT CDA 
BR IF WLR - OVER COUNT 
CDA, STORE WLR CTR IN PI 
GO CHAIN 
SECONDARY BIT 

READ OLD STACKER SEL. FROM 
STORE NEW STKR 

POCKET PKRU031) 

POCKET P2(RU31&025) 



10F2 



























CLOAD=*E60, EC LEVi 


ADDR 


WORD 


SEOUENC 


:e no. 


LABEL 




NEXTSEQ 


NEXTLABEL 


STATEMENT 






COMMENTS 


1806 


980A 


FCOL 


089 






091 


COUNT 


BR 










1808 


2F0A 


ECOL 


090 


STKSEL 


4 






SET 


P K=50 






POCKET RP3(RU31&025) 


180A 


221B 


ECOL 


091 


COUNT 








V0= 


VO+KOl 






INCREMENT WLR CTR 


180C 


F491 


ECOL 


092 






C94 


NOUNCT 


BR 


IF AC=1 






BR IF NO UNDER COUNT 


180E 


3C13 


ECOL 


093 










P0 = 


P0$K01 






UNDER COUNT, SET WLR INDICATOR 


1810 


921A 


FCOL 


094 


NOUNCT 




EXFR 122 


WLRBR 


BR 








INTERAGATE CHAINING AND SL I 


1B94 


5089 


ECOL 


095 


LOHALF 








10= 


UO 






RESTORE CONTROL CTR 


1B96 


51A2 


ECOL 


096 










Roe 


l Ul DA, 


AC 




RESTORE CCW ADJUSTED COUNT 


1B98 


52E2 


ECOL 


097 










RDH 


1 V DA,BC 




RESTORE DATA ADDR 


1B9A 


D81E 


ECOL 


09 8 






100 


OKCT 


BR 


IF PO BIT5^ 


=0 


BR IF TOTAL CT ODD 


1B9C 


5224 


ECOL 


099 










V=V + 1 






TOTAL CT EVEN 


1B9E 


C1E3 


ECOL 


100 


OKCT 








Z=U1*-K0E 






MASK FOR ODD COUNT 


1BA0 


FOAB 


ECOL 


101 






10 6 


EVENCT 


BR 


IF L7=0 






BR IF EVEN CT 


1BA2 


21FF 


ECOL 


102 










Ul = 


Ul+KFF 






MAKE IT EVEN 


1BA4 


D829 


FCOL 


103 






10 5 


ODDNOT 


BR 


IF PO BIT5; 


=1 


BR IF TOTAL CT EVEN 


1BA6 


212B 


ECOL 


104 










Ul = 


^Ul+K02 


** TOTAL 


CT ODD, MAKE 1 C OL MORE 


1BA8 


1C4B 


ECOL 


10 5 


ODDNOT 








P0 = 


^P0<K04 


**ODD CT 


, FLIP TOTAL ODD CT BIT 


1BAA 


58D5 


ECOL 


106 


EVENCT 








Pl = 


= IOXL 


•♦RECOVER PCH IMAGE BUFFER ADDR 


1BAC 


2DCB 


ECOL 


1C7 










Pl = 


Pl+KOC 








1BAE 


2 03 


ECOL 


108 










Pl= 


P1+K30 








1BB0 


5 889 


ECOL 


1C9 


CNTLRG 








10= 


10 








1BB2 


FOBE 


ECOL 


110 






112 


CDMDLE 


BR 


IF LZNZ 








1BB4 


9B4A 


ECOL 


111 






003 


MASK 


BR 










1BBE 


2D3 


ECOL 


112 


CDMDLE 








Pl = 


PH-K30 


**{ 


CD STARTED FROM THE MIDDLE OF 


IB CO 


2 02 8 


ECOL 


113 










Pl = 


PH-K02 


**ROW FORM BYTES, CHANGE ADDR 


1BC2 


5FC0 


ECOL 


114 


READ 








RDB 


. HI AS, 


P+0 




TO READ THEM OUT BACKWARD 


1BC4 


3D9B 


ECOL 


115 










Pl = 


;P1-K09 








1BC6 


5BC0 


ECOL 


116 










RD6 


i Tl AS, 


P+0 






1BC8 


3D9B 


FCOL 


117 










Pl = 


P1-K0 9 








1BCA 


55C0 


ECOL 


118 










RDB 


■ Gl AS, 


P+0 






1BCC 


1C1B 


ECOL 


119 










P0 = 


P0<KOl 




**INVERT 1ST 3 OR 2ND 3 IND 


1BCE 


F852 


ECOL 


120 






122 


SECOND 


BR 


IF PO BIT7; 


= 


BR IF RD 1ST 3 BYTES 


IB DO 


9B46 


ECOL 


121 






039 


TEMPRY 


BR 








RD ALL 6 BYTES, GO 


1BD2 


5FE9 


ECOL 


122 


SECOND 








H0= 


HI 






MOVE THE LOWER 3 BYTE 


1BD4 


5BA9 


ECOL 


123 










T0= 


Tl 








18D6 


5599 


ECOL 


12 4 










11 = 


Gl 








1B08 


3D9B 


ECOL 


125 










Pl = 


P1-K09 






SU3T OA ONCE MORE 


IB DA 


9BC2 


EC3L 


126 






114 


READ 


BR 






**G0 


READ THE UPPER 3 BYTES 


1C00 


C822 


ECOL 


127 


NEWMSK 





144 


NOT POL 


BR 


IF PO BIT4^ 


= 


BR IF FROM EPXF 


1C02 


9 80C 


ECOL 


128 






041 


STORE 


BR 






**DONE 


8 COLUMN, GO STORE THEM 


1C04 


2445 


ECOL 


129 


NEWMSK 


2 






G0= 


0SK40 








1C06 


9C1E 


ECOL 


130 






142 


BRNCH 


BR 










1C08 


2 42 5 


ECOL 


131 


NEWMSK 


4 






G0 = 


0$K20 








1C0A 


9C1E 


FCOL 


132 






142 


BRNCH 


BR 










1C0C 


2415 


ECOL 


133 


NEWMSK 


6 






G0= 


0$K10 








1C0E 


9C1E 


ECOL 


134 






142 


8RNCH 


BR 










1C10 


2483 


ECOL 


135 


NEWMSK 


8 






G0 = 


0$K08 








1C12 


9C1E 


ECOL 


136 






142 


BRNCH 


8R 










1C14 


2 443 


ECOL 


137 


NEWMSK 


A 






G0= 


0$K04 








1C16 


9C1E 


ECOL 


138 






142 


BRNCH 


BR 










1C18 


2 42 3 


ECOL 


139 


NEWMSK 


C 






G0= 


0$K02 









LEVEL= 128266 PAGE 217 



A DDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


1C1A 


9C1E 


ECOL 140 




142 


BRNCH 


BR 


1C1C 


2413 


ECOL 141 


NEWMSK E 






GO=0$K01 


1C1E 


C82 4 


ECOL 142 


BRNCH 


145 


POL NOT 


BR IF PC B 


1C20 


9856 


ECOL 143 




009 


AGAIN 


BR 


1C22 


9C9C 


ECOL 144 


NOT POL 


EPXF 069 


STORE 


BR 


1C24 


9CD2 


ECOL 145 


POL NOT 


EPXF 016 


UPDATE 


BR 



CL0AD=*E60, EC LEVEL=128266 PAGE 218 

COMMENTS 



ECOL 


003 


FCOL 


05 8 


ECOL 


111 


ECOL 


009 


ECOL 


143 






ECOL 


014 


ECOL 


010 


ECOL 


012 


ECOL 


017 


EPXF 


019 






ECOL 


022 


ECOL 


014 


FCOL 


016 


ECOL 


25 


ECOL 


023 






ECOL 


27 


ECOL 


025 






ECOL 


029 


ECOl 


02 7 






ECOL 


31 


ECOL 


02 9 






ECOL 


033 


ECOL 


031 






ECOL 


035 


ECOL 


033 






ECOL 


039 


ECOL 


121 






ECOL 


041 


ECOL 


03 8 


FCOL 


052 


FCOL 


053 


ECOL 


04 7 






ECOL 


059 


ECOt 


02 1 


ECOL 


056 


ECOL 


061 


EPXF 


082 






ECOL 


069 


EPCX 


038 






ECOL 


071 


ECOL 


067 


ECOL 


068 


ECOL 


086 


ECOL 


08 5 






ECOL 


091 


ECOL 


087 


ECOL 


089 


ECOL 


094 


ECOL 


0^2 






ECOL 


095 


ECOl 


36 






ECOL 


100 


ECOL 


09 8 






ECOL 


105 


ECOL 


10 3 






ECOL 


106 


ECOL 


101 






ECOL 


109 


EPCH 


087 






ECOL 


112 


ECOL 


110 






ECOL 


114 


FCOL 


126 






ECOL 


122 


ECOL 


120 






ECOL 


127 


ECOL 


040 


EPXF 


040 


ECOL 


142 


ECOL 


130 


FCOL 


132 


ECOL 


144 


ECOL 


127 






ECOL 


145 


ECOL 


142 







BIT4=0 BR IF FROM EPXF 

**GOT NEW MASK BACK TO PXFR 
**GOT NEW MASK BACK TO PXFR 

# ajc jjc # # # >Je s}c jfc & & if # if # if # if if if * * ajc if # ^c j£ if if if ajc if if if 

* CROSS REFERENCE FOR CSECT ECOL * 

if if $f if if if if if if if if if if ifif^if if if if ^ if if if if if if if if if if if if if 

EPCH 104 



ECOL 128 



ECOL 134 ECOL 136 ECOL 138 ECOL 140 



EPCH DESCRIPTIVE TEXT 



CL0A0=*E60t EC LEVEL=128266 PAGE 219 



ENTRY POINTS 



ENTRY IS MADE FROM THE ERDR ROUTINE WITH 
A NEW CCW BYTE COUNT, TO DETERMINE IF AN 
EXCESS COUNT HAS BEEN GIVEN. IF THERE IS 
AN EXCESS COUNTt THE EXCESS IS STORED IN 

AUX 0X8E. 



NPCH ENTRY IS MADE HERE FROM THE ERDR ROUTINE HIGHCT 

DURING A PUNCH WRITE START I/O OR A PFR. 
THE INDICATOR AND SENSE BYTES ARE SET UP 
AND SAVED IN LOCAL STORAGE. 

PICKUP ENTRY IS MADE FROM THE ERDR ROUTINE TO 
TEST FOR UNUSUAL COMMAND SEQUENCE. THE 
READ INDICATOR AND WLR COUNTER ARE SET, ANY 
EXCESS BYTE COUNT IS STORED IN AUX OXBE. 

********* ****** ****** ******************************************************************************** ***************************** 



NATIVE 2540 PUNCH UCW FORMAT AND AUX LOCATIONS 



INDICATORS AND SENSE BYTE AND AUX LOCATIONS 



no c B 00E9 QOEA OOEC-ED OCEE-FF 

*********** **** ******************* *************** ****** **** **** 

***** * * 

* CHANNEL * CHANNEL * UNIT * NOT * RESIDUAL * NEXT CCW * 

* STATUS * FLAGS * STATUS * USED * COUNT * ADDRESS * 
***** * * 
******************************************************* ******** 



CHANNEL 
STATUS 

0=SECONDARY 
1=WLR 

2= PROG CHK 
3=PR0T CHK 
4=N0T USED 
5 = N0T USED 
6=INTFCE CHK 
7= INT IN BFR 



CHANNEL 
FLAGS 

C=CHAIN DATA 
1=CHAIN CMD 
2 = SLI 
3=SKIP 
4=PCI 
5=ACTIVE 
6=N0T USED 
7=N0T USED 



UNIT 
STATUS 

0=N0T USED 
1=N0T USED 
2=N0T USED 
3=BUSY 
4=CH END 
5=D£V END 
6=UNIT CHK 
7=UNIT EXCEPT 



10F4 10F5 10F2 

* INDICATOR * SENSE BYTE * OLD STACKER * 

* * * * 
****** ************* ******************* ******* 



INDICATOR 

0=CHAIN DATA 
1=STK SEL 
2=STK SEL 
3=C 

4=PFR READ 
5=C0UNT STOR 
6=PFR WRITE 
7=WLR 



SENSE BYTE 

C=CMD REJ 
1=N0T RDY 
2=N0T USED 
3=E0UIP CHK 
4=VALI0ITY CHK 
5=N0T USED 
6=UNUSUAL CMD 
7=N0T USED 



OLD STACKER 

0=NOT USED 
i=STK SEL 
2=STK SEL 
3=0 

4=N0T USED 
5=N0T USED 
6=N0T USED 
7=N0T USED 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



COMMENTS 







E D CH 


00 1 


T 






EPCH 


00 2 


# 






EPCH 


00 3 


* 






EPCH 


004 


# 






EPCH 


005 


* 






EPCH 


006 


* 






EPCH 


00 7 


* 






EPCH 


00 8 


* 






EPCH 


009 


* 


1404 


1F0C 


EPCH 


010 


i 


14D6 


FA74 


EPCH 


014 




1408 


6CF7 


EPCH 


016 





NPCH 



PUNCH SIO CMD DECODE 6 CHAINING 
FOLLOWING INFORMATION-- 







U PEG CONTAINS - 


COUNT 






V REG CONTAINS - 


DATA ADDRESS 






GC REG CONTAINS - 


CHANNEL STATUS 






Gl REG CONTAINS - 


FLAG 






HO REG CONTAINS - 


COMMAND BYTE 
(HO=CO IF DATA CHAINING) 






RST P K = 80 


RST PCH 6 VAL CHKSIRUC31) 


044 


READ 


BR IF HO BIT7=0 


BR TO CHECK IF READ COMMAND 






P0=P0*H1 


CLEAR STKR 



ADDR 



WORD SEQUENCE NO, 



LABEL 



14DA 


EA53 


EPCH 


017 




14DC 


CE62 


EPCH 


018 




14DE 


DE53 


EPCH 


019 




14EO 


3C45 


EPCH 


020 




14E2 


DE66 


EPCH 


021 


STK18T 


14E4 


3C2 5 


EPCH 


022 




14E6 


E853 


EPCH 


02 3 


SSDONE 


14E8 


CA4 6 


EPCH 


024 




14EA 


3C23 


EPCH 


026 




14EC 


2F4C 


EPCH 


027 


ORALSO 


14 EE 


2 46 2 


EPCH 


028 




14FO 


1643 


FPCH 


029 




14F2 


94CC 


EPCH 


030 




14D2 


99B4 


EPCH 


03? 


COMREJ 


14C6 


C86D 


EPCH 


034 


NOTPFR 


14C8 


2 46 2 


EPCH 


03 5 




14CA 


3643 


EPCH 


036 




14CC 


2 40? 


EPCH 


03 7 


MODE 


14CE 


ice 3 


EPCH 


03 8 




14DO 


950C 


EPCH 


042 




14F4 


EA52 


EPCH 


044 


READ 


14F6 


DA5 3 


EPCH 


045 




14F8 


0E49 


EPCH 


046 




14FA 


F402 


E D C H 


047 




14FC 


EE53 


EPCH 


04-8 




14FE 


EF84 


EPCH 


049 




1500 


2CC7 


EPCH 


050 




1502 


9 9B0 


EPCH 


051 




1504 


C808 


EPCH 


05 3 


PICKUP 


1506 


2D2 3 


FPCH 


054 




1508 


3C83 


Ef>CH 


05 5 


SETP4 


150 A 


1C23 


EPCH 


056 




150C 


3659 


EPCH 


05 7 


SETCTR 


150E 


5009 


EPCH 


05 8 


HIGHCT 


1510 


C4A3 


EPCH 


059 




1512 


3C53 


EPCH 


060 




1514 


4A06 


EPCH 


061 




1516 


2007 


EPCH 


06 2 




1518 


21A5 


EPCH 


063 




151A 


2002 


EPCH 


064 




151C 


7B19 


EPCH 


065 




151E 


7A09 


EPCH 


066 




1520 


7AF2 


EPCH 


067 




1522 


B3E8 


EPCH 


06 8 


HICTO 


1524 


71A2 


EPCH 


069 




1526 


72E2 


EPCH 


070 




1528 


F72C 


EPCH 


071 




152A 


99C4 


EPCH 


07 2 


GOBACK 


152C 


C82B 


E PC H 


07 4 


STAY 


152E 


CC42 


EPCH 


075 




1530 


5CD9 


EPCH 


079 





NEXTSEQ 


NEXTLABEL 


STATEMENT 






032 


COMREJ 


BR IF HO BIT6= 


= 1 




021 


STK1BT 


BR IF HO BITO* 


=0 




032 


COMREJ 


BR IF HO BIT1 = 
PO=PO$K40 


= 1 




023 


SSDONE 


BR IF HO BIT1 = 
P0=P0$K20 


=0 




032 


C OM RE J 


BR IF PO BIT6 = 


= 1 




034 


NOTPFR 


BR IF HO BIT4: 
P0=P0$K02 
SET P K=04 
SET MODE K=16 
00=D0*-K04 


=0 




03 7 


MODE 


BR 




ERDR 


138 


CMDREJ 


BR 






02 7 


ORALSO 


BR IF PO BIT4- 
S-ET MODE K=16 
D0=DC$K04 
SET MODE K=10 
P0=P0*-K08 


=1 




057 


SETCTR 


BR 






032 


COMREJ 


BR IF HO BIT6= 


=G 




032 


COMREJ 


BR IF HO BIT5 = 

Z=H0+K40 


= 1 




03? 


COMREJ 


BR IF AC = C 






03 2 


COMREJ 


BR IF HO BTT2^ 


= 1 




053 


PICKUP 


BR IF PS BIT2^ 
P0=0 


=0 


ERDR 


133 


UEXPFR 


BR 






055 


SETP4 


8R IF PC BIT4: 
P1=0*K02 
P0=P0$K08 
P0=P0*-K02 

D0=0-K50 
U0=UC 


=0 




06 8 


HICTO 


8R IF Z=0 

P0=P0$KC5 

T=U 

U0 = 

U1=0$KA0 

SET S3 

T1C=T1-U1+C 

T0C=T0-U0+C 

STH T DA f BE 




ERRQ 


101 


STIND 


BAL 

STB Ul DA, AC 

STH V DA,BC 






074 


STAY 


BR IF Dl BIT3= 


=0 


ERDR 


146 


BACK 


BR 






072 


GOBACK 


BR IF PC BIT4= 


= 1 




088 


CCSIO 


BR IF PO BIT0= 
P1 = P0 


=0 



CLOAD=*E60, 

COMMENTS 



EC LEVEL=128266 PAGE 220 



BR IF 7, 6 COMBINATION 

BR IF STKP PI OR P2 

BR IF 061 BITS IN COMMAND 

RP3 

P2 

BR IF PREVIOUS PFR WRITE 

BR IF THIS CMD NOT PFR 

PFR WRITE CMD, SET INDICATOR 

SET PFR RESTART (RU025) 

PUNCH MODE AND ZONE 

PFR INDICATOR FOR PCH TRAP(ETRP) 



BR IF PREVIOUSLY PFR READ 

PCH MODE 2500 ZONE 
SET NOT PFR INDICATOR 

SET FEED INDICATORIRST PFR READ) 



BR IF 5-6 BIT COMBINATION 

BR IF 061 BITS NOT ON 

BR IF COL BIN 

BR IF NOT UNIT EXCEPTION 

PFR UNIT EXCEPTIONtALLOW FEED 

SHARE UNIT EXCEPTION READER 

BR IF PREVIOUS CMD IS A FEED 

PREV A READ, SET UNUSUAL CMD BIT 

SET READ INDICATOR 

RST FEED OR PFR WRITE INDICATOR 

SET WLR D0=AF 

BR IF NO EXCESS COUNT 
EXESS COUNT 6 WLR INDICATORS 
MOVE COUNT TO T REG 
GET 
EXCESS COUNT 

AND 
STORE 
IT 
STORE . 

STORE ADJUSTED COUNT 
STORE DATA ADDRESS 
BR IF PUNCH 

READER, GO TO ERDR ROUTINE 
6R IF PFR READICC OR SIO) 



BR IF NOT CDA 
MOVE IND TO PI 



TO SAVE CDA IND 



CL0AD=*E60, EC LEVEL=128266 PAGE 221 

ADDR WORD SEQUENCE NO. LABEL NEXTSEQ NEXTL.ABEL STATEMENT COMMENTS 

1532 59C9 EPCH 080 P0=I1 CDA, RESTORE PO 

1534 C85E EPCH 081 102 GOEPXF BR IF PO BIT4=0 CDA FOR NO COL 

153 6 5 809 EPCH 08 2 U0=I0 STORE CONTROL REG 

1538 D83F EPCH 083 086 TOTEVN BR IF PO BIT5=1 BR IF TOTAL COUNT EVEN 

153A 5224 EPCH 084 V = V + 1 LAST TOTAL COUNT 

153C 2 82R EPCH 085 I0M0+K02 WAS ODD 

153E 58D5 EPCH 086 TOTEVN P1=I0XL RECOVER BUFFER ADDRESS 

1540 9BB0 EPCH 087 ECOL 109 CNTLRG BR 

1542 2B07 EPCH 088 CCSIO T1=0 CC OR SIO, T=1000 

1544 2C45 EPCH 089 P0=0$K40 

1546 2DC3 EPCH 090 P1=0$K0C P = 400C 

1548 28F7 E^CH 091 I0=0$KFF 

154A 5899 EPCH 092 11=10 I=FFFF 

154C 54A0 EPCH 093 LOOP RDH G AS,T+0 XFER PCH IMAGE AREA! 1000) TO 

154E 78A8 E°CH 094 STH I AS,T+2 PCH CHK AREA (400C) AND STORE 

1550 74C8 EPCH 095 STH G AS,P+2 FF BACK INTO PCH IMAGEQOOOJ 

1552 CD4C EPCH 096 093 LOOP BR IF PI 8IT0=0 BR IF NOT DONE 

1554 094C EPCH 097 093 LOOP BR IF PI BIT5=0 BR IF NOT DONE 

1556 5884 EPCH 098 1=1+1 DONE, 1=0, P=4084 

1558 3CE9 EPCH 099 PO=0-KEC 

155A 2D07 EPCH 100 P1 = Q P=1FOO 

155C EE63 EPCH 101 104 GOECOL BR IF HO BIT2=1 

155E 1CA3 EPCH 102 GOEPXF P0=P0*-KCA P=15XX, DATA MODE 1 WRITE 

1560 9CC0 EPCH 103 EPXF 003 PXFR BR SIO, CC OR CDA 

1562 3B4A EPCH 104 SOECOL ECOL 003 MASK BR COL BIN, SIO, CC 

* CROSS REFERENCE FOR CSECT EPCH * 

5k 3$C jdC 3^ 3§C Jfe 3$C a^C J$C jjc 3JC 3$C 3f? 3k 3$C 3&T 3$C afc 3§C& ^3&&>k&^)^:9fc3$C3k)kj$C3$C2fc 



EPCH 


010 


ERDR 


095 


EPCH 


021 


EPCH 


018 


EPCH 


023 


p PCH 


02 1 


EPCH 


027 


EPCH 


03 4 


EPCH 


032 


EPCH 


017 


EPCH 


34 


EPCH 


02 4 


EPCH 


037 


EPCH 


03 


EPCH 


044 


EPCH 


014 


EPCH 


053 


EPCH 


04 9 


EPCH 


055 


EPCH 


05 3 


EPCH 


057 


EPCH 


04 2 


EPCH 


058 


ERDR 


059 


EPCH 


068 


EPCH 


059 


EPCH 


072 


EPCH 


074 


EPCH 


74 


EPCH 


071 


EPCH 


086 


EPCH 


08 3 


EPCH 


088 


EPCH 


075 


EPCH 


093 


EPCH 


09 6 


EPCH 


102 


EPCH 


08 1 


EPCH 


104 


EPCH 


101 



EPCH 019 EPCH 023 EPCH 044 EPCH 045 EPCH 047 EPCH 048 



ERDR 130 



EPCH 097 



EPXF DESCRIPTIVE TEXT 



CL0AD=*E60, EC LEVEL=128266 PAGE 222 



ENTRY POINTS 



PXFR 



UPDATE 



ENTRY IS MADE HERE 
TO SET UP THE WORK 
DATA TO BE PUNCHED 
INTO THE ROW IMAGE 



FROM THE EPCH ROUTINE 
AREA AND COUNTER. THE 
IS TRANSFERED AND SET 
BUFFER IN 



STORE 



COMPLEMENT FORM. SEE FEMDM DIAGRAM 5-114. 

ENTRY IS MADE HERE FROM THE ECOL ROUTINE 
TO INCREMENT THE WLR COUNTER AFTER A NEW 
COLUMN MASK HAS BEEN SET. IF THE WLR 
COUNTER OVERFLOWSt THE ECOL ROUTINE IS 
BRANCHED TO AND THE WLR BIT IS SET. 



ENTRY IS MADE HERE FROM THE ECOL ROUTINE 
TO STORE THE 12, 11, 0, 8, AND 9 ROW WORK 
REGISTERS INTO THE ROW IMAGE BUFFER. 
IF THE CCW COUNT IS NOW ZERO, A BRANCH 
IS TAKEN TO THE ECOL ROUTINE. IF THE 
COUNT IS NOT ZERO, A NEW COLUMN MASK IS 
SET UP AND THE BUILDING OF THE PUNCH ROW 
IMAGE CONTINUES. 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 






EPXF 


00 1 


T 






EPXF 


002 


* 


1CC0 


5109 


EPXF 


003 


PXFR 


ICC? 


2A65 


EPXF 


00 7 




1CC4 


CD5B 


EPXF 


009 




1CC6 


21F7 


EPXF 


010 


CLEAR 


1CC8 


5 17 9 


E»XF 


on 




1CCA 


51F9 


EPXF 


012 




1CCC 


51E<? 


EPXF 


013 




1CCE 


5 199 


EPXF 


014 




1CD0 


2435 


EPXF 


015 




1CD2 


261B 


EPXF 


016 


UPDATE 


1CD4 


F4B8 


EPXF 


017 




1CD6 


5019 


EPXF 


018 




1CD8 


9B66 


EPXF 


019 




1CB8 


5B38 


EPXF 


02 


READ 


1CBA 


5 5A0 


EPXF 


021 




1CBC 


157B 


EPXF 


r"22 




1CBE 


91C3 


EPXF 


02 3 




1CDA 


5 8D5 


FPXF 


024 


CDA 


1CDC 


5 88 9 


EPXF 


025 




1CDE 


F0C7 


EPXF 


026 








EPXF 


027 


* 


1CE0 


5 ICC 


EPXF 


028 




ICE 2 


2 DAB 


EPXF 


029 




1CE4 


5 7C0 


EPXP 


030 




1CE6 


2 DAB 


EPXF 


031 




1CE8 


59C0 


EPXF 


032 




ICE A 


2D5D 


EPXF 


033 




1CEC 


5FC0 


EPXF 


034 




1CEE 


2 DAB 


EPX<= 


035 




1CF0 


55CC 


EPXF 


036 




1CF2 


55E9 


EPXF 


037 




1CF4 


5BD5 


EPXF 


038 





NEXTSEQ 



NEXTLABEL STATEMENT 



COMMENTS 



PUNCH TRANSFER(E3CDIC TO ROW FORM) £ CHAINING 



024 CDA 



020 READ 



ECOL 017 WLR 



041 BIT421 N 



010 CLEAR 



U0=U1 

T0=0$K6C 

BR IF PI BIT0=1 

U1=0$KFF 

D1 = U1 

H1 = U1 

H0=U1 

I1 = U1 

G0=0$K80 

D0=D0+K0l 

BR IF AC=0 

U1 = U0 

BR 

RDB Tl V+l 

RDB Gl AS,T+0 

Gi = GKK07 

N=G1 BITS567 

P1=I0XL **C 

I0=IC 

BR IF LZ=0 **BR 

RDB Ul AS,P+0 

P1=P1+K0A 

RDB Dl AS,P+C 

P1=P1+K0A 

RDB U AS,P+0 

P1=P1+K50 

RDB HI AS,P+0 

P1=P1+K0A 

RDB Gl AS,P+0 

H0=G1 

P1=I0XL 



MOVE CCW CT 
X'LATE TABLE ADDR 
BR IF DATA CHAIN 
CLEAR 
ALL THE 
ACCUMULATING 
REGISTERS 



FOR NOT 24K 



FIRST MASK 
INCREMENT WLR 



CTR 



READ FROM MAIN STORE 
XLATE TO CONDENSED 
INVERTS BITS 4,2,1 

HAINING, RECOVER BUFFER ADR 

IF LAST CHAIN ENDED AT 8 

BYTES BOUNDARY 
LAST CH/UN{OR SIO) 
ENDED IN THE MIDDLE 
OF A 8 BYTES BOUN- 
DARY, READ THE 12, 
11, 0, 8, £ 9TH 
BYTES OUT 



RECOVER BUFFER ADDR 



ADDP 

1CF6 
1CF8 
1900 
1902 
1904 
1906 
1908 
190 A 
190C 
190E 
1C74 
1C76 
1078 
1C7A 
1C7C 
1C7E 
1C80 
1C82 
1C84 
1C86 
1C88 
1C8A 
1C8C 
1C8F 
1C90 
1C92 
1C94 
1C96 
1C98 
1C9A 
1C9C 
1C9E 
1CA0 
1CA2 
ICA4 
1CA6 
1CA8 
1CAA 
1CAC 
1CAE 
1CB0 
1CB2 
1CB4 
1CB6 



6000 
6016 
602C 
6042 
6058 



WORD SEQUENCE NO, 



5859 
R1C9 
2 0AB 
2 DAB 
2 DAB 
2DAB 
2DAR 
2 DAB 
9C74 
9C80 
201D 
2 DEB 
5BC0 
6 841 
7BC0 
58D5 
C504 
6141 
0508 
6741 
E50C 

6 941 
F510 
6F41 
C114 
6E41 
2 82B 
20FF 
0490 
90 F 6 
71C0 
20AB 

7 7C0 
2 OAR 
7 9C0 
2D5D 
7FC0 
2 0A8 
5EF9 
7FC0 
5 80 5 
501 9 
C4C6 
9B80 



B989 
AE4F 
3C3D 
AAA8 
0851 



EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXP 
EPXF 
EPXF 
E^XF 
EPX^ 

EPXF 

EPXF 
EPXF 

EPXF 
EPXF 
EPXF 
EPXF 
FPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXP 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXP 
EPXF 
FPXF 
EPXF 
FPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 
EPXF 



039 
04 
041 
042 

043 
044 
045 
046 
04 7 
048 

04 9 
050 
051 
052 
053 
054 

05 5 
056 
057 

05 8 
059 
060 
061 
062 

06 3 
064 
065 
066 
067 

06 8 
069 
70 
071 

07 2 
073 
074 
075 
076 
077 
078 

07 9 
080 
081 
082 

08 3 
085 

08 9 
090 
091 

09 2 
093 



LABEL 

TEMPRY 

BIT421 
3IT421 
BIT421 
BIT421 
BIT421 
BIT421 
BIT421 
BIT421 
ADD1E 



NEXTSEQ NEXTLABEL STATEMENT 



ECOL 127 NEWMSK N 



BYTES 

NE 
MEX 
NEXT 
DONE 

STORE 




1 
2 
3 

4 
5 
6 

7 



049 
05 5 



057 
059 
061 
063 
065 



069 
039 



010 
ECOL 061 

ATABLE ADDR=60C0 

C 

C 

C 

c 
c 



ADD1E 
BYTES 



N 

NE 

NEX 

NEXT 

DONE 



STORE 
TEMPRY 



CLEAR 

MOVWLR 
NATIVE 



Gl = 
N=G 
Pl = 
Pl = 
Pl = 
Pl = 
Pl = 
Pl = 
BR 
BR 
Pl = 
Pl = 
RDB 
Tl = 
STB 
Pl = 
BR 
Ul = 
BR 
01 = 
BR 
11 = 
BR 
Hl = 
BR 
H0= 
10= 
110= 
BR 
BR 
STB 
Pl = 
STB 
Pl = 
STB 
Pl = 
STB 
Pl = 
Hl = 
STB 
Pl = 
Ul = 
BR 
8R 
2540 P 



10 

1L 

Pl+KOA 

Pl+KOA 

Pl+KOA 

Pl+KOA 

Pl+KOA 

Pl+KOA 



P1+K10 
Pl+KOE 

Tl AS,P+0 
TKGO 

Tl AStP+O 
IOXL 

IF Gl BITO=0 
UKGO 

IF Gl BIT1=0 
DKGO 

IF Gl BIT2=0 
IKGO 

IF Gl BIT3=0 
HUGO 

IF Gl BIT4=0 
HCXGO 
IC+K0 2 
UO+KFF 
IF ? = 

Ul AS, P+C 
Pl+KOA 

01 AS,P+0 
Pl+KOA 

II AS,P+0 
P1+K50 

HI AS,P+0 
Pl+KOA 
HO 

HI AS,P+0 
IOXL 
UC 
IF ZNZ 

UNCH TRANSLATE 







CL0AD=*E60t 




COMMENTS 


GO < 


3ET NEW 


MASK 


ADO 


60(90) 


- 7 PUNCH 


ADD 


50<80) 


- 6 PUNCH 


ADD 


46(70) 


- 5 PUNCH 


ADD 


3C(60) 


- 4 PUNCH 


ADD 


32(50) 


- 3 PUNCH 


ADD 


28(40) 


- 2 PUNCH 


GO t 


\DD 1E(30)-1 PUNCH 


NO 1 


3 UNCH IN 1 THRU 7 


ADD 


IE TO 1 


3UFFER ADDR 


STORE 




1 
1 


THRU 7 
3 UNCH 




RECOVER PCH BFR AD OR 


12TH PUNCH 




11TH PUNCH 




OTH 


PUNCH 




8TH 


PUNCH 




9TH 


PUNCH 




ADD 


2 TO CONTROL CTR 


DECREMENT ( 


:cw CT 
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NOT DONE, GET NEW MASK 
STORE 12TH BYTE 

STORE UTH BYTE 

STORE OTH BYTE 

STORE 8TH BYTE 



STORE 9TH BYTE 
RESTORE BFR ADOR 



BR IF CTR 
FINISHED 
TABLE 



NOT ZERO 



XAUX•B9 898A8B8C8D8E8F98999A9B9C9D9E9FD9494A4B4C4D• 
XAUX«4E4F5 8 59 5A5B5C5D5E5F7929 2A2B2C2D2E2F38393A3B« 
XAUX»3C3D3E3FF9C90A0B0C0D0E0F18 19 1A1B1C1D1E1F00A9« 
XAUX'AA ABAC AD AEAFB8 91 92939495969780 C9CACBCCCDCECF* 
XAUX' 08 5 152 53 54555657402 16A6B6C6D6E6F78 31C0333435 » 



ADOR 


WORD 


SEQUENC 


:e no. 


LAB 


606E 


3637 


FPXF 


094 


C 


6084 


A4A5 


EPXF 


095 


C 


609A 


D2D3 


EPXF 


096 


C 


60 BO 


F1E1 


EPXF 


09 7 


c 


60 C 6 


8687 


EPXF 


09 8 


c 


60 DC 


DCOO 


EPXF 


09 9 


c 


60 F2 


20 3 


EPXF 


100 


c 






EPXF 


101 


AEND 



EPXF 


003 


EPCH 


103 


EPXF 


010 


EPXF 


02 6 


EPXF 


016 


ECOL 


145 


EPXF 


020 


EPXF 


017 


FPXF 


024 


EPXF 


009 


EPXF 


039 


EPXF 


068 


EPXF 


041 


EPXF 


023 


EPXF 


049 


EPXF 


047 


EPXF 


55 


EPXF 


048 


EPXF 


057 


EPXF 


055 


EPXF 


059 


EPXF 


05 7 


EPXF 


061 


EPXF 


059 


EPXF 


063 


EPXF 


061 


EPXF 


065 


EPXF 


06 3 


EPXF 


069 


ECOL 


144 



NEXTSEO 



NEXTLABEL STATEMENT 



CL0AD=*E60t 

COMMENTS 
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XAUX , 363 7E0E9EAEBECEDEEEFF8 11121314151617B1A1A2A3« 
XAUX«A4A5A6A7BOA8B2B3B4B5B6B7D1C1C2C3C4C5C6C7DOC8« 
XAUX'D2D3D4D5D6D77 161 62636465666 770 68 72 73 74 757677* 
XAUX'Fl El E2E3E4E5E6E7F0E8F2F3F4F5F6F7A081 82 8384 85* 
XAUX•86 8790 88BABBBCBDBEBF60414243444546475C48DADB• 
XAUX' DC DDDEDF32692223242 52 6273028 7A 7B7C7D7E 7F20 01 • 
XAUX* 02 030405060710 08FAFBFC FDFEFF • 

#******Xt* **************** ********* 
* CROSS REFERENCE FOR CSECT EPXF * 

7^$$ $&?$:$$$$$$$ jjc3$r3$c## $$$#$£$$$$$$$$$$ 



FPXP 081 



EPXF 067 



ERCX DESCRIPTIVE TEXT 



CL0AD=*E60, EC LEVEL=128266 PAGE 225 



ENTRY POINTS 



START ENTRY IS MADE FROM THE ERDR ROUTINE TO 
START READER COLUMN IMAGE TO STORAGE 
TRANSFER. SEE FEMDM DIAGRAM 5-105. 

WLRSET FNTRY IS MADE HERE FROM THE ERDR ROUTINE 
TO SET THE WLR INDICATOR WHEN THE WLR 
COUNTER HAS OVERFLOWED DURING A READ OR 
SENSE COMMAND WITH THE SKIP FLAG ON. 



CDFLAG ENTRY IS FROM THE ERDR ROUTINE WHEN THE 
SKIP OPERATION OF A READ OR PFR READ IS 
COMPLETED, (CCW COUNT=0). IF NOT DATA 
CHAINING, CONTINUE WITH THE NORMAL ENDING 
PROCEDURE. IF DATA CHAINING PREPARE TO 
FETCH A NEW CCW. 



A DDR 


WORD 


SEQUENCE NO. 


LABEL 






ERCX 


001 


T 


1D84 


5E88 


ERCX 


002 


READ 


ID86 


6FF3 


ERCX 


00 3 




1088 


6FF3 


ERCX 


00 4 




1D8A 


5F8 3 


ERCX 


005 




108C 


6BE5 


ERCX 


006 




108E 


1B73 


ERCX 


00 7 




1D90 


5FF9 


ERCX 


008 




1D92 


E096 


ERCX 


009 




1D94 


9A71 


FPCX 


010 




1D96 


0F83 


ERCX 


Oil 


NOHI 


1D98 


F0A4 


ERCX 


012 




1D9A 


3B43 


ERCX 


013 




ID9C 


CF21 


ERCX 


014 




1D9E 


9F71 


ERCX 


015 




1DA0 


CF8 5 


ERCX 


016 


B IT40N 


IDA? 


FCCD 


ERCX 


017 




IDA4 


98EE 


ERCX 


018 


GOVDTY 


1DC8 


3823 


ERCX 


019 


0RIN2 


1DCA 


3B13 


ERCX 


020 


0RIN1 


IDCC 


5FA0 


EPCX 


021 


XLATE 


1DCE 


7F38 


ERCX 


02 2 




1DDC 


21FF 


ERCX 


02 3 


DCRCT 


1DD2 


C4A9 


ERCX 


024 




IDD4 


2 618 


ERCX 


02 5 


START 


1DD6 


F4A7 


ERCX 


026 




1DDR 


E404 


ERCX 


027 




1DDA 


5F88 


ERCX 


028 




1DDC 


7F38 


ERCX 


029 




1DDE 


9DD0 


ERCX 


030 




1DA6 


3C13 


ERCX 


031 


WLRSET 


1DA8 


5629 


ERCX 


032 


CDFLG 


1DAA 


2607 


ERCX 


033 




1DAC 


54E9 


ERCX 


034 




1DAE 


5460 


ERCX 


03 5 




1D80 


C53 6 


ERCX 


036 




1DB2 


F83D 


ERCX 


037 





EXTSEQ 


NEXTLABEL 


STATEMENT 


XFER FROM COLUMN 


FORM BUFFERIRO) 








RDH H AS, 1 + 2 








H1=H1+H1 








H1=H1+H1 








T1=H1XH 








T1 = T1$H0 








T1=T1*-KC7 








H1=H1 


Oil 


NOHI 




BR IF HZNZ 


C5 5 


CHECK 


N 


N=HO BITS567 
Z=H0*-K08 


018 


GOVDTY 




BR IF LZNZ 
T1=T1$K04 


016 


BIT40N 




BR IE HI BIT0=1 


055 


CHECK 


N 


N=H1 8ITS123 
Z=H1*-K80 


021 


XLATE 




BR IF HZ=0 


C6 5 


CHECK 


7 


BR 

T1=T1$K02 
T1=T1$K01 
RDB HI AS,T+0 
STB HI V+1 
U1=U1+KFF 


032 


CDFLG 




BR IF Z=0 
D0=D0+K01 


C31 


WLRSET 




BR IF AC=1 


00 2 


READ 




BR IF GO BIT2=0 
RDB HI AS,I+1 
STB HI V+1 


023 


DCRCT 




BR 

P0=P0$K01 

V0=D0 

D0=0 

HO=GO 

ROH G AS,D+0 


039 


CDANOT 




BR IF Gl BITO=0 


042 


PFR8RK 




BR IF PO 8IT7=l 



COMMENTS 

TO CCW ADDR 

RD 2 BYTES 

SHIFT 8,9 TWICE 

Tl=8,9 

Tl=8,9,12, 11,0,1,2,3 

Tl=8,9,12,ll,0 

Hl=4, 5,6,7,8,9 

BR IF 4,5,6, 7 NO BIT 

MASK ON BITS 1 ,2,3 

BITS 1,2,3 

BR IF ANY IN 1,2,3 

AT LEASE 4 

BR IF BIT 4 

MASK ON BITS 5,6,7 

4 BIT ON 

BR IF NO OTHER 8IT 

OR IN 2 BIT 

OR IN I BIT 

XLATE TABLE LOOK UP 

SEND TO MAIN STORE 

DECREMENT CCW CT 

WLR CTR + 1 

BR IF WLR 

8R IF NOT COL BIN 

COL BIN 

MOVE TO MAIN STORE 

WLR INDICATOR 

MOVE WLR CTR 

RST DO 

MOVE CMD BACK TO GO 

RESTORE CHNL STATUS 

BR IF NOT CDA 

BR IF WLR 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E60» 

COMMENTS *- 
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1DB4 


9B90 


FRCX 


038 






ECOL 


069 


GOCHAN 


BR 




CDA 


10B6 


221B 


ERCX 


039 


CDANOT 










V0=V0+K01 


INCREMENT WLR CTR 


1DB8 


F4BD 


ERCX 


040 








04 2 


PFRBRK 


BR IF 


: AC = 1 




1DBA 


3C13 


ERCX 


041 












P0=P0$K01 


WLR 


1DBC 


71A2 


ERCX 


042 


PFRBRK 










STB Ul DA, AC 


STORE RESIDUE CT 


1DBE 


F701 


ERCX 


044 








049 


ENPFR 


BR IF 


: Dl BIT3=1 


BR IF NOT PFR 


10CO 


CBC4 


ERCX 


045 








04 7 


NOVAL 


BR IF 


" PS BIT4-=0 


PFR READtBR IF NO VAL CHKIRUO 


1DC2 


3DB3 


ERCX 


046 












P1=P1$K08 


VAL CHKtOR BIT IN SENSE 


1DC4 


0D8C 


ERCX 


047 


NQVAL 










RST RP K=08 


RST PCH CMD INTERLOCK 


IDC 6 


0212 


ERCX 


048 






EXFR 


118 


COMBIN 


BR 






1D80 


P3F8 


ERCX 


04 9 


ENPFR 




ERRO 


101 


STIND 


BAL 




STORE INDICATOR AND SENSE 


1D8? 


99BC 


ERCX 


053 






ERDR 


114 


STACKR 


BR 






18DE 


3B23 


E RC X 


054 


ORBIT? 










T1=T1$K02 


OR IN 2 BIT 


18E0 


9DCC 


ERCX 


05 5 


CHECK 







021 


XLATE 


BR 






18E2 


90C8 


ERCX 


05 6 


CHECK 


1 




019 


0RIN2 


BR 




3 OR 7 BIT 


18E4 


98DE 


ERCX 


057 


CHECK 


2 




054 


0RBIT2 


BR 




2 OR 6 BIT 


18E6 


98EE 


ERCX 


058 


CHECK 


3 




065 


CHECK 


7 BR 






18E8 


9DCA 


ERCX 


059 


CHECK 


4 




02 


0RIN1 


BR 




1 OR 5 BIT 


18EA 


98EE 


ERCX 


060 


CHECK 


5 




065 


CHECK 


7 BR 






18EC 


98EE 


ERCX 


^61 


CHECK 


6 




065 


CHECK 


7 BR 






18EE 


F775 


ERCX 


065 


CHECK 


7 




06 8 


' RDVDCK 


BR IF 


: Dl BIT3=1 


VALIDITY CHECK 


18F0 


2F8C 


ERCX 


066 












SET P K=G8 


SET PFR VAL CHMRU031) 


18F? 


9DCC 


ERCX 


067 








021 


XLATE 


BR 






18F4 


2 88 


ERCX 


06 8 


RDVDCK 










SET F 


! K = 08 


SET RDR VAL CHKIRU023) 


1*F6 


9DCC 


ERCX 


070 








021 


XLATE 


BR 




TABLED 






ERCX 


071 


* 








NATIVE 


2540 READER TRANSLATE 






ERCX 


07? 


ATABLE 


ADDR=3000 










3000 


40F1 


ERCX 


07 3 


C 










XAUX* 


40F1F2F3F4F5F6F7F061E2E3E4E5E6E760D1D2D3D4D5» 


3016 


D6D7 


ERCX 


074 


C 










XAUX* 


06 D7D0A1A2 A3 A4A5A6A750C1C2C3C4C5C6C7C0 8182 83* 


30 2 C 


8485 


ERCX 


075 


C 










XAUX* 


848 586876A 91 92 939495969770 Bl 82 B3B4B5B6B7F931 « 


3042 


3233 


ERCX 


076 


C 










XAUX' 


32 3334353637E921 222 32425262 709 11 1213 14151617" 


3058 


A9E1 


E RC X 


07 7 


C 










XAUX 1 


A9E1 62 6364656667C 9010 2 03040506078941 42 434445* 


3C6E 


4647 


ERCX 


07 8 


C 










XAUX' 


464 7995152 5354555 657B97172 73 74 75 76 77F8 797A7B* 


30 84 


7C7D 


ERCX 


079 


C 










XAUX* 


7C7D7E7FE8 69E06B6C6D6E6FD8 59 5A5B5C5D5E5FA8A0* 


309A 


AAAB 


ERCX 


080 


c 










XAUX' 


AAABACADAEAFC8 494A4B4C4D4E4F88 80 8A8B8C808E8F* 


30 BO 


9890 


ERCX 


081 


c 










XAUX' 


98909A9B9C9D9E9FB8B0BABBBCB0BEBF38 393A3B3C3D* 


30C6 


3E3F 


ERCX 


08 2 


c 










XAUX" 


3E3F28292A2B2C2D2E2F1819U1B1C1D1E1F68 20EAEB' 


30 DC 


ECED 


ERCX 


083 


c 










XAUX* 


ECEDEEEF08090AOBOCODOEOF4800CACBCCCDCECF5810* 


30F2 


DADS 


ERCX 


08 4 


c 










XAUX 1 


DADBDCDDDEDF7830FAFBFCFDFEFF* 






ERCX 


085 


AEND 

















* CROSS REFERENCE FOR CSECT ERCX * 



ERCX 


002 


ERCX 


02 7 


ERCX 


Oil 


ERCX 


CO 9 


ERCX 


016 


ERCX 


014 


ERCX 


018 


ERCX 


012 


ERCX 


019 


ERCX 


056 


ERCX 


020 


EPCX 


059 


ERCX 


021 


ERCX 


017 


ERCX 


023 


ERCX 


030 



ERCX 055 ERCX 067 ERCX 070 



ERCX 


025 


ERDR 


169 






ERCX 


031 


EPCX 


02 6 


EROR 


172 


ERCX 


32 


ERCX 


02 4 


ERDR 


178 


ERCX 


039 


ERCX 


03 6 






ERCX 


042 


ERCX 


03 7 


ERCX 


040 


ERCX 


047 


ERCX 


045 






ERCX 


049 


ERCX 


044 






ERCX 


54 


ERCX 


057 






ERCX 


55 


ERCX 


010 


ERCX 


015 


ERCX 


065 


ERCX 


018 


ERCX 


058 


ESCX 


068 


ERCX 


065 







********************************** 
* CROSS REFERENCE FOR CSECT ERCX * 



CLOAD=*E60, EC LEVE 1=128266 PAGE 227 



ERCX 060 ERCX 061 



ERDR DESCRIPTIVE TEXT 



CL0AD=*E6Q, EC LEVEL=128266 PAGE 228 



ENTRY POINTS 



NRDR 



AVANOT 



ENTRY TO THIS LABEL IS FROM THE DCLB 
ROUTINE FOR A READER OR PUNCH START I/O, OR 
FOR A CHAINING OPERATION. A CHECK IS MADE 
FOR IPL, AND THE AVAILABILITY OF THE READER 
OR THE PUNCH. 

ENTRY IS MADE HERE FROM THE ERRQ ROUTINE 
WHEN THE 2540 IS FOUND NOT AVAILABLE. 
CONDITION CODE 3 IS SET, THE ACTIVE AND 
SECONDARY BITS ARE RESET AND THE DPTQ 
ROUTINE IS BRANCHED TO FOR A UCW STORE. 



UEXPFR ENTRY IS FROM THE EPCH ROUTINE WHEN A 

PFR UNIT EXCEPTION IS DETECTED. SET UNIT 
EXCEPTION IN STATUS REGISTER ANO RESET 
COMMAND INTERLOCK. IF IPL, GO TO THE ERRQ 
ROUTINE AND STOP. IF NOT IPL, GO TO THE 
OPTS ROUTINE TO STORE STATUS AND FLAGS IN 
THE UCW. 

CMDREJ ENTRY IS MADE HERE FROM THE EPCH ROUTINE 
WHEN AN INVALID COMMAND DECODE, OR AN 
INVALID COMMAND SEQUENCE IS DETECTED. 



STACKR ENTRY IS MADE HERE FROM THE ERCX ROUTINE 
TO SET STACKER SELECT BITS, SET NOT-READ, 
AND STORE INDICATOR AND SENSE BYTES. 

SSDONE ENTRY IS MADE TO 'THIS LABEL FROM THE ERRQ 
ROUTINE TO SET THE FEED INDICATOR, AND SET 
UP AND ISSUE A FEED COMMAND WITH STACKER 
SELECT. 



BACK THE EPCH ROUTINE BRANCHES HERE TO SETUP 
THE BEGINNING ADDRESSES OF THE COLUMN 
IMAGE BUFFER AND TRANSLATE TABLE MODULE. 

BRSKIP ENTRY HERE IS FROM THE EXFR ROUTINE AFTER 
THE PFR COLUMN BUFFER ADDRESS IS SETUP. 
IF THE SKIP FLAG IS ON, DO SKIP INDICATED. 
IF SKIP FLAG OFF, GO TO THE ERCX ROUTINE 
TO START TRANSLATE OF COLUMN IMAGE TO 
BYTE CHARACTERS FOR PROGRAM STORAGE. 



A DDR 



WORD SEQUENCE NO. LABEL 



ERDR 


001 


T 


ERDR 


00 2 


# 


ERHR 


DC 3 


* 


ERDP 


004 


* 


ERDR 


005 


# 


ERDP 


006 


* 


ERDP 


00 7 


* 


ERDR 


00 8 


* 


ERDR 


009 


# 


ERDP 


010 


# 


ERDR 


Oil 


* 


ERDR 


012 


* 


ERDR 


013 


* 


ERDR 


014 


* 


ERDR 


015 


* 


ERDR 


016 


* 


ERDP 


017 


* 


ERDR 


018 


* 


ERDR 


019 


* 


ERDR 


020 


* 


ERDR 


021 


* 


ERDR 


022 


* 


ERDR 


023 


* 



NEXTSEQ NEXTLABEL STATEMENT COMMENTS 

NATIVE 254C RDR OR PCH SIO OR CHAIN DECODE ROUTINE 



ENTRY TO THIS ROUTINE IS MADE FROM DCLB TO LABEL NRDR OF THIS ROUTINE. 
THE REGISTERS CONTAIN THE FOLLOWING INFO 



COUNT 


U 


DATA ADDRESS 


V 


COMMAND BYTE 


GO 


FLAG 


Gl 



NATIVE 2540 READER UCW FQRMATCAUX STORAGE) 
00D8 CODA OODC CODE 



* CANNEL ^CHANNEL 

* STATUS* FLAGS 



* $ $ 
*UNIT *NOT * 

* STATUS * USED * 

* * * 



RESIDUAL 
COUNT 



* NEXT CCW 

* ADDRESS 
* 
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ADDR WORD SEQUENCE NO. LABEL NEXTSEQ NEXTLABEL STATEMENT COMMENTS 

EROR 024 * CH STAT-D8 * CH FLAGS-D9 * UNIT STAT-OA 

FRDR 025 * 0-SECONOARY * O-CHAIN DATA * 0-NOT USED 

EROR 026 * 1-WLR * 1-CHAIN CMD * 1-NOT USED 

ERDR 027 * 2-PROG CHK * 2-SLI * 2-NOT USED 

ERDR 028 * 3-PROT CHK * 3-SKIP * 3-BUSY 

ERDR 029 * 4-NOT USED * 4-PCI * 4-CH END 

ERDR 030 * 5-NOT USED * 5-ACTIVE * 5-DEV END 

ERDR 031 * 6-INTFCE CK * 6-NOT USED * 6-UNIT CHK 

ERDR 032 * 7-INT IN BFR * 7-NOT USED * 7-UNIT EXCEPT 

ERDR 033 * 

ERDR 034 * ******************************** 

ERDR 035 * * INDICATORS AND SENSF BYTE * 

FRDR 036 * ******************************** 

ERDR 037 * * * 

ERDR 038 * * INDICATORS * SENSE * 

ERDR 039 * * AUX STORAGE * AUX STORAGE * 

ERDR 040 * * ADDRESS * ADDRESS * 

ERDR 041 * * 10F0 * 1CF1 * 

EROR 042 * * * * 

ERDR 043 * * O-CHAIN DATA * 0- CMD REJECT * 

ERDR 044 * * 1-STACKER SEL * 1- NOT READY * 

ERDR 045 * * 2 -STACKER SEL * 2- NOT USED * 

ERDR 046 * * 3-0 * 3- EQUIP CHK * 

FROR C47 * * 4-READ * 4-VALIDITY CHK * 

Erqp 048 * * 5-COUNT STORED * 5- NOT USED * 

FRDS 049 * * 6-FEED * 6-UNUSUAL CMD * 

ERDR 050 * * 7-WLR * 7- NOT USED * 

ERDR 051 * * * 

ERHR 352 ASEQ AL07=12 

1912 5AE« FRDR 053 NRDR H0=G0 MOVE CMD INTO HO 

1914 C4A0 FRDR 054 060 NOTCDA BR IF ZN7 BR IF NOT DATA CHAIN 

1916 5ER2 ERDR 055 RDH H DA,AE CDA, RESTORE OLD CMD INTO HO 

1918 5D69 ERDR 056 D0=P1 RESTORE WLR CTR 

191A 8A68 ERDR 057 ERRQ 091 RDIND 8AL READ INDICATORS fc SENSE INTO P 

191C 3C85 ERDP 058 PQ=P0$K8Q SET CDA INDICATOR 

191E 950E ERDR 059 EPCH 058 HIGHCT 3R GO TO ADJUST HIGH COUNT 

1920 CTAE ERDR 060 NOTCDA 067 NOTIPL BR IF BA BIT4=0 BR IF NOT IPL 

1922 F72C ERDR 061 066 GOSTOP BR IF Dl BIT3=0 BR IF IPL FROM PUNCH 

1924 2406 ERDR 062 SET MODE K=30 SET READER MODE 

1926 CEAC ERDR 063 C66 GOSTOP BR IF PPS BIT0=O BR IF OFF LINEISXC41) 

1928 3D23 ERDR 064 P1=P1$KC2 SET WAIT BIT FOR IPL CLUTCHING 

192A DOAF ERDR 065 067 NOTIPL BR IF RS BIT1=1 BR IF RDR READY! SX041) 

192C 9F5C ERDR 066 GOSTOP ERRQ 049 STOP 8R **IPL NOT AVAILABLE OR NOT READY, OR IPL FROM PCH 

192E 9812 ERDR 067 NOTIPL CCOM 056 LSAVE BAL SIO OR CC , SAVE U, G, I £ P 

1930 8A68 ERDR 068 ERRQ 091 RDIND BAL PQ= IND ICATOR S, P1=SENSE 

1932 CEBD ERDR 069 074 AVABLE BR IF RPS BITC=1 BR IF ON LINE(SX041) 

1934 8178 ERDR 070 CCOM 066 LRSTR3 BAL RESTORE P AND I 

1936 2C75 ERDR 071 4VAN0T PO=0$K70 NOT AVAILABLE, SET COND. CODE 3 

1938 4452 ERDR 072 RDH G DC,9A G=0000, PST ACTIVE, SECONDARY 

193A 8D6A ERDR 073 DPTR 076 STINST BR STORE UCW & GO TO BSWI 

193C 5460 ERDR 074 AVABLE RDH G AS,D+0 RD CH.ST. SO LATER CAN STORE UCW 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E60, 
COMMENTS 
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193E 


F747 


EROR 


07 5 






079 


R0R1 


BR IF Dl BIT3=1 


1940 


2080 


ERDR 


076 










SET RP K=08 


1942 


0F30 


EROR 


077 










RST P K=Q3 


1944 


994A 


ERDR 


078 






081 


H10A 


BR 


1946 


2D04 


EROR 


079 


RDR1 








SET RP K=20 


1948 


0B30 


EROR 


080 










RST R K=03 


194A 


2 FA 3 


ERDR 


081 


H10A 








Hl=Q$K0A 


194C 


0E3B 


ERDR 


082 










Z=H0<K03 


194E 


C4DC 


EROR 


08 3 






090 


ENNOOP 


BR IF ZNZ 


1950 


F75 8 


EROR 


084 






088 


PCH1 


BR IF Dl BIT3=0 


1952 


ODD A 


ERDR 


08 5 






08 9 


NOTROY 


BR IF RS BIT1=0 


1954 


B43C 


EROR 


086 


RDYNOP 


ERRQ 


10 9 


GUESS 


BAL 


1956 


8C58 


EROR 


087 




OPTS 


125 


NOOP 


BR 


1958 


CFD5 


ERDR 


088 


PCH1 




086 


RDYNOP 


BR IF PS BIT0=1 


195A 


99B6 


ERDR 


089 


NOTRDY 




139 


UNITCK 


BR 


195C 


0E4B 


FROR 


09 


ENNOOP 








Z=H0<K04 


19 5E 


F76F 


ERDR 


091 






099 


RDR2 


BR IF 01 BIT 3=1 


1960 


F0E9 


ERDR 


09 2 






096 


PCHSNS 


BR IF LZ=0 


1962 


2007 


EROR 


09 3 










P1 = 


1964 


CFDA 


EROR 


094 






08 9 


NOTROY 


BR IF PS BIT0=0 


1966 


9404 


EROR 


095 




EPCH 


010 


NPCH 


BR 


1968 


CFF3 


EROR 


09 6 


PCHSNS 




101 


SNSRDY 


BR IF PS BIT0=1 


196A 


3D4 5 


EROR 


09 7 


SNSNRY 








P1=P1$K40 


196C 


9974 


EROR 


098 






102 


JOIN 


BR 


196E 


FOFA 


EROR 


099 


RDR 2 




10 5 


NOTSNS 


BR IF LZNZ 


1970 


ODEA 


ERDR 


ICO 






09 7 


SNSNRY 


BR IF RS BIT1=0 


1972 


1045 


EROR 


101 


SNSRDY 








P1=P1*-K4C 


1974 


B43C 


EROR 


102 


JOIN 


ERRQ 


109 


GUESS 


BAL 


1976 


3623 


EROR 


103 










D0=D0$K02 


1978 


A5E0 


ERDR 


104 




DYPE 


176 


GOCAL 


BR 


19 7A 


2 00 7 


ERDR 


105 


NOTSNS 








Pi = 


197C 


DDOA 


EROR 


106 






089 


NOTROY 


BR IF RS BIT1=0 


197E 


1800 


ERDR 


107 










RST R K = 8G 


1980 


6CF7 


FROR 


108 










P0=p(3*Hl 


1982 


EA34 


ERDR 


1C9 






138 


CMOREJ 


BR IF HO BIT6=0 


1984 


FA26 


EROR 


110 






127 


ROORRF 


BR IE HO BIT7=0 


1986 


EE34 


FROR 


111 






138 


CMDREJ 


BR IF HO BIT2=0 


1988 


E835 


EROR 


112 






138 


CMDREJ 


3R IF PQ BIT6=1 


198A 


76F2 


EROR 


113 










STH DA, BE 


198C 


CE1A 


ERDR 


114 


STACKR 




121 


SS10R2 


BR IF HO BITO=0 


198E 


0E18 


ERDR 


115 






120 


RP3 


3R IF HO BIT1=0 


1990 


FA3 5 


EROR 


116 






138 


CMDREJ 


BR IF HO BIT7=1 


1992 


004 


ERDR 


117 










RST RP K = 20 


1994 


8F7A 


ERDR 


118 




ERRQ 


08 2 


ROCHST 


BAL 


1996 


920A 


ERDR 


119 




EXFR 


114 


CHKCHK 


BR 


1998 


3C45 


ERDR 


120 


RP3 








PQ=P0*K40 


199A 


DE1E 


EROR 


121 


SS10R2 




123 


SSDGNE 


BR IF HO BIT1=0 


199C 


3C2 5 


EROR 


122 










P0=P0$K20 


199E 


1C83 


EROR 


12 3 


SSOONE 








P0=P0*-KC8 


19A0 


3C2 3 


ERDR 


124 










P0=P0$K0 2 


19A2 


B3E8 


EROR 


12 5 




ERRQ 


101 


STINO 


BAL 



BR IF RDR 

SET PCH CMO INLKIRU031) 

RST PCH REQUEST IF HWDE(RU015) 



SET R 
RST R 
SET H 
MASK 
BR IF 
NO OP 
BR IF 
RST C 
SHARE 
BR IF 
NOT R 
MASK 
BR IF 
BR IF 
NOT S 
BR IF 
GO TO 
BR IF 
SENSE 



OR CMO IN 
DR REQUES 
1 TO LATE 
FOR NO OP 

NOT NO 
, BR IF P 

RDR NOT 
MD INTERL 

1403 NO 

PCH READ 
EADY 
FOR SENSE 

RDR 



BR IF NO 
RDR SNS 
SENSE CM 
RST CMO 
SET 6 BI 
GO TO PI 
RDR. NOT 
BR IF NO 
RST RO & 
RST ALL 
BR IF NO 
BR IF RD 
CMD REJ 
FEED CMD 
FD ONLY, 
BR IF ST 
BR IF RP 
BR IF NO 
RST RDR 
RESTORE 
RD NO FD 
STKR SEL 
BR IF Rl 
STKR SEL 
RST READ 
SET FEED 
STORE IN 



LKIRU0 21 > 

T IF HWDECRU015) 

R RST INDICATORS 

P 

CH 

READY! SX041) 

OCK 

OP ROUTINE 

Y(SX04i) 

CMD 

PCH SENSE CMD 
ENSE CMD, ZERO OUT SENSE 
PCH NOT READY! SX041) 
PCH CMD DECODE 
PCH READY! SX041) 
CMD, NOT READY 

E CMD 

IF NOT RDYISX041) 
DY 
OCK 

1403 TO BR ON 
H1=P1 WORD 
MD, ZERO OUT SNS 
SX041) 
HKIRU023) 
XCEPT FD IND. 

- CMD REJECT 
-FD 
2 BIT 

F DOUBLE FD 
IATE CMD, SAVE DO 7 

1 OR 2 



T SENS 
CMD,3R 
D, REA 
INTERL 
T FOR 
CK UP 

SNS C 
T RDY< 

VAL C 
INO. E 

6 BIT 

OR RD 
IF NO 
, BR I 

IMMEO 
KR SEL 
3 

T RD, 
CMD IN 
CH. ST 
, FROM 
ECT RP 

OR RP 
ECT R2 

INDIC 

INDIC 
DICATO 



CMD REJECT 

LK(RU021) 

ATUS AND FLAGS 

ERCX, NOT PER 
3 
3 

ATOR 
ATOR 
RS £ SENSE 



ADDR 



WORD SFOUENCE NO, 



LABEL 



NEXTSFQ 



NEXTLABEL STATEMENT 



CL0AD=*E6G, 
COMMENTS 
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19A4 
19A6 

19A8 
19AA 
19AC 
19AE 
1980 
19B2 
19B4 
19B6 
19B8 
19BA 
19BC 
19BE 
19C0 
19C2 
19C4 
19C6 
19C8 
19CA 
19CC 
19CE 
1900 
1902 
1904 
1906 
19D8 
19DA 
190C 
19DE 
19E0 
19E2 
19E4 
19E6 
19E8 
19EA 
19EC 
19EE 
19 FO 
19F2 
19F4 

1A00 
1A02 
1AG4 
1A06 

1A08 
1A0A 



9C05 
OA35 
EDAF 
2B40 
9 504 
3 000 
2E13 
99B8 
2D85 
2E23 
B3E8 
B43C 
2A07 
C 3C 2 
9F5C 
8C6 
CC5D 
F753 
2445 
2513 
40A6 
31BB 
915A 
FF56 
3 6A9 
2855 
291 5 
3983 
5E49 
F56 5 
2A35 
9DD4 
2 61B 
F4EA 
90A6 
5884 
E4T1 
5884 
2 IFF 
C4E4 
90A8 

2B08 
<H50 
2B0C 
9150 
2B0A 
9150 



ERDR 
ERDR 
EROR 
ERDR 
ERDR 
EROR 
EROR 
ERDR 
EROR 
EROR 
ERDR 
EROR 
EROR 
ERDR 
ERDR 
ERDR 
ERDR 
ERDR 
EROR 
ERDR 
EROR 
EROR 
ERDR 
ERDR 
ERDR 
ERDR 
E«DR 
ERDR 
EROR 
F^OR 
ERDR 
EROR 
EROR 
EROR 
EROR. 
ERDR 
EROR 
ERDR 
EROR 
PROR 
ERDR 
EROR 
ERDR 
ERDR 
EROR 
ERDR 
ERDR 
EROR 



126 
127 
128 
129 
130 
131 
133 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
148 
149 
150 
151 
152 
153 
154 
158 
159 
160 
161 
162 
164 
16 8 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 



RDORRF 



UNITEX 
UEXPFR 

C MORE J 
UNITCK 
G0ST1N 



IPLNOT 

BACK 



ENPFR 
NOTCOL 



MOVEOP 
BR SKIP 



SKIP 

IADD1 

CTAODl 

A END 
SETSKR 

SETSKR 2 

SETSKR 4 



180 SETSKR N 

138 CMDREJ 

131 UNITEX 

EPCH 053 PICKUP 



140 GOSTIN 



ERRQ 101 STINO 

ERRQ 109 GUESS 

145 IPLNOT 

ERRQ 049 STOP 

OPTS 137 PCENTR 

162 MOVEOP 

154 ENPFR 



EXFR 012 BYTECT 
159 NOTCOL 



170 SKIP 

ERCX 025 START 

173 IA0D1 

ERCX 031 WLRSET 

176 CTAODl 



170 SKIP 
ERCX 03 2 CDFLG 



EXFR 007 XFER 
EXFR 007 XFER 
EXFR 007 XFER 



N=PO BITS 123 
BR IF HO BIT5=1 
BR IF RS BIT2=1 
SET R K=04 
BR **SHARE 

SET RP K=80 
H0=0$K01 
BR 

P1=0$K80 
H0=0$K0 2 
BAL 
BAL 
T0 = 

BR IF BA BIT4=0 
BR 
BR 
BR 
BR 



ISSUE FD CMD f, STKR SELECT 
CMD REJECT IF 5-6 COMBINATION 
BR IF UNIT EXCEPTIONISX042) 
RD OR RD-FD CMD, SENSE SETIRU019) 
UNUSUAL CMD SEQ BR 6 COUNT ADJUST 
RST EOF LITE(RU023) 
UNIT EXCEPTION IN UNIT STAT 

CMO REJ IN SENSE 

UNIT CK IN UNIT STAT OF CSW 

STORE P - IND, C SENSE 

RST CMD INTERLOCK 

RST TO IN CASE OF CDA FLAG ON 

BR IF NOT IPL 

I PL CMD REJ OR 



UNIT EXCEPTION 



PO 

Dl 



BIT0=1 
BIT3=1 



BIT2=0 



IF 
IF 

G0=0$K40 

G1=0$K01 

U=T 

U1=U1-K08 

BR 

BR IF HC 

DO=0-KAO 

I0=0$K50 

I1=0$K1C 

U=I1$KC8 

GO=HO 

BR IF Gl 

T0=0*K30 

BR *#G0 

DO=DO+K01 

BR IF AC=0 

BR 

1 = 1+1 

BR IF GO BIT2=1 

1 = 1+1 

U1=U1+KFF 

BR IF ZNZ 

BR 

SET R K=40 

BR 

SET R K=60 

BR 

SET R K=5C 

BR 



**U=10E6 



PICKED UP CDA 
SIO OR CC, BR 
PFR-RD SIO OR 
G=4001 TO PER 
U=10F2 

FOR LAST 10 BYTES IN 
PFR-RD. XFER FIRST £ 
BR IF NOT COL BIN 
COL BIN. WLR CTR=5F 



& PFR RDtBR IF 

IF NOT PFR-RD 

CC 

COL BUFR 



CDA 



IMAGE BUFR 
THEN RO 



BIT3=1 



TO RD, 



1=5018, COL FORM BUFR ADDR 
MOVE CMD TO GO FOR ERCX ROUTINE 
BR IF SKIP FLAG ON 
XLATE TABLE AODR 
COL OR NORMAL, OR PFR. 
WLR CTR + 1 
BR IF NO OVER CT 
SKIPPED TOO MANY, 
ADD 1 TO COL BUFR 
BR IF COL BIN 
TWO BYTES OF COL FORM PER 
ADJUSTED CCW CT LESS 1 
BR IF NOT DONE SKIPPING 
FINISH SKIPPING 



SIO,CC,0R COA 



WLR 
ADDR 



BYTE 



PKT RKRU021 ) 

GO TO XFER ROW FORM 

PKT R21RU021 & 023) 



TO COL BUFR 



PKT RP3IRU021 £ 023) 



3$C 3$C 39C 3$C 3$T 3$C 3$C J$C 3$« J$Cj{C3}CJ§C3J£j(CJ$C3fc3$C 3$C 3JC 3JC J$C J$C 9$C 3$C TJC 3fc 3$C 3JC 5JC ^C 3$C 3^C S(C 

* CROSS REFERENCE FOR CSECT ERDR * 
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ERDR 
ERDR 
ERDR 
ERDR 
ERDR 
ERDR 
ERDR 
ERDR 
ERDR 
ERDR 
ERDR 
ERDR 
ERDR 
ERDR 
ERDR 
ERDR 
ERDR 
EPDR 
ERDR 
ERDR 
ERDR 
ERDR 
EPDR 
ERDR 
ERDR 
ERDR 
ERDR 
ERDR 
ERDR 
ERDR 
ERDR 
ERDR 
ERDR 
ERDR 
ERDR 
ERDR 
ERDR 
ERDR 



053 

060 
066 
C67 
071 
74 
079 
081 
086 
088 
C89 
090 
096 
097 
099 
101 
102 
105 
114 
120 
121 
12^ 
127 
131 
133 
138 
139 
140 
145 
146 
154 
159 
162 
164 
170 
173 
176 
180 



DCLB 
ERDR 
ERDR 
ERDR 
ERRO 
ERDR 
ERDR 
EPDR 
ERDR 
ERDR 
ERDR 
ERDR 
ERDR 
ERDR 
ERDR 
ERDR 
ERDR 
ERDR 
EPCX 
ERDR 
ERDR 
ERDR 
ERDR 
ERDR 
EPCH 
EPCH 
ERDR 
ERDR 
ERDR 
EPCH 
ERDR 
ERDR 
ERDR 
EXFR 
ERDF 
ERD» 
ERDR 
ERDR 



247 

054 
061 

060 
00 7 
069 
075 
078 
088 
084 
085 

08 3 
09? 
100 

09 1 
096 
09 8 
09 9 
05 3 
115 
114 
121 
110 
128 
051 
03 2 
089 
137 
143 
07 2 
143 
154 
146 
09 9 
164 
171 
174 
126 



DCLB 24 8 



ERDR 
ERDR 



063 

06 5 



ERDR 09 4 ERDR 106 



ERRO 068 



ERDR 109 ERDR 111 ERDR 112 ERDR 116 ERDR 127 



ERDR 177 



ERRQ DESCRIPTIVE TEXT 
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ENTRY POINTS 



REQUC 



ENTRY IS FROM THE 
START I/O OR TEST 
READER OR PUNCH) , 
CLEARED. 



DCLA ROUTINE 
I/O IS DECODED 
AND DEVICE END 



WHEN A 
IFOR 
HAS BEEN 



STOP 



ADDR 



PCHST ENTRY IS FROM THE BSWI ROUTINE WHEN A 
PUNCH STATUS REQUEST HAS BEEN DETECTED. 
READOUT THE UCW BYTES INTO LOCAL STORAGE, 
RESET READER STATUS AND DEVICE END. 

RDST ENTRY IS FROM THE BSWI ROUTINE WHEN A 
READER STATUS REQUEST HAS BEEN DETECTED. 
READOUT THE UCW BYTES INTO LOCAL STORAGE, 
RESET READER STATUS AND OEVICE END. 
WORD SEQUENCE NO. LABEL NEXTSEQ NEXTLABEL STATEMENT 



RDCONT 

RDCHST 

RPHUCW 

RDIND 

STIND 

GUESS 



ENTRY IS FROM THE DCLR ROUTINE WHEN A 
CHANNEL ERROR IS DETECTED DURING AN IPL. 
ENTRY IS FROM THE ERDR ROUTINE WHEN THE 
2540 IS NOT AVAILABLE FOR IPL, NOT READY, 
IPL FROM PUNCH ATTEMPTED, IPL COMMAND 
REJECT, OR A UNIT EXCEPTION DETECTED. 



THESE ARE COMMON ENTRY POINTS BRANCHED 
TO BY BRANCH AND LINK WORDS TO PERFORM 
SOME OF THE BASIC FUNCTIONS FOR THE 2540. 



COMMENTS 







ERRQ 


001 


T 






2 540 


REQU 


EST € 


TEST 1/ 






ERRQ 


002 


* 
















1F24 


8F7C 


ERRQ 


0C4 


REDUC 




C7 6 


RDUCW 


BAL 








1F26 


362 3 


ERRQ 


005 










00= 


do$kc; 


I 


1F28 


CEAD 


ERRQ 


00 6 






00 8 


AVABLE 


BR 


IF 


RPS BIT0=1 


1F2A 


9 93 6 


ERRO 


00 7 




ERDR 


071 


AVANOT 


BR 








1F2C 


F710 


ERRQ 


00 8 


AVABLE 




013 


PCH1 


BR 


IF 


Dl 


BIT3=0 


IF2E 


C43 9 


E RR Q 


00 9 






031 


PCKUPD 


BR 


IF 


GO 


BIT0=1 


IF 30 


DD94 


ERRQ 


010 






015 


NOTRDY 


BR 


IF 


RS 


BITl^O 


IF32 


D99 5 


ERRQ 


Oil 






015 


NOTRDY 


BR 


IF 


RS 


BIT5=1 


1F34 


8 IOC 


ERRQ 


012 


RDY 


CCOM 


155 


CCOB 


BR 








1F10 


C46B 


ERRQ 


013 


PCH1 




018 


PICKUP 


BR 


IF 


GO 


BIT0=1 


1F12 


CFB5 


ERRQ 


014 






012 


ROY 


BR 


IF 


PS 


BIT0 = 1 


1F14 


8CD4 


ERRQ 


015 


NOTRDY 


DPTT 


013 


UCENT 


8R 












ERRQ 


016 


* 






2 540 


REQUES1 






1F68 


8F64 


ERRQ 


017 


PCHST 




086 


RPHUCW 


BAL 






* 


1P6A 


DB96 


ERRO 


018 


PICKUP 




055 


NODE 


BR 


IF 


PS 


BIT5=0 


1F6C 


0F10 


ERRQ 


019 










RST 


P 


K = 01 


1F6E 


C442 


ERRQ 


020 






03 6 


SET SEC 


BR 


IF 


GO 


BITO=0 


IF 70 


FFC4 


ERRQ 


021 






03 7 


CCBR 


BR 


IF 


PS 


BIT3=0 


1F72 


9816 


ERRQ 


02 2 




CCOM 


058 


LSAVEB 


SAL 








IF 74 


2D15 


ERRQ 


023 










Pl = 


OtKlO 




1F76 


5CCD 


ERPQ 


024 










P0= 


POL 




1F78 


B3E8 


ERRQ 


025 






101 


STIND 


BAL 








1F7A 


7CA0 


ERRQ 


026 










STH 


P 


AS, 


,T+Q 


1F7C 


154 5 


ERRQ 


027 










Gl = 


G1*-K4Q 


1F7E 


3E23 


ERRQ 


02 8 










H0» 


H0$K0 2 


1F80 


9F44 


ERPQ 


029 






C3 7 


CCBR 


3R 








IF 3 6 


8F6C 


ERRQ 


030 


RDST 




074 


R RDUCW 


BAL 






*: 


1F38 


2 466 


ERRQ 


031 


P CK UP D 








SET 


MODE 


K=36 


1F3A 


E607 


ERRQ 


032 






064 


CPUXFR 


BR 


IF 


DO 


BIT2=1 


1F3C 


2 406 


ERRQ 


033 










SET 


MODE 


K=30 



BR 


IF 


BR 


IF 


BR 


IF 


BR 


TO 


BR 


IF 


BR 


IF 


NOT 


■ R 



READ CH.STAT, FLAGS, S UNIT STAT 

SET DO 6 BIT TO BE BR ON LATER 

BR IF AVABLE (SX041) 

NOT AVAILABLE 

BR IF PCH 

SECONDARY ON, RDR 
RDR NOT RDY{ SX041I 
HARDWARE DEVICE END ON 
SET COND. CODE C 
SECONDARY ON, PCH 
PCH RDYISX041) 
READY 

**PCH REQ. RD CH. ST, FLAG, UNIT STAT, CT 
BR IF NO PCH HWDEISX043) 
RST PCH HWDE(RUC15) 
BR IF NOT-READY TO READY 
BR IF NO PCH CHK ISX042) 
PCH CK, SAVE P, I 
EQUIPMENT CK IN SENSE 
RETAIN PFR RD £ PFR WR INDICATOR 
STORE INDICATORS 6 SENSE 
STORE FORCED STKR SEL IN 10F2 
BREAK CC 
UNIT CK, DE IN UNIT STAT 

**RDR REQ. RD CH .S T, FLAG , UNI T STAT, CT 
RDR MODE, 2540 ZONE 
BR IF RUN-IN CPU XFER 
SET BACK FIRST TO RDR MODE 
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AODR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 




COMMENTS 


1F3F 


0996 


ERRO 


034 






055 


NODE 


BR IF 


RS BIT5= 


=0 


BR IF NO RDR HWDEISX043) 


1F40 


0810 


ERRQ 


03 5 










RST R 


K = 01 




RST RDR HWDE 


1F42 


3485 


EPRQ 


036 


SETSEC 








G0=G0$K80 **SET 


SECONDARY IN CASE OF QUE HWDE-READY 


1F44 


8FCE 


ERRQ 


03 7 


CCBR 


DCOM 


02 5 


RSTREQ 


BAL 






RST RDR OR PCH REQUEST 


1F46 


D54A 


ERRQ 


03 8 






040 


NOCC 


BR IF 


Gl BIT1; 


=0 


BR IF NO CMD CHAIN 


1F48 


8D64 


ERRQ 


03 9 




DPTR 


07 3 


CHAIOK 


BR 






GO TO CHAIN 


1F4A 


3E43 


ERRQ 


040 


MOCC 








H0=H0$K04 




DE IN UNIT STAT 


1F4C 


E261 


ERRQ 


041 






050 


TIO 


BR IF 


DO BIT6= 


= 1 


BR IF FROM TIO OR SIO 


1F4E 


F75E 


ERRQ 


042 






063 


GOINT 


BR IF 


Dl BIT3; 


=0 


BR IF PCH 


IF 50 


C3DE 


ERRQ 


04 3 






063 


GOINT 


BR IF 


BA BIT4^ 


=0 


BR IF NOT IPL 


IF 52 


D45D 


ERRQ 


044 






04 9 


STOP 


BR IF 


GO BIT1: 


= 1 


IPL, BR IF WLR IN CH. STAT 


1F54 


EA5D 


ERRQ 


045 






049 


STOP 


BR IF 


HO BIT6^ 


= 1 


BR IF UNIT CHECK 


IF 56 


4452 


ERRQ 


046 










RDH G 


DC,9A 




G=0C00, RST ACTIVE, SECONDARY 


1F58 


B406 


ERRQ 


047 




DCOM 


081 


REDSTR 


BAL 






STORE UCW 


1F5A 


A7F2 


ERRQ 


048 




DCLL 


040 


PICKUP 


BR 






IPL DONE 


1F5C 


A7D8 


ERRQ 


049 


STOP 


DCLL 


02 6 


STOP 


BR 






BR TO IPL STOP 


1F60 


2A07 


ERRQ 


05 


TIQ 








T0=0 






RST TO 


IP62 


8FCE 


ERRQ 


051 




DCOM 


025 


RSTREQ 


BAL 






RST READER, PCH REQUEST 


1F64 


D104 


ERRQ 


05 2 






054 


NOACT 


BR IF 


Gl BIT5 = 


=0 


BR IF NO ACTIVE BIT 


1F66 


8CDE 


ERRQ 


053 




DPTT 


023 


RESTES 


BR 






TIO OR SIO, ACT,SEC=ll 


1F04 


8CA4 


ERRQ 


054 


MOACT 


DPTT 


049 


SHARE 


BR 






TIO, ACT,SEC=01 


1F16 


E261 


ERRQ 


055 


NODE 




050 


TIO 


BR IF 


DC BIT6; 


=1 


BR IF TIO OR SIO 


1F18 


C3C5 


ERRQ 


056 






03 7 


CCBR 


BR IF 


BA BIT4; 


=1 


BR IF IPL 






ERRQ 


05 7 


* 






INTERFACE CHECK OR UNQUEUED 


1F1A 


C42 2 


ERRQ 


058 






062 


INTFCK 


BR IF 


GO BITQ: 


=0 


BR IF NO SECONDARY 


1F1C 


D15F 


ERRQ 


059 






063 


GOINT 


BR IF 


Gl BIT5^ 


=1 


BR IF ACTIVE 


1F1E 


CA23 


ERRQ 


060 






06 2 


INTFCK 


BR IF 


HO BIT4* 


=1 


NOT ACTIVE, BR I F NO CHE 


IF 20 


0A5F 


ERRQ 


061 






063 


GOINT 


BR IF 


HO BIT5 = 


= 1 


BR IF DE 


1F22 


AB2 


ERRQ 


062 


INTFCK 


BSWI 


107 


RESTRH 


BR 






RETURN TO NATIVE REQUEST 


1F5E 


8 06 8 


ERRQ 


063 


GOINT 


DPTR 


075 


TAKEIN 


BR 






GO FOR IB, STORE UCW, GO BSWI 


1F06 


2 406 


ERRQ 


064 


CPUXFR 








SET MODE K=30 




RDR MODE, CPU ZONE 


1F08 


0B30 


ERRQ 


065 










RST R 


K = 03 




RST RDR REQUEST £ HWDE(RU015) 


IFOA 


9816 


ERRQ 


06 6 




CCOM 


05 8 


LSAVEB 


BAL 






SAVE P, I 


1F0C 


8A68 


ERRQ 


06 7 






091 


RDIND 


BAL 






READ INDICATORS S SENSE 


1F0F 


999F 


EPRQ 
EPRQ 


06 8 
070 


* 


ERDR 


123 


SSDONE 


BR 






GO TO XFER BUFR 






ERRQ 


071 


* 








BRANCH AND LINK 


ROUTINES 






ERRQ 


072 


* 
















0F6C 


4642 


ERRQ 


074 


RRDUCW 








RDH D 


DC, 98 




READ CONSTANT OF 00C8 


OF&E 


3715 


ERRQ 


075 










D1=D1$K10 




D=00D8 


0F70 


F76 8 


ERRQ 


076 


RDUCW 




088 


PHUCW 


BR IF 


013=0 




BR IF PUNCH 


0F72 


2 40 6 


FRP.Q 


077 










SET MODE K=30 




SET READER MODE 


0F74 


3743 


ERRQ 


079 


RDCONT 








D1=D1$K04 




D=OXXC 


0F76 


5060 


ERRQ 


080 










RDH U 


AS,D+0 




READ COUNT INTO U 


0F78 


1773 


ERRQ 


081 


RDSTCH 








D1=D1*-K07 




D=0XX8 


0F7A 


5 46 8 


ERRQ 


08 2 


RDCHST 








RDH G 


AS,D+2 




READ CHAN STAT FLAGS 


0F7C 


5E6A 


ERRQ 


08 3 










RDH H 


AS,D-2 




READ UNIT STAT 


QF7E 


128E 


FRPQ 


084 










RTN 








0F64 


4642 


ERRQ 


086 


R PHUCW 








RDH 


DC, 98 




READ CONSTANT OF 00C8 


0F66 


3 72 5 


ERRQ 


087 










Ol=01$K20 




D=00E8 


OF 6 8 


2 40 2 


ERRQ 


08 8 


PHUCW 








SET MODE K=10 




SET PUNCH MODE 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CL0AD=*E60f 

COMMENTS 
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OF 6 A 


C4F4 


ERRQ 


08 9 




0A68 


2A15 


ERRQ 


091 


RDIND 


0A6A 


F774 


ERRO 


092 




0A6C 


2406 


ERRQ 


093 




0A6E 


2BF5 


ERRQ 


094 




CA70 


5CAA 


ERRQ 


095 


READ 


OA72 


128F 


ERRQ 


096 




0A74 


2402 


ERRQ 


097 


RPHIND 


0A76 


2BB1 


ERRQ 


098 




0A78 


C4F0 


ERPQ 


099 




33E8 


2A15 


ERRQ 


1C1 


STIND 


33EA 


F772 


ERRQ 


102 




33EC 


23F5 


ERRQ 


103 




33EE 


7CAA 


ERRQ 


104 


STORE 


33 FO 


128E 


ERRQ 


105 




33F2 


2BB1 


FPRQ 


106 


SPHIND 


33F4 


C4EE 


ERRQ 


107 




343C 


F744 


ERRQ 


109 


GUESS 


343E 


D243 


E RR Q 


110 




3440 


CDC4 


ERRQ 


111 




344? 


128E 


ERRQ 


112 


RETUN 


3444 


ODBC 


ERPQ 


113 


PCH2 


3446 


128E 


ERRQ 


114 





079 RDCONT 
097 RPHIND 



095 READ 
106 SPHIND 



104 STORE 
113 PCH2 
112 RETUN 



ERRQ 


004 


DCLA 


394 


DCLA 


39 5 






ERRQ 


008 


ERRQ 


006 










ERRQ 


012 


ERRQ 


014 










ERRQ 


013 


ERRQ 


00 8 










ERRQ 


015 


ERRQ 


010 


ERRQ 


Oil 






ERRQ 


017 


BSWI 


070 










ERRQ 


018 


ERRQ 


013 










ERRQ 


030 


BSWI 


064 










ERRQ 


031 


ERRQ 


CG9 










ERRQ 


036 


ERRO 


02 










ERRQ 


037 


ERRQ 


02 1 


ERRQ 


029 


ERRQ 


056 


ERRQ 


040 


ERRQ 


038 










ERRQ 


049 


DCLR 


038 


ERDR 


06 6 


ERDR 


144 


ERRQ 


050 


ERRQ 


041 


ERRQ 


055 






ERRQ 


54 


ERRQ 


05 2 










ERRQ 


055 


ERPQ 


018 


ERRQ 


034 






ERRQ 


062 


ERRQ 


058 


ERRQ 


060 






ERRQ 


063 


ERRQ 


042 


ERRQ 


043 


ERRQ 


059 


ERRQ 


064 


ERRQ 


032 










ERRQ 


074 


ERRQ 


030 


EXFR 


109 






ERPQ 


076 


ERPQ 


CO 4 










ERRQ 


079 


DPTQ 


00 4 


ERRQ 


089 






ERRQ 


081 


3WRP 


146 










ERRQ 


082 


DCLA 


274 


DCLR 


030 


OPTS 


050 


ERRQ 


086 


8WRP 


024 


ECOL 


064 


ERRQ 


017 



* CROSS R 

$ 3§C 3$C 3$C 5$C ^ 3$C &3^C 



BR 

T0= 

BR 

SET 

Tl = 

RDH 

RTN 

SET 

Tl = 

BR 

T0 = 

BR 

Tl = 

STH 

RTN 

ti= 

BR 

BR 

BR 

RST 

RTN 

RST 

RTN 

EFER 



IF ZNZ 

0$K10 

IF Dl BIT3=0 

MODE K=30 
0$KFO 

P AS,T-2 

MODE K=1C 
0-KOB 
IF ZNZ 
0$K10 

IF Dl BIT3=0 
OSKFO 

P AS,T-2 

0-KOB 
IF ZNZ 

IF Dl BIT3=0 
IF DO BIT5=1 
RP K=20 

RP K=08 



BR IF PCH 

RDR MODE 

T=10F0 

P0=INDICAT0RS, Pl=SENSE 

PCH MODE 
T=10F4 
UNCONDITIONAL BR 

BR IF PH 

T=10F0 

STORE INDICATORS £ SENSE 

T=10F4 

UNCONDITIONAL BR 

BR IF PCH 

BR IF FEED ONLY 

RST RDR CMD INLKIRU021 ) 

RST PCH CMD INLMRU031) 



ENCE FOR CSECT ERRQ * 

3^£ 3$C 3^ 3$C 2^C 3$C 2$( 3$C 3$C 3$C 9$C 3$C 3$S3$C3$C2$C2$e3$C9JC2$C3$: 



ERRQ 044 ERRQ 045 



ERRQ 061 



DPTT 007 QYPE 208 DYPE 221 ERDR 118 
EXFR 092 



ERRQ 


88 


ERRQ 


076 


ERRQ 


091 


ECOL 


06 5 


ERRQ 


095 


ERRQ 


099 


ERRQ 


097 


EPRQ 


092 


ERRQ 


101 


EPCH 


06 3 


ERRQ 


104 


EPRQ 


10 7 


ERRQ 


106 


ERRQ 


10 2 


ERRQ 


109 


DCLR 


052 


ERRQ 


112 


ERRQ 


110 


ERRQ 


113 


ERRO 


10 9 



* CROSS REFERENCE FOR CSECT ERRQ * 
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EROR 057 ERDR 068 ERRQ 067 EXFR 094 EXFR 110 



ERCX 049 ERDR 125 ERDR 140 ERRQ 025 EXFR 126 



ERDR 086 ERDR 102 ERDR 141 
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ETRP DESCRIPTIVE TEXT 



ENTRY POINTS 

(0110) THIS IS THE ASSIGNED TRAP ADDRESS THAT IS INLK ENTRY IS MADE HERE FROM THE BMCK ROUTINE. 

FORCED INTO THE SAR WHEN A 2540 PUNCH TRAP A MACHINE CHECK HAS BEEN DETECTED DURING 

IS ALLOWED. DIAGRAM 5-115 IN THE FEMDM A PUNCH TRAP, THE BMCK ROUTINE HAD BEEN 

SHOWS THE READER TRAP HANDLING. TRAPPED TO, THE MMSK AND 8A EXTERNALS HAVE 

BEEN SAVED AND THE LOGOUT LATCH HAS BEEN 
SET. THE OBJECT OF THIS ENTRY IS TO RESET 
COMMAND INTERLOCK AND RETURN TO THE 
MICROROUTINE TRAPPED FROM. 

* PROCEDURE FOR ANALYZING PUNCH CHECKS DUE TO HOLE COUNT * 

* -1- SET ADDRESS SWITCHES TO ADDRESS OF LABEL -PCHCHK- 

* -2- SET MOPE SWITCH TO SAR DELAYED STOP 



* 



* -3- WHEN THE ERROR OCCURS* THE PUNCH ATTENTION LITE WILL COME ON AND THE FOLLOWING AREAS HAY BE DISPLAYED - * 

* PUNCH CHECK LOGOUT AREA 



* 



* 



* AUX 50F6 50F7 50F8 5 OF 9 5CFA 50F8 50FC 50FD 50FE 50FF * 

$ # — #__—_ — — — — _ «. jfc «. — — — — -» $— — —__— _ __# — — — -.j^c — — ^^--. _«._$__« __ — 3»c— — _ — — — — _#..__«.— -__—_#-. «— — — ,-..«. jjc $ 

* BITS * 01234567 * 01234567 * 01234567 * 01234567 * 01234567 * 01234567 * 01234567 * 01234567 * 01234567 * 01234567 * * 

2$C >j)C 3§C 3$C J(JC 5$C 3$C 3$C i$C 3§C T$C 3$gJ$C 

* COLS * 1 THRU 8*9 THRU 16*17 THRU 24*25 THRU 32*33 THRU 40*41 THRU 48*49 THRU 56*57 THRU 64*65 THRU 72*73 THRU 80* * 

3$c );:_—_ «• — — ^c — «, — — _ — — — — — :»»<___———_ — .— — jjc—w-.-. — ——-.— — >{c — —. — — ■— — — — — jjc— ——— — -._«.<••$«._.. — — — . — # — — — — — — — -^ — j^ — — — — — _ — — >Jc — -. _, ___ — _ a&c age 

* A BIT BEING ON IN THE LOGOUT AREA SIGNIFIES * 

* AN ERROR FOR THAT COLUMN. * 

* THIS AREA MUST BE LOADED WITH BLANKS AFTER * 

* 



* EVERY ERROR FOR SUBSEQUENT ERROR ANALYSIS. 

* ROW FORM PUNCH IMAGE — - 

* ROW AUX ADDRESS ROW AUX ADDRESS 
* 

* 12 400C - 4015 11 4016 - 401F A BIT BEING OFF IN THE ROW FORM PUNCH IMAGE * 

* 4020 - 4029 1 402A - 4033 BUFFER SIGNIFIES A HOLE IN THE CARD. THE CARD * 

* 2 4034 - 4030 3 403E - 4047 IS IN THE STACKER POKET. * 

* 



* 4 4048 - 40 51 5 40 52 - 405 B 

* 6 405C - 4065 7 4066 - 406F 

* 8 4070 - 4079 9 407A - 4083 



ADDR WORD SEQUENCE NO. LABEL NEXTSEQ NEXTLABEL STATEMENT COMMENTS 

ETRP 001 T NATIVE PUNCH TRAP ROUTINE 
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ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


COMMENTS 






ETRP 


002 


AT ABLE 


ADDR=0110 












ETRP 


009 


* 














ETRP 


010 


* 














ETRP 


on 


* 


THE 


REGISTERS 


ARE USED FOR THE FOLLOWING 






ETRP 


012 


* 














ETRP 


013 


* 




GO-TRAP 


COUNT 








ETRP 


014 


* 




V -AUX 


STORAGE ADDRESS MODIFICATION 






ETRP 


015 


* 




D05=i NORMAL WRITE INDICATOR 








ETRP 


016 


* 




D07=l 12 ROW PUNCH 








ETRP 


017 


* 














ETRP 


018 


# 














ETRP 


019 


* 










0110 


2 20 8 


FTRP 


020 








LINK U MMSK4=1 




0112 


A488 


ETRP 
ETRP 


021 
022 


AEND 


02 3 


START 


BR 




2488 


FADA 


ETRP 


023 


START 


072 


SETUP 


BR IF RPS BIT7=0 


BR IF CLUTCH TRAP1SX044) 


248A 


5ACF 


ETRP 


024 








P0=RP2 


GET PUNCH CHECK BR INFO 


24 8 C 


5BFF 


ETRP 


025 








H1=RP1 


GET PFR INFORMATION 


248E 


5F2C 


FTRP 


026 








RDB PO AStV+1 


SEND PUNCH DATA 


2490 


F245 


ETPP 


027 




057 


R0W12 


BR IF DC BIT7=1 


BR IF 12TH ROW 


2492 


0216 


ETRP 


029 




031 


PFR 


BR IF DO BIT5=0 


BR IF PFR OPERATION 


24-94 


DFAB 


ETRP 


030 




041 


NOTPFR 


BR IF PS BIT1=1 


BR IF NOT NORMAL RUN IN(SX041) 


2496 


236D 


ETRP 


031 


PFR 






V1=V1+K60 


POINT TO 


2498 


2 3CR 


ETRP 


03 2 








V1=V1+K0C 


PFR AREA 


249 A 


5 02 


ETRP 


033 








RDB PI AStV+O 


READ PFR ROW AREA 


249C 


7F20 


ETRP 


034 








STB HI AStV+O 


STORE NEW PFR INFO 


249E 


3 37F 


ETRP 


03 5 








V1=V1-K77 


POINT TO PCH IMAGE 


24A0 


5F20 


ETRP 


036 








RDB HI AS,V+0 




24A2 


1FFF 


FTRP 


03 7 








H1=HKKFF 




24A4 


6DFL 


ETRP 


03 8 








P1=PKH1 




24 A 6 


7 02C 


ETRP 


039 








STB PI AStV+O 


STORE RESULTS 


24A8 


23CB 


ETRP 


040 








V1=V1+K0C 




24AA 


2 23D 


ETRP 


041 


NOTPFR 






VO=V0+K30 


POINT ADDRESS TO CHECK AREA 


24AC 


5F2 


E TR P 


045 








RDB HI AS,V+0 


READ CHECK IMAGE BYTE 


24AE 


6CF1 


ETRP 


046 








P0=P0<H1 


COMPARE RESULTS 


24B0 


C4C3 


ETRP 


047 




056 


NOEROR 


BR IF Z = 


BR IF NO ERROR 


24B2 


CAC2 


ETRP 


048 




056 


NOEROR 


BR IF RPS BIT4=0 


BR IF NO PCH CHK CL (SX044) 


24B4 


3F40 


ETRP 


049 


PCHCHK 






SET P K = 84 


ERR, SET PCH CHK $ RE ST ART I RU03 1 ) 


24B6 


2E55 


ETRP 


050 








H0=0$K50 


SET ERROR LOG OUT 


24B8 


54FD 


ETPP 


051 








H1=G0L 


ADDRESS TO 


24BA 


3FF5 


ETRP 


052 








H1=H1$KF0 


50F6 - 50FF 


24BC 


5 DEO 


ETRP 


053 








RDB PI AS,H+0 


READ OLD ERROR BYTE 


24BE 


6 DC 5 


ETRP 


054 








P1=P1$P0 


OR NEW ERROR TO OLD BYTE 


24C0 


7 DEO 


ETRP 


055 








STB PI AS,H+0 


STORE NEW RESULTS 


24C2 


2215 


ETRP 


056 


NOEROR 






VO=0$K10 


POINT BACK TO PCH IMAGE AREA 


24C4 


241B 


ETRP 


057 


ROW 12 






G0=G0+KC1 


UP DATE COUNT 


24C6 


FCDO 


ETRP 


058 




063 


RETURN 


BR IF LZNZ 


BR IF NOT THE LAST TRAP OF A ROW 


24C8 


F24C 


FTRP 


05 9 




061 


G0ADD6 


BR IF DO BIT7=0 


BR IF NOT 12 TH ROW 


24CA 


1613 


ETRP 


060 








00=DO*-K01 


RST 12TH ROW INDICATOR 


24CC 


246B 


ETRP 


061 


G0AD06 






G0=G0+K06 


CORRECT GO TO X6 


24CE 


E0D3 


ETRP 


062 




06 5 


DONE 


BR IF HZ=0 


BR IF COUNT FINISHED 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CLOAD=*E60, 

COMMENTS 



EC LEVEL=128266 PAGE 239 



24DC 
2402 
24D4 
2406 
2408 
24DA 
240C 
240E 
24E0 
24E2 
24E4 
2480 
2482 
2484 
2486 



20 8 
DF80 
CFD8 
2010 
0080 
2 215 
2 30 7 
5F2C 
3613 
2435 
A4CC 
23B1 
2 DC 7 
7020 
A 40 8 



ETRP 
ETRP 
ETRP 
ETRP 
ETRP 
ETRP 
ETRP 
ETRP 
ETRP 
ETRP 
ETRD 

ETRP 
ETRP 
ETRP 
ET»P 



ETRP 


023 


ETRP 


021 


ETRP 


031 


ETRP 


02 9 


ETRP 


041 


ETRP 


030 


ETRP 


056 


ETRP 


04 7 


ETRP 


057 


ETRP 


027 


ETRP 


061 


ETRP 


059 


ETRP 


063 


ETRP 


05 8 


ETRP 


065 


ETRP 


06 2 


ETRP 


071 


BMCK 


074 


ETRP 


072 


ETRP 


02 3 


ETRP 


079 


ETRP 


06 5 



06 3 
065 
069 
070 
071 
072 
073 
074 
075 
076 
077 

07 9 
080 
081 
082 



RETURN 
DONE 



INLK 
SETUP 



079 
071 



RUN IN 



ETRP 048 



ETRP 07 7 



ETRP 069 ETRP 082 



RUN IN 
INLK 



RTN U MMSK4=0 

BR IF PS1=0 

BR IF PS BIT0=0 

SET RP K=01 

RST RP K=C8 

V0=0$K10 

V1 = 

RDB PO AS,V+1 

D0=D0$K01 

G0=C$K30 

BR 

Vl=O-K0B 

P1 = 

STB PI AS»V+0 

BR 

* CROSS REFERENCE FOR CSECT ETRP * 



061 GCAD06 



071 INLK 



FINISHED BR IF NORM RUNINISX041) 

BR IFNOT READY (SX041) 

SET PCH DE (RU016) 

RST PCH CMD INLK(RU031) 

V=1000 

PRE SHIP PUNCH DATA 
SET 12TH ROW INDICATOR 
SET COUNT TO 36 FOR 130 
TRAPS IN DECIMAL 



ETTR DESCRIPTIVE TEXT 



CL0AD=*E60, EC LEVEL=128266 PAGE 240 



ENTRY POINTS 



(01B0) 



THIS IS THE ASSIGNED TRA 
FORCED INTO THE SAR WHEN 
IS ALLOWED. DIAGRAM 5-1 
SHOWS THE READER TRAP HA 



P ADDRESS THAT I 
A 2 540 READ TRA 
06 IN THE FEMDM 
NDLING. 



* 
* 



R 



* 
* 

* 

* 

* 

* 



- SET 

- SET 
• WHEN 
-READE 
AUX 
ITS * 
OLS * 



PROCEDURE 
ADDRESS SWITCHES TO ADDRESS 
MODE SWITCH TO SAR DELAYED S 
THE ERROR OCCURS, THE RDR 

R CHECK LOGOUT AREA 

10F6 10F7 1CF8 



S RQUEST ENTRY IS MADE 

P BMCK ROUTINE 

DETECTED DURI 
ROUTINE HAD B 
8A EXTERNALS 
LOGOUT LATCH 
THIS ENTRY IS 
AND RETURN TO 

jjeaje * # * >)ei(t #** * #* * * * #* * #* * * * * #* ** ** #* 



READER CHECKS DUE TO HOLE COUNT 



TO THIS L 
. A MACHI 
NG A READE 
EEN TRAPPE 
HAVE BEEN 
HAS BEEN S 
TO SET A 
THE ROUTI 



2$C 2$C 3{C 3$C ]$C 3$C 9^3$? 3$C $ 3yt 3^ 3$C3$C ^C3§C 

FOR ANALYZING 
OF LABEL -RDRCHK- 
TOP 
ATTENTION LITE WILL COME ON AND THE FOLLOWING AREAS MAY BE DISPLAYED - 



ABEL FROM THE 
NE CHECK HAS BEEN 
R TRAP, THE BMCK 
D TO, THE MMSK AND 
SAVED AND THE 
ET. THE OBJECT OF 
READER STATUS REQ 
NE TRAPPED FROM. 

^F *f> ^p tF ^F ^F *p tF t* ^F hF ^F ^F ^F tF tF tF tF ^F 



01734567 * 01234567 * 012345 
* * 

1 THRU 8*9 THRU 16*17 THRU 

*. * 



10F9 10F 

$ $ 

67 * 01234567 * 01234 
* # 

24*25 THRU 32*33 THR 

* * 



A 10FB 10FC 10F 

$ * * 

567 * 01234567 * 01234567 * 01234 
* * * 

U 40*41 THRU 48*49 THRU 56*57 THR 

--<-► — — ajf— »—<—■—«-•-"-• — — — 3^c—— — — — —.—.—.— — ajc— — . — — _ _ 



D 10FE 10FF 

$ # if. 

567 * 01234567 * 01234567 * 
* * * 

U 64*65 THRU 72*73 THRU 80* 

# _ * — * 



A BIT BEING ON IN THE LOGOUT AREA SIGNIF 
AN ERROR FOR THAT COLUMN. 

THIS AREA MUST BE LOADED 
EVERY ERROR FOR SUBSEQUENT 



WITH BLANKS AFT 
ERROR ANALYSIS. 



FOR 



— COLU 
A 
IS 

Re 
MAT 

3 



MN FORM AREA AUX LOCAT 

BIT BEING m INDICATES A HOL 

NOW IN THE PRE STACKER STAT 

SULT OF THE FIRST READ STATI 



IONS 5018 - 5087 
E IN THE CARD TH 
ION. THIS IS A 
ON TRAPS. 



IES 

ER 

AT 



5018 
IT ROW COL 

X 

1 X 

2 12 

3 11 -1- 

4 

5 1 

6 2 

7 3 




1 
2 
3 
4 
5 
6 
7 



50 19 

X 
X 
4 
5 
6 
7 
8 
9 



ROW FORM AREA 

A BIT BEING, A ZERO 
CARD THAT IS BETWEE 
STATIONS. 



ROW 



-1- 



FORMAT IS THE 
SAME FOR EACH 
CARD COLUMN. 
AUX 501A-5C1B 
FOR COL 2, AU; 
501C-501D FOR 
COL 3, ETC. 



9 
8 
7 
6 
5 
4 



AUX ADDRESS 


4FAC 


— 


4FA9 


4FAA 


- 


4FB3 


4FB4 


- 


4FBD 


4FBE 


- 


4FC7 


4FC8 


- 


4FD1 


4FD2 


- 


4FD8 



AUX LOCATIONS 4FA0 - 5017 
INDICATES A HOLE IN THE 
N THE FIRST AND SECOND READ 



ROW 



3 
2 
1 

0. 
11 
12 



AUX ADDRESS 


4FDC 


— 


4FE5 


4FE6 


- 


4FEF 


4FF0 


- 


4FF9 


4FFA 


- 


5003 


5004 


- 


500 


500E 


- 


5 017 



a*:************************ *$^^ 



ADDR 



WORD SEQUENCE NO. 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CL0AD=*E60, 
COMMENTS 



EC LEVEL=128266 PAGE 241 







ETTR 


001 


T 






ETTR 


002 


AT ABLE 






ETTR 


009 


* 






ETTR 


010 


* 






ETTR 


Oil 


* 






ETTR 


012 


* 






ETTR 


013 


* 






ETTR 


014 


* 






ETTR 


015 


* 






ETTR 


016 


* 






ETTR 


017 


* 


OIBO 


2206 


ETTR 


018 




01B2 


5ACF 


ETTR 


010 




01B4 


B204 


ETTR 


020 








ETTR 


021 


AEND 


3204 


EAB4 


ETTR 


022 


START 


3206 


58DF 


ETTR 


023 




3208 


5F00 


ETTP 


024 




320A 


7008 


ETTR 


02 5 




320C 


6CF1 


ETTR 


026 




320E 


C4A1 


E TTR 


027 




3210 


CDA1 


ETTR 


02 8 




3212 


3B00 


ETTR 


029 


RDRCHK 


3214 


2E15 


ETTR 


030 




3216 


5 7FD 


tz TJD 


031 




3218 


2FFD 


ETTR 


032 




321A 


5PE0 


ETTR 


033 




321C 


6 DC 5 


ETTR 


034 




321E 


7DE0 


ETTR 


035 




3220 


271B 


ETTQ 


036 


NOEROR 


3222 


FCA8 


ETTR 


037 




3224 


2 763 


ETTR 


03 8 


D1ADD6 


3226 


EOAB 


ETTR 


039 




3228 


206 


ETTR 


040 


RETURN 


322A 


C081 


ETTR 


041 


DONE 


322C 


DDBO 


ETTR 


042 




322E 


2D2 


ETTR 


043 


R QUEST 


3230 


0D04 


ETTR 


044 


INLK 


3232 


B23 6 


ETTR 


045 




3200 


3 62 5 


ETTR 


046 


XFER 


3202 


B22E 


ETTR 


047 




3234 


5BQF 


ETTR 


048 


SETUP 


3236 


3 OB 9 


ETTR 


049 


SURE 


32 38 


21A5 


ETTR 


050 




323A 


2 745 


ETTR 


051 




32 3C 


B224 


ETTR 


052 





NATIVE READER 
ADDR=01B0 



TRAP ROUTINE 



THE REGISTERS IN THIS ROUTINE ARE USED AS FOLLOWS 

DO BIT2=1 XFER ROW TO COL 

Dl REG-TRAP COUNT 

U REG-ROW ADDRESS 



GET READ 2 INFO 







LINK U MMSK3=1 






P0=RP2 


C22 


START 


BR 


048 


SETUP 


BR IF RPS BIT6= 

Pl=RPi 

RDB HI AS,U+0 

STB PI AStU+1 

P0=P0<H1 


03 6 


NOEROR 


BR IF Z = 


036 


NOEROR 


BR IF RS BIT0=1 

SET R K=80 

H0=0$K10 

HI=D1L 

H1=H1+KF0 

RDB PI AS,H+0 

P1=P1$P0 

STB PI AStH+O 

D1=D1+K01 


040 


RETURN 


BR IF LZNZ 
D1=D1+K06 


041 


DONE 


BR IF HZ=0 
RTN U MMSK3=0 


046 


XFER 


BR IF RS BIT0=1 


044 


INLK 


BR IF RS BIT1=0 
SET RP K=02 
RST RP K=20 


049 


SURE 


BR 
D0=D0$K20 


043 


ROUEST 


BR 

P1=RP1 

UO=0-KBO 

U1=0$KA0 

D1=0$K40 


038 


D1ADD6 


BR 



BR IF SET-UP1SX044) 
GET READ 1 INFOI START SHIFT REG) 
READ OLD DATA 
STORE NEW DATA 

CHECK OLD READ 1 WITH NEW READ 2 
BR IF NO ERROR 

BR IF NOT GATE RD CMPL TE i SX041 ) 
SET ERROR LAT (RU021) 
SET H TO ADDRESS READ CHECK 
LOG OUT AREA IN AUX STORAGE 
POSITION 10F6 THRU 10FF 
READ OLD ERROR BYTE 
OR NEW ERROR 
STORE ORED RESULTS 
UPDATE TRAP COUNT 



CORRECT Dl LOW 
BR IF FINISHED 



TO X6 



BR IF NOT GATE RD CMPLTE ( S X041 ) 

BR IF NOT READY! SX041) 

SET RDR DE IRU016) 

RST CMD INLK IRU021) 

MAKE SURE ADDR SITTING RIGHT 

SET XFER BIT 

GET READ 1 INFOI START SHIFT REG) 

U=4FA0 

GO MAKE Dl=46 



ETTR 


022 


ETTR 


020 


ETTR 


036 


ETTR 


027 


ETTR 


038 


ETTR 


052 


ETTR 


040 


ETTR 


03 7 


ETTR 


041 


ETTR 


039 


ETTR 


043 


BMCK 


072 


ETTR 


044 


ETTR 


04 2 


ETTR 


046 


ETTR 


041 


ETTR 


048 


ETTR 


022 


ETTR 


049 


ETTR 


04 5 



3$C 9$C 3^C 3^C S^C 9$C 3^C 3lfC 3^C 3^C 3$C 3$C 2^C 3^C 3$C 9$C 9JC 3$C 3^t S^C 3$C 3^C 3^C 9$C 3$C SfC 3$C 3^C 9$C aQC 9JC 3^C 3$C S^C 

* CROSS REFERENCE FOR CSECT ETTR * 



CLQAQ=*E60, EC LEVEL=128266 PAGE 242 



ETTR 028 



ETTR 047 



EXFR DESCRIPTIVE TEXT 



CLOAD=*E60, EC LEVEL=128266 PAGE 243 



ENTRY POINTS 



XFER 



BYTECT 



CHKCHK 



ENTRY IS MADE HERE FROM THE ERDR ROUTINE 
TO SET UP THE ADDRESSES OF THE COLUMN AND 
ROW IMAGE BUFFERS, AND START THE TRANSFER 
OF ROW IMAGE TO COLUMN BINARY FORM. 

ENTRY IS MADE HERE FROM THE ERDR ROUTINE 
AFTER THE ADDRESSES FOR PER ROW IMAGE AND 
PFR COLUMN IMAGE BUFFERS HAVE BEEN SET UP. 
THE TRANSFER OF PFR ROW IMAGE TO PFR COLUMN 
IMAGE BEGINS HERE. 

ENTRY IS MADE HERE FROM THE ERDR ROUTINE 
WHEN A READ-NO-FEED OPERATION IS DETECTED. 
A CHECK IS MADE FOR READ AND VALIDITY 
ERRORS. IF NO ERRORS DETECTED, GO TO STORE 
INDICATOR AND SENSE BYTES IN AUXILIARY 
STORAGE. 



COMBIN 



WLRBR 



ENTRY IS FROM THE ERCX ROUTINE WHEN A 
VALIDITY CHECK IS DETECTED DURING A PFR 
OPERATION. UNIT CHECK BIT IS SET, COMMAND 
CHAINING IS BROKEN, AND THE INDICATOR AND 
SENSE BYTES ARE STORED IN AUXILIARY STORAGE. 

ENTRY IS FROM THE ECOL ROUTINE. THE WLR 
INDICATOR BIT HAD BEEN SET IF AN INCORRECT 
COUNT WAS DETECTED IN THE ECOL ROUTINE. 
THE ENTRY HERE IS TO TEST FOR SLI AND 
CHAINING, PRIOR TO STORING THE INDICATOR 
AND SENSE BYTES IN AUXILIARY STORAGE. 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



COMMENTS 



1150 
1152 
1154 
1156 
1158 
115A 
115C 
11 5E 
1160 
1162 
1164 
1166 
1168 
116A 
U6C 
116E 
1170 
1172 
1174 
1176 
1178 
117A 
117C 
117E 
1180 
1182 



2455 
2515 

3 593 

2 045 
2 1A5 
22A3 
2 363 

4 85 2 
4A86 
4C86 
4E86 
2613 

5 70 
C76F 

6 96 5 
D773 
6R65 
E77 7 
6D6 5 
F77B 
6F65 
C37F 
6 86 5 
D303 
6A65 
E307 



EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXPR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
E XF R 
EX^R 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 
EXFR 



001 
00 5 
00 7 
008 
009 
010 
Oil 
012 
013 
014 
015 
016 
017 
018 
019 
020 
021 
022 
023 
024 
02 5 
026 
02 7 
028 
029 
030 
031 
032 



T 

ASEQ 
XFER 



READER 
AL07=50 



XFER OF ROW IMAGE TO COLUMN BINARY FORM 



BYTECT 
8ITCT 



RDBYTE 

NE 

NEX 

NEXT 

NEXT8 

NEXTBT 



02 2 N 

024 NE 

02 6 NEX 

C28 NEXT 

C30 NEXTB 

032 NEXTBT 

034 BTNEXT 



G0=0$K50 

G1=0$K10 

G1=G1$K09 

U0=0$K40 

U1=0$KA0 

V0=0$K0A 

V1=0$K06 

RDH I DC,9A 

T=I 

P=I 

H = I 

DQ=0$K01 

ROB Dl AS,U 

BR IF Dl BIT0=1 

I1=I1$D0 

BR IF Dl BIT1=1 

T1=T1$D0 

BR IF Dl BIT2=1 

P1=P1$D0 

BR IF Dl BIT3=1 

H1=H1$D0 

BR IF Dl BIT4=1 

I0=IC$D0 

8R IF Dl BIT5=1 

T0=TC$D0 

BR IF Dl BIT6=1 



SET G TO 2ND BYTE OF 

COL BUFFER 
ADDR 5 019 
SET U TO ROW IMAGE ADDRESS 

40A0 
10 GROUPS OF 8 BYTES CNTR 
6 BIT PER BYTE CNTR 
1=0000 
CLEAP 
WORK 

REGISTERS 
SET MASK FOR COL 1 
READ BYTE FROM IMAGE 
BITS ARE COMPLIMENT 
OR BIT IN COL 1 

COL 2 

COL 3 

COL 4 

COL 5 

COL 6 





















CL0AD=*E60, 


AODR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 




COMMENTS 


1184 


6C6 5 


EXFR 


03 3 








P0=PC$D0 




COL 7 


1186 


F3CB 


EXFR 


034 


BTNEXT 


036 


BTDONE 


BR IF Dl BIT7= 


= 1 




1188 


6E6 5 


EXFR 


035 








H0=H0$D0 




COL 8 


11 8A 


6 663 


EXFR 


036 


3TD0NE 






D0=D0+DO 




SHIFT MASK LEFT ONE 


118C 


23FF 


EXFR 


037 








V1=V1+KFF 




BIT COUNT MINUS ONE 


118E 


C49F 


EXFR 


038 ' 




050 


STORE 


BR IF Z=0 






1190 


F41A 


EXFR 


040 




047 


RPFR1 


BR IF GO BIT3= 


=0 


BR IF PFR READ 


1192 


21AB 


EXFR 


042 








U1=U1+K0A 




NO- INCREMENT ADR 


1194 


F49 8 


EXFP 


043 




04 5 


READM 


BR IF AC=0 






1196 


2 010 


EXFR 


044 








U0=U0+K1C 




UPDATE TO 60 


1198 


9168 


EXFR 


04 5 


READM 


019 


RDBYTE 


BR 






119A 


319B 


EXFR 


047 


RPFR1 






U1=U1-K09 




DECREMENT ADR BY 10 


119C 


<H68 


EXFR 


04 3 




019 


R DB YT E 


3R 






119E 


7 940 


EXFR 


050 


STORE 






STB 11 AS,G+0 




STORE COL ONE OR FIVE 


11A0 


6444 


EXFR 


051 








G = G+2 **POINT 


ADDR TO EVERY OTHER BYTE 


11 A? 


7R4 


EXFR 


052 








STB Tl AS,G+0 




COL TWO OR SIX 


11 A4 


6 444 


EXFR 


053 








G=G+2 






11A6 


7D4 


EXFR 


054 








STB PI AStG+O 




COL THREE OR SEVEN 


11A8 


6444 


EXFR 


055 








G = G+2 






11AA 


7F40 


EXFR 


056 








STB HI AS,G+0 




COL FOUR OR EIGHT 


11 AC 


6 444 


EXFR 


057 








G=G+2 






11AE 


144B 


EXFR 


058 








G0=G0<K04 


**INVERT BIT 5 - 2ND 4 BYTES 


HBO 


003 C 


EXFR 


059 




065 


STRDON 


BR IF GO BIT5^ 


= 


BR IF DONE 2ND 4 BYTE 


11B2 


5 89 9 


EXFR 


060 








I 1= IC 




MOVE 


11B4 


5AB9 


EXFR 


061 








T1=TC 




2ND 


1166 


5CD9 


EXFR 


062 








P1=P0 




4 


11B8 


5EF9 


EXFP 


063 








H1 = H0 




BYTES 


11BA 


919E 


EXFR 


064 




050 


STORE 


BR 






11BC 


22FF 


EXFR 


065 


STRDON 






V0=V0+KFF 




GROUP CNTR MINUS 


11BE 


C4CF 


EXFR 


066 




078 


HALF 


BR IF Z=0 




BR IF DONE HALF 


11C0 


F4^A 


EXFR 


06 8 




075 


RPFR2 


8R IF GO BIT3= 


=0 


BR IF PFR READ 


11C2 


3130 


EXFR 


070 








U1=U1-K30 




NEXT GROUP OF 8 BYTES 


11C4 


C048 


EXFR 


071 




073 


HAFIST 


BR IF GO BIT4= 


=0 


BR IF 1ST HALF 


11C6 


20F0 


EXF? 


072 








UO=UC+KFC 




2ND HALF, 50XX 


11C8 


915C 


EX C R 


073 


HAFIST 


013 


BITCT 


BR 




GO DO ANOTHER GROUP 


11CA 


213F 


EXFR 


075 


RPFR2 






U1=U1+K33 




NEXT GROUP OF 8 BYTES 


11CC 


915C 


EXFR 


076 




013 


BITCT 


BR 




GO DO ANOTHER GROUP 


11CE 


148B 


EXFR 


078 


HALF 






G0=GO<K0 8 


**INVERT BIT 4 - 2ND HALF 


1100 


C060 


FXFR 


079 




090 


DONE 


BR IF GO BIT4* 


=0 


BR IF DONE 2ND HALF 


11D2 


F45A 


EXFR 


081 




08 7 


RPFR3 


BR IF GC BIT3= 


=0 


BR IF PFR READO 


11D4 


211B 


EXFR 


083 








U1=U1+K01 




U=40DC 


11D6 


35AD 


EXFR 


084 








G1=G1-KA0 




G=5 918 


1108 


915A 


EXFR 


085 




012 


BYTECT 


BR 




GO DO 2ND HALF 


110A 


21A7 


EXFR 


087 


RPFR3 






U1=0$KAA 




U=10AA PFR READ 


HOC 


2 50 7 


EXFR 


088 








Gl = 




G=4900 


11DE 


915A 


EXFR 


089 




012 


BYTECT 


BR 




GO DO 2ND HALF 


11E0 


F47 5 


EXFR 


090 


DONE 


100 


ENDING 


BR IF GO BIT3- 


=1 


BR IF NOT PFR READ 


11E2 


52E2 


EXFR 


091 








RDH V DA,BC 




PFR READ, RESTORE DATA 


11E4 


8F64 


EXFR 


092 




ERRQ 086 


RPHUCW 


SAL 




SET Dl TO E8 


UE6 


51A2 


EXFR 


09 3 








ROB Ul DA, AC 




RESTORE CCW ADJUSTED C 


11E8 


8A68 


EXFR 


094 




ERRQ 091 


RDINO 


BAL 




P0=IND,P1=SENSE 



EC LEVEL=128266 PAGE 244 



ADDRESS 



COUNT 



AODP 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CLOAD=*E60, 
COMMENTS 



EC LEVEL=128266 PAGE 245 



11EA 


54B2 


EXFR 


095 










RDH G DA,AE 




11EC 


3 65 9 


EXFR 


C96 










D0=0-K50 




11EE 


2 845 


EXFR 


097 










I0=0$K40 




11FO 


2 907 


EXFR 


098 










11 = 




11F2 


99DE 


EXFR 


099 




ERDR 


164 


BRSKIP 


BR 




11 F4 


2 46 6 


EXFR 


100 


ENDING 








SET MODE K=36 




11F6 


E67E 


EXFR 


IC4 






108 


RUNON 


BR IF DC BIT2 = 


=0 


11F8 


162 5 


EXFR 


105 










D0=D0*-K20 




UFA 


2400 


EXFR 


106 










SET MODE K=00 




HFC 


AB20 


EXFR 


107 




BSWI 


10 7 


RESTRH 


BR 




11FE 


2406 


E XFR 


108 


RUN ON 








SET MODE K=30 




1200 


8F6C 


EXFR 


109 




ERRQ 


074 


RPDUCW 


BAL 




1202 


8A68 


EXFR 


110 




ERRQ 


091 


ROINO 


BAL 




1204 


5FB2 


EXFR 


111 










ROB HI OA,AE 




1206 


FBOA 


EXFR 


112 






114 


CHKCHK 


BR IF HI BIT7= 


=0 


1208 


2 64 3 


EXFR 


113 










DQ=0$K04 




120 A 


FD8E 


EXFR 


114 


CHKCHK 




116 


NORDCK 


BR IF PS BIT3 = 


=0 


120C 


3015 


EXFS 


115 










P1=P1$K10 




120F 


C992 


EXFR 


116 


NORDCK 




118 


COMBIN 


BR IF RS BIT4^ 


=0 


1210 


3D83 


EXFR 


117 










P1=P1$K08 




1212 


2E23 


EXFR 


118 


COMBIN 








HO=0$K02 




1214 


3485 


EXFR 


119 










G0=G0$K80 




1216 


A 92 5 


EXFR 


120 






12 5 


8RKCC N 


BR IF P1=NZ 




1218 


2E0 7 


EXF9 


121 










H0 = 




121A 


F82 2 


FXFR 


122 


WLRBR 




12 6 


CCBR 


BR IF PO BIT7= 


=0 


121C 


E523 


EXFR 


123 






126 


CCBR 


BR IF Gl BIT2; 


=1 


121E 


3445 


EXFR 


124 










GO=GO$K40 




1220 


1545 


EXFR 


125 


BP.KCC 








G1=G1*-K40 




1222 


B3E8 


EXFR 


126 


CCBR 


ERRO 


101 


STIND 


BAL 




1224 


D529 


EXFR 


127 






129 


CC 


BR IF Gl BITl^ 


=1 


1226 


3E83 


EXFR 


12 8 










HQ=H0$K08 




1228 


D22E 


EXFR 


129 


cc 




132 


NOTIME 


BR IF DO BIT5= 


=0 


122 4 


5 6F2 


EXFR 


130 










RDH D DA, BE 




122C 


8D6E 


EXFR 


131 




OPTR 


082 


IMMEDI 


BR 




122E 


51A2 


EXFR 


132 


NOTIME 








RDB Ul DA, AC 




1230 


2007 


EXFR 


133 










U0=0 




1232 


083 A 


EXFR 


134 






138 


HICTO 


BR IF PO BIT5= 


=0 


1234 


52F2 


EXFR 


135 










RDH V DA, BE 




1236 


613B 


EXFR 


136 










U1C=U1+V1 




1238 


6020 


EXFR 


137 










U0C=UQ+V0+C 




123A 


C844 


EXFR 


138 


-HCTC 




143 


NOIPL 


BR IF PO BIT4- 


=0 


123C 


3E43 


EXFR 


139 










H0=HC$K0 4 




123E 


C3C4 


EXFR 


140 






143 


NOIPL 


BR IF BA BIT4= 


=0 


1240 


2 820 


EXFR 


141 










SET R K=02 




1242 


806A 


EXFR 


142 


GOSTUC 


OPTR 


076 


STINST 


BR 




1244 


C3C3 


EXFR 


14 3 


MO I PL 




142 


GOSTUC 


BR IF BA BIT4= 


= 1 


1246 


8 05 A 


EXFR 
EXFR 


144 
145 


AENO 


DPTR 


06 8 


CCBR 


BR 





RESTORE CMD AND FLAGS 
WLR COUNT DO=AF 

1=4000 POINT TO PFR COL BUFFER 

READER MODE AND ZONE 
8R IF NO EXFR 
XFER,RST BIT 
CPU MODE AND ZONE 



READER MODE AND 
SET 0=00 D8 



ZONE 



RESTORE CMD 

BR IF NOT CMD IMMEDIATE 

CMD IMEDIATE,SET INDICATOR 

BR IF NO READ CHECK(SX042) 

READ CHK, 

BR IF NO VAL CHKISX043) 

VAL CHK, SET INDICATOR IN SENSE 

UNIT CHECK 

SET SECONDARY BIT 

BR IF NO SENSE BIT 

NO UNIT CHK 

BR IF NO WLR 

WLR, BR IF SLI 

WLR 

RESET CC BIT 

STORE IND.t AND SENSE 

BR IF CC 

NO CCSET CHAN END BIT 

BR IF NOT CMD IMMEDIATE 

CMD IMMEDIATE, RESTORE DO BIT 7 

RESTORE RESIDUE COUNT 

HIGH COUNT EQUALS ZERO 

BR IF NO EXCESS COUNT STORED 

READ EXCESS COUNT 

ADD BACK THE 

EXCESS COUNT 
BR IF FEED 
NO FEED, SET DE 
BR IF NOT IPL 
IPL,SET RDR REQUEST(RU015) 
STORE UCW & GO TO BSWI 
NO INTERRUPT FOR IPL 
INT, OR GO CC, STORE UCW, GO BSWI 



********************************** 

* CROSS REFERENCE FOR CSECT EXFR * 

)$C >$t2$C)$C^C 3$C 3$C ifc *£ 3$C3$e3$C2$S2$C3$C?Je3]C?!c 3$C ^C >JC 3$C 3$e JJC 3$C 3j£J$C9$C3$C3$C2^2$C9$C )jt 
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EXFR 


007 


ERDR 


181 


FROR 


183 ERDR 185 


EXFR 


012 


ERDR 


153 


FXFR 


085 EXFR 089 


EXFR 


013 


EXFR 


73 


EXFR 


076 


EXFR 


019 


EXFR 


04 5 


EXFR 


04 8 


EXFR 


022 


EXFR 


020 






EXFR 


24 


EXFR 


022 






EXFR 


26 


EXFR 


024 






EXFR 


028 


EXFR 


02 6 






EXFR 


030 


EXFR 


028 






EXFR 


032 


EXFR 


030 






EXFR 


34 


EXFR 


03 2 






EXFR 


36 


EXFR 


034 






EXFR 


045 


EXFR 


043 






EXFR 


047 


EXFR 


040 






EXFR 


050 


EXFR 


03 8 


EXFR 


064 


EXFR 


065 


EXFR 


059 






EXFR 


73 


EXFR 


071 






EXFR 


075 


EXFR 


05 8 






EXFR 


078 


EXFR 


066 






EXFR 


087 


EXFR 


081 






EXFR 


090 


EXFR 


079 






EXFR 


100 


EXFR 


090 






EXFR 


108 


EXFR 


104 






EXFR 


114 


ERDR 


119 


EXFR 


112 


EXFR 


116 


EXFR 


114 






EXFR 


118 


ERCX 


04 8 


EXFR 


116 


EXFR 


122 


ECOL 


094 






EXFR 


125 


EXFR 


120 






EXFR 


126 


EXFR 


122 


EXFR 


123 


EXFR 


129 


EXFR 


127 






EXFR 


132 


EXFR 


129 






EXFR 


138 


EXFR 


134 






EXFR 


142 


EXFR 


143 






EXFR 


143 


EXFR 


13 3 


EXFR 


140 



FILE DESCRIPTIVE TEXT 
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2311 



UCW 



AUX 0X8E-0X8F ZONE 1 T-REG ZONE 1 I-REG AUX 0X98-0X99 

************************************************************************************ 

* * * * * * 

* STATUS-I/0 ADR * FLAGS AND OP * DATA ADDRESS * COUNT FIELD * NEXT CCW ADDR * 

* * (FFI) (FOP)* * * * 
J*********** ******************************** ***************************************** 



STATUS-I/O ADR 

C=ACTIVE 

1=CAME FROM START I/O 
2=RETURN TO ICYCLES 
3=PERFORMED HALT I/O 
4-15=FILE I/O ADDRESS 



FLAGS AND OP 

0=CHAIN DATA 

1=CC OR CD AND NOT UNIT CHECK 

2=CC OR CD AND NOT UNIT CHECK 

3=SKIP 

4 = PCI 

5 = SET INTERRUPT LATCH (STATUS 

IN INTERRUPT BUFFER). 

6 = ANY INTERRUPT CONDTION 
7=SLI 



2311 AUX MODULE USAGE 
************************************ 

* ADDRESS * 

* * 

* 04 AND 05 - DEVICE ADDRESS FOR * 

* CONTINGENT CONNECTION* 

* * 

* 06 AND 07 - INTERRUPT BUFFER * 

* * 

* 14 AND 15 - ERROR STATUS CCE) * 

* * 

* 16 AND 17 - ERROR NEXT CCW ADDR * 

* * 

* 8E AND 8F - STATUS AND CHANNEL * 

* DEVICE ADDRESS. * 

* * 

* 98 AND 99 - NEXT CCW ADDRESS * 

* * 

* 9A AND 9B - SENSE BYTES AND 1 * 

* OR PREVIOUS OP AND * 

* MASK. * 

* * 

* 9C AND 9D - SENSE BYTES AND 1 * 

* OR FILE ADDRESS * 

* * 

* F5 - CONTROL UNIT ADDRESS* 

* * 
************************************ 



ENTRY POINTS 



ENTRY 



THIS IS THE NORMAL ENTRY FOR A PROGRAMMED 
INSTRUCTION. THIS ROUTINE DETERMINES- 
START I/O, TEST I/O, TEST CHANNEL, OR 
HALT I/O AND BRANCHES FOR REQUIRED PROCESS. 
THE START I/O SEQUENSE TESTS THE AVAIL- 
ABILITY OF THE FILE, AND DETERMINES THE 
FILE READY CONDITION. THE FILE CONTROLS ARE 
TESTED FOR OPERATION. 



SNSSTA THIS IS A BAL ENTRY TO SET AN EQUIPMENT 
CHECK AND SELECTED STATUS INDICATIONS IN 
THE SENSE BYTES. 

SETDA THIS IS A BAL ENTRY USED TO SET THE DEVICE 
ADDRESS FROM AN UNSELECTEO GATED ATTENTION, 
AFTER DEVELOPING THE DEVICE ADDRESS, THE 
INDICATED MODULE IS SELECTED. 



TSTCC 



THIS ENTRY ALLOWS THE USE OF THE CYCLIC-CODE 
AND OPERATIONAL TEST ROUTINE AFTER CONTROL 
AND SENSE OPERATIONS BEFORE PROCEEDING WITH 
OPERATING COMMANDS. 



RSTATT THIS IS A BAL ENTRY USED TO RESET THE FILE 

GATED ATTENTION. THE READ-GATE IS RAISED 
MOMENTARILY FOP THE RESET AND THEN THE 
MODULE IS DESELECTED. 



ADDR 



WORD 



SEQUENCE NO. 


1 


FILE 0C1 


T 


FILE 00 2 


* 


FILE 0C3 


* 


FILE 004 


* 


FILE 005 


* 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



COMMENTS 



2311 FEATURE COMMON ENTRY FOR START 10, TEST 10, HALT 10 
* FILE TIO - SIO - HIO COMMON ** 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 






FILE 


006 


* 


#$$£$&$$$$$#$$$# $;!:$4:3jc$$$:tc$$]jc>4c$)|c$ 






FILE 


007 


ASEQ 


AL07=7C 






047C 


7CC2 


FILE 


008 


ENTRY 






STH P DA,B8 


047E 


2 480 


FILE 


009 








SET MODE K=08 


0480 


C62A 


FILE 


010 




031 


AVAIL 


BR IF DO BITO=0 


0482 


E013 


FILE 


Oil 




019 


HALTIO 


BR IF GO BIT6=1 


0484 


F020 


FILE 


012 




026 


SETCC2 


BR IF GO BIT7=0 


0486 


D9A0 


FILE 


013 




026 


SETCC2 


BR IF FFI5-0 


0488 


6711 


FILE 


014 








D1 = DKU1 


048A 


C4A0 


F ILE 


015 




026 


SETCC2 


BR IF ZNZ 


048C 


7032 


FILE 


016 








STH U DA,8E 


048E 


9130 


F ILE 


317 




FINT 050 


SETCSW 


BAL 


0490 


A024 


FILE 


018 




CCOM 127 


CSWADR 


BR 


0492 


5 DBF 


FILE 


019 


HALTIO 






T1=FF0 


0494 


1BC5 


FILP 


020 








Tl=Tl*-KCO 


0496 


09A3 


FILE 


021 




02 7 


SETHIO 


BR IF FFI5=1 


0498 


3 210 


FILE 


022 








SET MMSK K=81 


049A 


2 004 


FILE 


023 








SET FIA K=20 


049C 


40BF 


F ILE 


02 4 








FF0=T1 


049E 


1210 


FILE 


02 5 








RST MMSK K=81 


04A0 


A EC A 


FILE 


026 


SETCC2 


CCOM 162 


CC2B 


BR 


04A2 


F5BD 


FILE 


027 


SETHIO 


040 


SETCUB 


8R IF DAS 13 = 1 


04A4 


2 EO 7 


F ILE 


028 








H0=0 


04A6 


D9C0 


FILP 


029 




042 


HTS 


BR IF FF 15 = 


04A8 


810C 


FILE 


030 




CCOM 155 


CCOB 


BR 


04AA 


3 065 


FILE 


031 


AVAIL 






U0=U0$K60 


04AC 


7032 


FILE 


03 2 








STH U 0A,8E 


04AE 


EC2 3 


FILE 


03 3 




02 7 


SETHIO 


BR IF GO BIT6=1 


04 BO 


F5BD 


FILP 


034 




040 


SETCUB 


BR IF DASI3=1 


04B2 


E1C3 


F ILE 


03 5 




04 3 


TSTCUE 


BR IF DASI6=1 


04B4 


F05 6 


FILE 


036 




053 


SIO 


BR IF GO BIT7=0 


0486 


OBFD 


FRF 


037 




076 


GETOS 


BR IF F0P5=1 


04B8 


8224 


FIL C 


039 




258 


TSTAOR 


BAL 


04BA 


DBFC 


FILE 


039 




076 


GETDS 


BR IF F0P5=0 


04 BC 


2E55 


F ILE 


040 


SETCUB 






H0=0$K50 


04BE 


2 DO 2 


FILE 


041 








SET FIA K=10 


04 CO 


855E 


FILE 


342 


NTS 


125 


SIOTIO 


BR 


04C2 


OBCC 


F ILE 


043 


TSTCUE 


04 8 


CUE 


BR IF F0P5=0 


04C4 


8224 


FILE 


04.4 




258 


TSTAOR 


BAL 


04C6 


DBBD 


F ILE 


045 




040 


SETCUB 


BR IF F0P5=1 


04C8 


2E4 3 


F ILE 


046 








HQ=0$K04 


04CA 


4FEF 


PILE 


047 








FOP=HC 


04CC 


2E25 


FILE 


04 8 


CUE 






H0=0$K20 


04CE 


F053 


FILE 


049 




051 


RSTCUE 


BR IF GO BIT7=1 


04D0 


2E35 


FILE 


050 








H0=0$K30 


0402 


0002 


FILE 


051 


RSTCUE 






RST FIA K=10 


0404 


855E 


FILE 


052 




125 


SIOTIO 


BR 


0406 


7 242 


FILE 


053 


SIO 






STH V DA, 98 


0408 


42EF 


FILE 


054 








STP0=H0 


04 DA 


5A3 


FILE 


055 








RDH T V+0 


04DC 


0A4B 


FILE 


056 








Z=T0<K04 



CL0AD=*E60, EC LEVEL=128266 

COMMENTS 



STORE CPU P REG 

SET FILE MODE £ CPU ZONE 

BR IF CHANNEL AVAILABLE 

BR IF HALT ID 

BR IF NOT TEST 10 

BR IF INTURRUPT LATCH NOT ON 

COMPARE IOA 

BR IF IOA NOT SAME 

SAVE IOA WITH RESET STATS 

SET REGS TO USE CPU CSW STORE 



PAGE 248 



GET CC 
STRIP 
BR IF 

SET P 
SET CC 
RESTOR 
RESET 
BR TO 
BR IFE 
ZERO 
BR IF 
BR TO 
SET FR 
STORE 
BR IF 



BR 
BR 
BR 
BR 



IF 
IF 
IF 
IF 



TEST F 
BR IF 

SET CU 
SET CU 



W FLAG 
CC ANO 
INTURR 
RIORIT 
W CO UN 
E CCw 
PRIORI 
SET CC 
RASING 
EVICE 
NOT IN 
SET CC 
OM SIO 
STATS 
HALT I 
ERASIN 
CUE 
SIO 

CONTIN 
OR CON 
NOT CO 
B STAT 
B LATC 



S 

DC 
UPT 

Y 

T 000 

FLAGS 

TY 

2 



FLAGS 
LATCH 



IS ON 



WITHOUT CHAIN 



STATUS 

TURRUPT 



f.RTN TO 

AND I/O 

/O 

G 



LATCH 

I CYC STATS 

ADDRESS 



CONNECT CLEAR 
TINGENT CONNECTION 
NTIN CONNECT 
US 
H 



BR IF NO CONTIN CONNECT 
TST FOR CONTIN CONNECT 
BR IF CONTIN CONNECT 
SET CONTINGENT 

CONNECTION CLEAR INDICATOR 
SET CUE FOR STATUS 
BR IF TEST I/O 

SET CUE £ BUSY STATUS 
RESET CUB LATCH 

SAVE CCW ADDRESS 

SET STORAGE PROTECT KEY 

GET CCW COMMAND 

MASK FOR SENSE OP 



ADDR 



WORD SEQUENCE NO, 



LABEL 



04DE 


C4E4 


F] 


tLF 


057 




04E0 


8 FA 6 


F 


[LE 


058 




04E2 


<H0C 


F 


tLE 


059 




C4E4 


DBEB 


F ' 


[LE 


060 


NOTSNS 


04E6 


8224 


F ] 


tLE 


061 




04E8 


DB3D 


F 


[LE 


06 2 




04EA 


0A3B 


F] 


[LF 


063 


TSTNOP 


04EC 


C4FD 


F] 


[LE 


064 




C4EE 


CA10 


F] 


[LE 


065 




04F0 


E0F6 


F 


[LE 


066 




04F2 


0A7B 


F 


[LE 


067 




04F4 


FOFD 


F 


[LF 


068 




04F6 


0133 


F ] 


[LE 


070 


TSTIOA 


04F8 


FOFD 


F] 


[LE 


074 




04FA 


850E 


F 


[LE 


075 




04FC 


5 EC F 


F ] 


[LE 


07 6 


GETOS 


04FE 


1CA3 


p 


[LE 


077 




05CC 


C489 


F 


[LE 


078 




0502 


2C43 


F i 


[LE 


079 




0504 


A5E6 


F 


[LE 


080 


STRSEN 


0506 


8 55 A 


F 


[LE 


081 




0508 


8FA6 


F 


[LE 


082 


BALMS 


050A 


EE95 


Fl 


r LE 


083 




050C 


DE99 


P 1 


[LE 


084 




050E 


A EEC 


F 


[LE 


085 


SETIVR 


0510 


2A4 5 


F 


[LE 


086 




0512 


8 55 8 


p 


[LE 


087 




0514 


2C85 


F] 


[LE 


088 


UNSAFE 


0516 


8 504 


F ] 


[LF 


089 




0518 


2E15 


F ] 


[LE 


090 


TSTDS7 


051A 


FAAB 


F] 


[LE 


09 1 




05 1C 


CEBE 


p 


[LE 


092 




051E 


E5B7 


F 1 


[LF 


09 3 




0520 


F02 5 


Fl 


[LE 


094 




0522 


9068 


F 


[LE 


095 




0524 


49AF 


F 1 


[LF 


096 


TIO 


0526 


5CC2 


F ] 


ILE 


097 




0528 


8 IOC 


f ; 


[LE 


098 




052A 


AEEC 


F ] 


[LE 


nqg 


SKINC 


052C 


0A3B 


F 3 


[LE 


100 




052E 


F0C6 


F ] 


[LE 


101 




0530 


CA1D 


F] 


.LE 


10 2 




0532 


E0C6 


F ' 


[LE 


103 




0534 


910C 


F] 


[LE 


104 




0536 


A 044 


F j 


[LE 


105 


ATNRST 


0538 


2E43 


F 1 


[LF 


1C6 




053A 


F03F 


p ; 


[LE 


107 




053C 


3E15 


F ] 


[LE 


10 8 




053E 


A052 


F ! 


[LE 


1C9 


BRANCH 


0540 


F061 


F3 


[LE 


110 




0542 


AEEC 


F] 


[LE 


111 





NEXTSEQ 


MEXTLABEL 


STATEMENT 


060 


NOTSNS 


BR IF ZNZ 


316 


MOOSEL 


BAL 


236 


EXCUTE 


BR 


063 


TSTNOP 


BR IF F0P5=l 


25 8 


TSTADR 


BAL 


040 


SET CUB 


BR IF F0P5=1 
Z=T0<KC3 


076 


GETDS 


BR IF 7=0 
Z=T0<K10 


070 


TSTIOA 


BR IF HZNZ 
Z=T0<K07 


076 


GETOS 


BR IF LZ=0 

Z=U1*-K0 3 


076 


GETDS 


BR IF LZ=0 


085 


SETIVR 


BR 

PO=DS 

P0=P0*-K0A 


082 


BALMS 


BR IF Z = 
P0=0$K04 


273 


SNSSTB 


BAL 


123 


STR04 


BR 


316 


MODSEL 


BAL 


08 8 


UNSAFE 


BR IF DS2=1 


090 


TSTDS7 


BR IF OS 1=1 


362 


ZROSEN 


BAL 

T0=01»K40 


122 


CONCON 


BR 
PO=0$K80 


080 


STRSEN 


BR 
H0=0$K10 


099 


SKINC 


BR IF DS7=1 


109 


BRANCH 


BR IF DSO=0 


105 


ATNRST 


BR IF DASI2=1 


096 


TIO 


BR IF GO BIT7=1 


149 


CCTEST 


BR 
MS = TC 

RDH P DA, 88 


CCOM 155 


CCOB 


BR 


362 


ZROSEN 


BAL 

Z=T0<K03 


113 


PSTATN 


BR IF LZNZ 
Z=T0<K10 


113 


RSTATN 


BR IF HZNZ 


236 


EXCUTE 


BR 


344 


RSTATT 


BAl 
H0=0$K04 


109 


BRANCH 


BR IF GO BIT7=1 
H0=HG$K1G 


351 


R ST MOO 


BAL 


126 


MODE 


BR IF GO BIT7=1 


36 2 


ZROSEN 


BAL 



CL0AD=*E60, 
COMMENTS 
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BR IF NOT SENSE 

SELECT MODULE FOR SENSE 

BR IF CONTIN CONECT CLEAR 

TST FOR CONTINGENT CONNECTION 

BR IF CONTIN CONECT 

MASK FOR NO OP 

BR IF NO OP 

MASK FOR HI BIT OF RESTORE 

BR IF NOT RESTORE 

MASK FOR LO BITS OF RESTORE 

BR IF RESTORE 

MASK FOR VALID DEVICE ADDR 

BR IF DA VALID 

GET DISK STATUS 
REMOVE TRAP GT , LO COMP 
BR IF NO UNSELECTED STATUS 
SET UNSELECTED STATUS BIT 
STORE SENSE 

BAL TO MOD SELECT 

BR IF UNSAFE 

BR IF ON LINE 

ZERO SENSE BYTES. INVALID 2311 

SET INT REQD 

BR TO SET CONTINGENT CON 

SET UNSAFE FOF SENSE 



PRESET BUSY STATUS 

BR IF SEEK INCOMPLETE 

NOT READY 

SELECTED GATED 

TIO 

CC TEST OF SIO 
DESELECT FILE 
RESTORE CPU P REG 
SET CCO 



BR 


IF 


BR 


IF 


BR 


IF 


BR 


TO 



ATTENTION 



ROUTINE 



MASK FOR LO BITS OF RECAL 
BR IF NOT RECAL 
MASK FOR HI BITS RECAL 
BR IF NOT RECALIBRATE 

BAL TO RESET GATED ATTN 

SET DE BIT 

BR IF TEST I/O 

OR IN BUSY STATUS FOR SIO 



BR IF TEST 10 
BAL TO ZERO SENSE 



BYTES 



ADDR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CLOAD=*E60, 
COMMENTS 



EC LEVEL=128266 PAGE 250 



0544 
0546 
0548 
054A 
054C 
054E 
055C 
0552 
0554 
0556 
C558 
055A 
055C 
055E 
0560 
0562 
0564 
0566 
056 8 
056A 
056C 
056E 
C57C 
0572 
0574 
0576 
0578 
057A 
057C 
057E 



1068 
106A 



106C 
106E 
1070 
1072 
1074 
1076 
1078 



8 56 A 
2A13 
E5D6 
A044 

A5EC 
3E43 
E058 
3E15 
855A 
A044 
A5EC 
2R43 
70AC 
F06 8 
2400 
5CC2 
2F07 
A01E 
F073 
2 34B 
5 630 
2F85 
C275 
2F0 7 
2 AC 7 
C3FF 
2400 
5CC2 
A03Q 
A7D8 



AEEC 

3 ECO 



2490 

OE08 
2 302 
2 304 
3110 
3D29 
4FDF 



LE 
LF 
LE 
LE 
LE 
LF 
LE 
LE 
LE 
LE 
LE 
LE 
LE 
LE 
LE 
LE 
LE 
LE 
LE 
LE 
LE 
LE 
LE 
LE 
LE 
LE 
LE 
LE 
LE 
LF 
LF 
LE 
LF 
LE 
LE 
LE 
LE 
LE 
LE 
LE 
LF 
LF 
LE 
LE 
LE 
LE 
LE 
LE 
LE 
LE 
LE 



112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
14 8 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 



RSTATN 



NOTDE 

CONCON 

STR04 

SIOTIO 
MODE 



TSTHIO 
TSTPCI 



ZERCHN 
ZERT 



BAON 
A END 

* 

* 
* 

ASEQ 
CCTEST 

* 
* 
* 



131 TSTPCI 

121 NOTDE 

344 R ST ATT 

276 SNSSTC 

123 STR04 

123 STR04 

344 R ST ATT 

276 SNSSTC 



130 TSTHIO 



CCOM 12 3 STATOS 
13 5 ZERCHN 



13 6 ZERT 



141 BAON 



CCOM 13 5 STATUS 
DCLL 02 6 STOP 



BR 

T0=0$K01 

BR IF DASI2=0 

BAL 

3AL 

H0=H0$K04 

BR IF GO BIT7=i 

H0=HC$K10 

BR 

BAL 

BAL 

T1=0$K04 

STH U AS,T+0 

BR IF GO BIT7=0 

SET MODE K=00 

RDH P DA,B8 

H1 = 

BR 

BR IF GO BIT6=1 

V1=V1+K04 

RDH D V+0 

H1=0$K80 

BR IF DO BIT4=1 

Hl = 

T0=0 

BR IF BA4=1 

SET MODE K=00 

RDH P DA,B8 

BR 

BR 



SET SEEK CHECK SENSE 

BR IF NO GATED ATTENTION 

BAL TO RESET GATED ATTENTION 

BAL TO STORE SENSE 

OR IN DEVICE END 

BR IF TEST 1-0 

OR IN BUSY BIT 

BAL TO RESET GATED ATTENTION 
STORE SENSE 



BR IF NOT TIO 

SET CPU MODE AND ZONE 

RESTORE CPU P REG 



BR IF 
ADD 4 



HIO 
TO CCW 



ADDR 



STATUS 
BYTE 



SET PCI BIT FOR CHNL 

3R IF PCI IN CURRENT 

ZERO CHANNEL 

ZERO HI ADDR 

BR IF IPL 

SET CPU MODE AND ZONE 

RESTORE CPU P REG 

BR TO STORE SRATUS AND 

BR TO IPL STOP 



STATUS 

CCW 



SET CC1 



$3$c&$ #&j£####3fc5&#:$r3&jfc#3fc3fc #:fc>}c#3& $###:&## & # # # # # & # $ # # # & # # $ $ 3$c & # # ^ #&######&;£###### # 

* CYCLIC CODE HARDWARE TEST ** 

AL07=68 

362 ZROSEN BAL CLEAR THE SENSE BUFFER 

SET FIB K=80 SET NTO LATCH 

NOTE. 

CHANGE THE FOLLOWING INSTR TO AN UNCOND BR TO -EXCUTE- 

TO BYPASS THE CC TEST WHEN SCOPING. 



SET MODE K=09 
RST FIB K=40 

SET DIAC K=10 

SET DIAC K=20 

SET DIAB K=81 
Pl=0-K20 
F0P=P1 



SET FILE MODE AND ZONE 

INITIAL RESET 

SET DIAGNOSTIC MODE 

SET DIAG INDEX 

SET DIAG ADDR 

SET CONSTANT DF 

LOAD OP REG 



ADDR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ 



NEXTLA8EL STATEMENT 



CLOAD=*E60, 
COMMENTS 



EC LEVEL=128266 PAGE 251 



107 A 


43DF 


FILF 


163 


107C 


8678 


FILE 


164 


107E 


5FCF 


FILE 


165 


1080 


1CFF 


FILE 


166 


1082 


C4FC 


F ILE 


167 


1084 


4FCF 


FILE 


168 


1086 


5FCF 


FILE 


169 


1088 


C4FC 


FILE 


170 


108A 


866C 


FILE 


171 


108C 


866C 


FILE 


172 


108E 


5BCF 


F ILE 


173 


1090 


867A 


FILE 


174 


1092 


5ECF 


FILE 


175 


1094 


C4FC 


F ILE 


176 


1096 


2310 


FILE 


177 


1098 


2 390 


FILE 


178 


109A 


2D13 


FILE 


179 


109C 


4FDF 


FILE 


180 


109E 


2 02 5 


FILE 


181 


10 AO 


43DF 


FILE 


182 


10A2 


3110 


FILE 


183 


10A4 


8670 


FILE 


184 


10A6 


201F 


FILE 


185 


10A8 


4FDF 


FILE 


186 


10AA 


866C 


FILE 


187 


10 AC 


8670 


FILE 


188 


10AE 


5BCF 


FILE 


189 


10B0 


2 08 5 


FILE 


190 


10B2 


3D23 


FILE 


191 


1084 


867A 


FILE 


192 


10B6 


3073 


FILE 


193 


10B8 


8676 


FILE 


194 


1CBA 


3114 


FILE 


195 


10BC 


866C 


FILE 


196 


10BE 


20A3 


FILE 


197 


1CC0 


8676 


F ILE 


198 


10C2 


1000 


FILE 


1<=>9 


10C4 


CAFD 


FILE 


200 


10C6 


2380 


FILE 


201 


10C8 


3114 


FILE 


20 2 


10CA 


866C 


FIL^ 


20 3 


10CC 


3D47 


FILE 


204 


10CE 


8676 


FILE 


20 5 


1000 


1000 


FILE 


20 6 


10D2 


239C 


FILE 


20 7 


10D4 


3 114 


F ILE 


20 8 


10D6 


2 308 


FILE 


20 9 


10D8 


2D75 


FILE 


210 


100A 


3 DA 3 


FILE 


211 


10 DC 


8676 


FILE 


212 


10DE 


1D00 


FILE 


213 







FEB0=P1 


252 


PEDS 


BAL 

P0=FOP 

P0=P0<KFF 


228 


ALUCHK 


BR IF ZNZ 

FOP=PC 

P0=FOP 


ZZ o 


ALUCHK 


BR IF ZNZ 


246 


SHIFT4 


BAL 


246 


SHIFT4 


BAL 

PO=SDI 


25 3 


XOR 


BAL 
PO = DS 


228 


ALUCHK 


BR IF ZNZ 

SET DIAC K=01 

SET DIAC K=09 

P1=0$K0 1 

F0P=P1 

P1=0$K20 

FEB0=P1 

SET DIAB K=81 


248 


SHI FT 2 


BAL 
P1=PH-K11 

F0P=P1 


246 


SHIFT4 


BAL 


248 


SHIFT2 


BAL 

PO=SDI 
P1=0$K80 
P1=P1$K02 


25 3 


XOR 


BAL 
P1=P1$K07 


251 


SET3 


BAL 

SET DIAB K=A1 


246 


SHIFT4 


BAL 

P1=0$KCA 


251 


SET3 


BAL 

RST FIA K=80 


22 3 


ALUCHK 


BR IF DS4=1 
SET DIAC K=08 
SET DIAB K=A1 


246 


SHIFT4 


BAL 
Pl=Pl$K44 


251 


SET3 


BAL 

RST FIA K=8G 

SET DIAC K=09 

SET DIAB K=A1 

SET DIAC K=40 

P1=0$K70 

P1=P1$K0A 


251 


SET3 


8AL 

RST FIA K=80 



LOAD WRITE BUFFER 

TEST FOR CORRECT BITS IN WR BUFF 

GET OP REG BITS 

MASK FOR CORRECT OP REG BITS 

BR IF OP REG ERROR 

RESET OP REG 

GET OP REG BITS 

BR IF OP REG NOT RESET 

ADVANCE 

BIT 
GET READ 
TST XFER OF WR TO RD BUFF 



RING 

BUFF BITS 
OF WR TO RD 



BR IF WR BUFF NOT RESET 

ADV TO ZONE 1 

ADV TO ZONE 2£SET SEP DATA 

SET WRITE BIT 

LOAD OP REG 

LOAD WR BUFF 

SET READ £ COMPARE GATES 

ADV BIT RING 

Pl = 31 

LOAD OP PEG 

ADVANCE 

BIT RING 
GET READ BUFF BITD 



TST FOR CORRECT WR BUFF SHUFT 

TST FOR CORRECT BITS IN CC REG 
SET READ £ COMPARE GATES 
ADV BIT RING 

TST FOR CORRECT CC DATA 

RST HI LO CC ERR£TRAP LATCHES 

BR IF UNEQUAL NOT RESET 

SET SEPERATED DATA 

SET READ £ COMPARE GATES 

ADV BIT RING 

P1-4E 

TEST FOR CORRECT CC DATA 

RST HI LO CC EPR&TRAP LATCHES 

ADV TO ZONE 3SSET SEP DATA BIT 

SET READ £ COMPARE GATES 

ADV BIT RING 



TEST FOR CORRECT CC DATA 

RST HI LO CC ERRSTRAP LATCHES 



ADDR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CL0AD=*E60, 
COMMENTS 



EC LEVEL=128266 PAGE 252 



10EO 


3114 


F 


[LE 


214 




10E2 


2380 


F. 


[LE 


215 




10E4 


2 308 


F 


[LF 


216 




1GE6 


1045 


F 


ILE 


217 




10E8 


8676 


F 


[LE 


218 




10EA 


1D00 


F 


ILE 


219 




1CEC 


3114 


F 


ILE 


220 




10EE 


2308 


F 


ILE 


221 




10FO 


2 05 5 


F 


ILE 


222 




1DF2 


3DB3 


F 


[LF 


22 3 




1CF4 


8676 


F 


[LE 


224 




10F6 


1D00 


F 


ILE 


225 




1CF8 


2480 


F 


[LE 


226 




10FA 


9108 


F 


[LE 


227 




10FC 


2100 


f; 


[LF 


22 8 


ALUCHK 


10FE 


1E0C 


F 


ILE 


229 




1100 


0EO8 


F 


[LF 


230 




1102 


2480 


F 


[LP 


231 




1104 


3C8 3 


F 


ILP 


232 




1106 


8 504 


F 


[LE 


233 




1108 


2100 


F 


ILF 


234 


CCNOER 


11CA 


3E0 


F 


ILE 


235 




HOC 


CEO 8 


F 


ILE 


236 


EXCUTE 


HOE 


CE04 


F 


ILF 


237 




1110 


2D43 


F 


ILE 


23 8 




1112 


4EDF 


F 


[LE 


239 




1114 


5CC2 


F 


ILE 


240 




1116 


2A07 


F 


ILE 


241 




1118 


2490 


F 


ILE 


?42 




111 A 


5F42 


F 


ILE 


24 3 




111C 


831 A 


F 


ILE 


244 








F 


[LP 


245 


AEND 


066C 


2 30 8 


F 


ILE 


246 


SHIFT4 


066E 


2 30 8 


F 


ILE 


247 


SHIFT3 


0670 


2 30 8 


F 


ILE 


24 8 


SHIFT2 


0672 


2 30 8 


F 


ILE 


249 


SHI FT 1 


0674 


128E 


F 


ILF 


250 


RETURN 


0676 


2112 


F 


ILE 


25 1 


SET3 


0673 


5ECF 


F 


FLE 


252 


PEDS 


C67A 


6CD1 


F 


ILE 


253 


XOR 


067C 


C 4F 5 


c 


ILF 


2 54 




067E 


90FC 


F 


HE 


255 








F 


ILE 


256 


* 






r 


ILE 


25 7 


* 


0224 


5C52 


F 


ILE 


258 


TSTADR 


0226 


F939 


F 


ILE 


259 




0228 


EC38 


F 


ILE 


260 




022A 


2C07 


F 


ILE 


261 




02 2.C 


2D43 


F 


ILE 


262 




022E 


5 ECO 


F 


ILE 


26 3 




02 30 


4FCF 


F 


ILE 


264 









SET DIAB K=A1 






SET DIAC K=Q8 






SET DIAC K=40 






P1=P1*-K40 


251 


SET3 


BAL 

RST FIA K=80 

SET DIAB K=A1 

SET DIAC K=40 

P1=0$K50 

PI=P1$K0B 


251 


SET3 


BAL 

RST FIA K=80 

SET MODE K=08 


234 


CCNOER 


BR 

SET DIAB K=00 

RST FIB K=80 

RST FIB K=40 

SET MODE K=08 

P0=P0$K08 


080 


STRSEN 


BR 

SET DIAB K=00 

SET FIB K=80 

RST FIB K=40 

RST FIB K=2C 

P1=0$K04 

FB0=P1 

RDH P DA,B8 

T0=0 

SET MODE K=09 

RDH H DA,98 


038 


GET OP 


BR 

SET DIAC K=40 

SET DIAC K=4Q 

SET DIAC K=40 

SET DIAC K=40 

RTN 

SET DIAB K=ll 

P0=DS 

P0=P0<P1 


250 


RETURN 


BR IF Z=0 


22 8 


ALUCHK 


3R 



SET READ S COMPARE GATES 

SET SEP DATA BIT 

ADV BIT RING 

P1 = 3A 

TEST FOR CORRECT CC DATA 

RST HI LO CC ERRfiTRAP LATCHES 

SET READ & COMPARE GATES 

ADV BIT RING 



TST FOR CORRECT CC DATA 

RST HI LO CC ERRSTRAP LATCHES 

SET FILE MODE CPU ZONE 

END OF TEST - RESULTS OK 

RST DIAG ADDR LATCHES 

CHAIN END RESET 

INITIAL RST 

SET FILE MODE-CPU ZONE 

SET ALU CHECK SENSE BIT 

RESET DAAG ADDR LATCHES 

SET NTO LATCH 

INITIAL RST 

CLOLD START 

SET HD SELECT BIT 

HD SELECT TO BUSS 

RESTORE CPU P REG 

SET FILE MODE AND ZONE 

RD OUT CCW NA 

BR TO SI 0, TRAP COMMON WORD 



SET DIAG ADDR 3 



MASK FOR 
BR IF NO 



CORRECT 

ERROR 



BITS 



$?$:*$*]!:$$$#&*!($$#$ ####*##***=£#*#** sfcjfc## *#######$###*##!(« **###*##$#*##](tjjc:$t**]jc 



* CONTINGENT CONNECTION TEST - SUBROUTINE 

RDH P DA,9A GET SNS BYTES 0S1 

268 PREST BR IF PI BIT7 = 1 BR IF NONSENSE STORED 

268 PREST BR IF PO BIT2=0 BR IF NO UNSENSED SENSE 

P0=0 SET AUX 

P1=0$K04 ADDR 0004 

RDH H AS,P+0 GET I/O ADDR 

FOP=PO ZERO OP REG 



** 



ADDP 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CLOAD=*E60, EC LEVEL=128266 PAGE 253 

COMMENTS 



0232 


6F11 


F 


ILE 


265 




0234 


C4B9 


F 


ILE 


266 




0236 


4FDF 


F 


[LE 


267 




0238 


5CC2 


F 


ILE 


26 8 


PREST 


023A 


128E 


F 


[LE 


269 








F 


ILE 


270 


* 






F ' 


rLE 


271 


* 


25E4 


2C15 


F 


ILE 


272 


SNSSTA 


25E6 


200 7 


F 


ILE 


27 3 


SNSSTB 


25E8 


7C62 


F 


ILE 


274 




25EA 


2A15 


F 


ILE 


275 




25EC 


3A25 


F 


ILE 


276 


SNSSTC 


25EE 


2 BO 7 


F 


ILE 


277 




2 5F0 


7A52 


F 


ILE 


278 




25F2 


2A07 


F 


ILE 


279 




25F4 


2E23 


F 


ILE 


280 




25F6 


49BF 


F 


ILE 


28 1 




25F8 


128E 


F 


ILE 


28 2 








F 


ILE 


283 


* 






F 1 


ILE 


284 


* 






F 


ILE 


285 


* 






F 


ILE 


286 


* 






F 


ILE 


287 


* 


0F9C 


2095 


F 


[LE 


28 8 


SETDA 


0F92 


CE08 


F 


[LE 


289 




0F94 


2100 


F 


ILE 


290 




0F96 


CCA 8 


F 


ILE 


295 




0F98 


2D1B 


F 


ILE 


29 6 




OP 9 A 


DCAB 


P 


ILE 


297 




0F9C 


2D1B 


F 


IL*= 


298 




0F9E 


ECAB 


P 


ILE 


299 




OFAO 


2D1B 


F 


ILE 


300 




0FA2 


FCAB 


F 


ILE 


30 1 




0FA4 


128F 


F 


ILE 


30 5 








F 


ILE 


311 


* 






F 


ILE 


312 


* 






F 


ILE 


313 


* 






F 


ILE 


314 


* 






F 


ILE 


315 


* 


0FA6 


5C32 


F 


ILE 


316 


MODSEL 


0FA8 


0E08 


F 


ILE 


317 




OFAA 


2E07 


F 


ILE 


318 


MODBR 


OFAC 


C9CB 


F 


ILE 


319 




OFAE 


D90B 


F. 


ILE 


321 




OFBO 


2C15 


F 


ILE 


323 




0FB2 


891F 


F 


[LE 


324 




0F80 


6CC3 


F 


ILE 


325 


MOO 


0F82 


6CC3 


F 


ILE 


326 


MOD 1 


0F84 


6CC3 


F 


ILE 


327 


MOD 2 


0F86 


4BEF 


F 


ILE 


328 


MOD 3 


OF 8 8 


49CF 


p 


ILE 


334 





268 PREST 



H1 = HKU1 
BR IF Z=0 
F0P=P1 
RDH P DA f B8 
RTN 
SET SENSE BYTES 



COMPARE I/O ADDRESSES 
BR IF COMPARE EQUAL 
SET OP REG INDICATOR 
RESTORE CPU P REG 

- SUBROUTINE 



** 



*********************************************************************** 

P0=0$K10 

P1 = 

STH P DA,9C STORE SENSE BYTES 2,3 

T0=0$K10 

T0=T0$K20 SET CONTINGENT CONN IND.SENSEO-2 

T1 = 

STH T DA,9A STORE SENSE BYTES 0,1 

T0=0 

H0=0$K02 SET UNIT CHK DEVICE STATUS 

MS=T1 DESELECT MOD 

RTN 
************ ********************************************** ************* 

* ** 

* SET DEVICE ADDRESS - SUBROUTINE ** 

* FOR GATED ATTENTION ** 
************************* *********** ************ ** ********************* 



318 MODBR 

318 MODBR 

318 MODBR 

318 MODBR 



P1=0SKQ0 
RST FIB K=40 
SET DIAB K=00 
BR IF FGA0=1 
P1=P1+K01 
BR IF FGA1=1 
P1=P1+K01 
BR IF FGA2=I 
P1=P1+K01 
BR IF FGA3=1 



SET DEVICE ADDR 

GIVE INITL RESET TO RST CHN END 

BR IF MOD GATED ATTENTION 

BR IF MOD 1 GATED ATTENTION 

8R IF MOD 2 GATED ATTENTION 

BR IF MOD 3 GATED ATTENTION 



RTN 
**** «*** *************************************************** ****** ****** 

* ** 

* MODULE SELECT - SUBROUTINE ** 

* ** 
*********************************************************************** 



336 ENDSEL 
336 ENDSEL 

32 5 MOD 



RDH P DA,8E 
RST FIB K=40 
H0=0 

BR IF PI BIT4=1 
BR IF PI BIT5=1 
P0=0$K10 
N N=P1 BITS67 
PO-PC+PO 
P0=P0+P0 
P0=PO+PO 
TGRO=H0 
MS=PO 



GET I/O ADDR 

GIVE INITL RESET TO RST CHN END 

BR IF DRIVE IS 8 OR HIGHER 

BR IF DRIVE IS 4 OR HIGHER 

P0=10 

BR ON DRIVE ADDRESS 

FORM 

DESIRED 

DRIVE MASK 
RESET TAG REG 
MODULE SELECT 



CLOAD=*E60, EC LEVEL=128266 PAGE 254 

ADDR WORD SEQUENCE NO. LABEL NEXTSEQ NEXTLABEL STATEMENT COMMENTS 

0F8A 4EEF FRF 336 ENOSEL FBO=HO RESET FILE BUS n-UT 

OF8C 4DEF FILE 337 FFO=HO .R-ESET CCW FI LE/FLAGSL 

0F8E 128E FILE 338 RTN ( 

FILE 339 * *******#*#*********#**#*#************^ 

FILE 340 * * ~ ~~ ** 

FILE 341 * * RESET GATED ATTENTION - StiBR-QAJTIblE ._ ** 

FILE 342 * * ** 

FII F 343 * ♦♦♦♦^^♦♦^^^♦^^♦♦♦♦♦♦♦♦#***#+**#*#*#^*#***#********^*#'#****#*#*##****'^*# 

2044 2C07 FILE 344 *STATT P0=0 RESET GATED ATTENTION SUBR -_ 

2046 4BCF FILE 345 TGRO=PO RESET CONTROL 

2048 4ECF FILE 346 F3O=P0 RESET BUSS 

204A 2D15 FILE 347 P1=0$K10 

204C 43DF FILE 348 TGR0=P1 RAISE CONTROL 

204E 2D45 FILE 349 P1=C$K40 RO BIT 5 

2050 4EDF FILE 350 FB0=P1 RAISE RD BIT,RST GATED ATTN 

2052 2D07 FILE 351 RSTMOD P1 = 

2054 4BDF FILE 352 TGR0=P1 RESET CONTROL 

2056 4E0F FILE 353 FB0=P1 RESET FILE BUS 

2058 4FDF FILE 354 F0P=P1 RESET FILE OP REG 

2C5A 49DF PRE 355 MS=P1 DESELECT MOD 

205C 128E FILE 356 RTN 

P TIP 3 5 ~T "^ 3^C 3^C 3$C 9|C 3^C 3§C 3$C 3$C 3^C "3$C 3^C ^C 3^C 9$C 3$C 3^C 2^C 9^C 3$C ^C 3^ 3^C 9$C 3$C 3^C 3$C 9$e 3^C 3|C 3^C 3$C 3$C 3^C 3^C 3^C 3$C 3$C 3$C 3$C 3^C 3^C 9$C S^C ^}C 3$e '3^C 9$^ ^^ ^*> ^$^ ^^ ^(^ ^^ ^^ ^$^ -^^ ^^ ^> ^> ^** 4^ ^r^ "^ ^$"> ^i^ -^^ ^4^ 3$C 3$C 3$C 3^C 

FILE 35 8 * * ** 

FILE 359 * * ZERO SENSE BYTES - SUBROUTINE ** 

PILE 360 * * ** 

PILE 361 * ******************#**#*************#*********#**** 

2EEC 4C52 FILE 362 ZROSEN RDH P DC,9A P=0000 

2EEE 7C62 FILE 363 STH P DA,9C ZERO SENSE BYTES 2,3 

2EF0 5CC4 PILE 364 P=P+1 P=000l 

2FF2 7C52 FILE 365 STH P DA,9A ZERO SENSE. BYTES 0,1 

2EF4 128E FILE 366 RTN 

3fe S^C ^sftC Tj^C 1^ 3|^ 3&C 3§C 3& 3^C 3^C 3^C 3fe 3^6 3^C 3$C 3& 5&C 3^C 3lc "3§C S^C S|K 9&C 3$C 9&C 3$C 3^C 3$C 3$C 3$C 3$C 3^C 3^> 

* CROSS REFERENCE FOR CSECT FILE * 

$$$$# jfcsgcjfcjfc #>}C#^ $$3gC2$C $$$&$$$$ $$$$&$$$$ 

FILE 015 

FILE 045 FILE 062 



FILE 


008 


DCLA 


125 






FILE 


019 


FILE 


Oil 






FILE 


026 


F ILE 


012 


FRF 


013 


FILE 


027 


FILE 


021 


FILE 


03 3 


FILE 


031 


FILE 


010 






FILE 


040 


FILE 


027 


FILE 


034 


FILE 


042 


FILE 


029 






FILE 


043 


FILE 


035 






FILE 


048 


FILE 


043 






FILE 


051 


FILE 


049 






FILE 


053 


FILE 


036 






FILE 


060 


F ILE 


057 






FILE 


063 


FILE 


060 






FILE 


70 


FILE 


066 






FILE 


076 


FILE 


037 


FILE 


039 


FILE 


080 


FILE 


089 


FILE 


23 3 


FILE 


082 


FILE 


078 







FILE 064 FILE 068 FILE 074 



********************************** 

* CROSS REFERENCE FOR CSECT FILE * 
********************************** 



CL0AD=*E6G, EC LEVEL=128266 PAGE 255 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
PILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
PILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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FILF 
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PILE 
FILE 
FINT 
FILE 
FILE 
BSYS 
FILE 
FILE 
FILE 
FILE 
BSYS 
FILE 
FILE 



075 
0S3 
084 
094 
091 
093 
092 
101 
114 
087 
081 

04 2 
110 
125 
112 
130 
134 
13 7 
095 
167 
227 
059 
171 
184 
254 
194 
164 
174 
038 
25^ 
025 
080 
116 
043 

05 8 
295 
324 
319 
044 
109 
085 



FILE 107 
FILE 103 



FILE 118 
FILE 052 



FILE 120 



FILE 170 FILE 176 FILE 200 FILE 255 

FILE 104 

FILE 172 FILE 187 FILE 196 FILE 203 

FILE 138 

FILE 198 FILE 205 FILE 212 FILE 218 FILE 224 

FILE 192 

FILE 0^4 FILE 061 

PILE 260 FILE 266 



FILE 122 FINT 034 

FINT 02 7 

FILF 082 

FILE 297 FILE 299 FILE 301 



FILE 321 

FILE 135 FILE 115 FILE 121 FINT 031 

FILE 099 FILE ill FILE 149 



FINT 033 



FILT DESCRIPTIVE TEXT 



CLQAD=*E60t EC LEVEL=128266 PAGE 256 



ENTRY POINTS 



(0140) 



GETfiP 



MCHCHK 



THIS IS THE ASSIGNED ADDRESS FOR TRAP ENTRY 
THE OPERATION BRANCHES ON THE CHAINING, 
STATUS MODIFIER, AND UNUSUAL CONDITION 
INDICATORS. THE ROUTINE EITHER READS IN 
THE NEXT CCW OR BRANCHES TO THE ENDING 
SEQUENCE. 

THIS IS THE NORMAL ENTRY FOR THE INITIAL 
SEQUENCE TO OBTAIN THE FIRST CCW. THE CCW 
IS TESTED FOR VALID FLAGS AND COUNT BEFORE 
BRANCHING FOR A COMMAND DECODE. 

THIS IS A RETURN ENTRY TO THE ROUTINE USED 
AFTER BRANCHING TO THE MACHINE CHECK TRAP 
ROUTINE. 



WRAP 



IPL 



SELSTA 



THIS ENTRY IS FROM THE BWRP ROUTINE TO SET 
THE PROGRAM CHECK STATUS BIT. 

THIS ENTRY IS MADE DURING THE IPL OPERATION. 
THE OPERATION LOOPS ON THE FIRST COMMAND 
UNTIL THE DE TRAP FOR THE RECALIBRATE CLEARS 
THE LOOP CONDITION. THE OPERATION CONTINUES 
WITH THE READ DATA SEQUENCE FOR THE INITIAL 
24 BYTES. 

THIS ENTRY IS USED TO SET THE EQUIPMENT 
SENSE BIT WHEN AN OP REGISTER FAILURE IS 
DETECTED. 



PTRCHK THIS ENTRY IS FROM THE BWRP ROUTINE TO SET 
THE PROTECTION CHECK STATUS BIT. 



A DDR 


WORD 


SEQUENCE NO. 


LABEL 




NEXTSEQ 


NEXTLABEL 


STATEMENT 






FILT 


00 1 


T 










2311 FEATURE 






FILT 


002 


AT ABLE 


ADDR=0140 








0140 


2222 


PILT 


004 












LINK V MMSK1=1 


0142 


8D87 


FILT 
FILT 


018 

024 


FILE 

AEND 




02 5 


TRAP 


N 


N=FFI BITS23 


030C 


96A2 


F ILT 


02 5 


TRAP 





086 


NOTCHN 




BR 


0302 


96A2 


FILT 


026 


TRAP 


1 


086 


NOTCHN 




BR 


03C4 


830A 


FILT 


027 


TRAP 


2 


030 


FRSTBT 




BR 


030 6 


2F7B 


FILT 


028 


TRAP 


3 








H1=H1+K07 


0308 


5EE4 


FILT 


029 












H=H + 1 


030A 


1D0C 


FILT 


030 


FRSTBT 










RST FIA K=30 


030C 


5CF8 


FILT 


031 












RDH P H + 2 


030 E 


A967 


F ILT 


032 






079 


PROCHK 


N 


BR IF P1=NZ 


0310 


0C8B 


FILT 


033 












Z=P0<K08 


0312 


F0A2 


F ILT 


034 






042 


NOTTIC 




BR IF LZNZ 


0314 


5EF0 


F ILT 


035 












RDH H H+0 


0316 


CF83 


FILT 


036 












Z=H1*-K08 


0318 


FODE 


FILT 


037 






07 8 


TICCHK 




BR IF LZNZ 


031 A 


5CF8 


FILT 


03 8 


GETOP 










RDH P H + 2 


03 1C 


A 967 


FILT 


039 






079 


PROCHK 


N 


BR IF P1=NZ 


03 IE 


0C8B 


FILT 


040 












Z=P0<K08 


0320 


C4E1 


FILT 


041 






079 


PROCHK 





BR IF Z=0 


0322 


CDA9 


FILT 


042 


MOTTIC 




045 


COBR 




BR IF FFI0=1 


0324 


4FCF 


FILT 


043 












FOP=PO 


0326 


F0E1 


F ILT 


044 






079 


PROCHK 





BR IF LZ=0 


0328 


5AF8 


F ILT 


045 


COBR 










RDH T H+2 


032 A 


5CF8 


FILT 


046 












RDH P H+2 



COMMENTS 
TRAP ROUTINE FOR FILES 

SET FILE PRIORITY-STORE BACK UP 



UNUSUAL CONDITION OR NO CHAINING 

STAT MOD AND UNUS COND OR NO CHN 

CMMD OR DATA CHAIN-NO UNUS COND 

STATUS MOD AND CMND OR DATA CHN 

ADD 8 TO CCW ADDRESS 

RESET THE TRAP LATCH 

GET CCW BYTES 0£1 

BR IF 2ND BYTE INVALID 

MASK FOR TIC 

BR IF NOT TIC 

GET NEW CCW ADDRESS 

MASK FOR DOUBLE WORD BOUNDRY 

BR IF INVALID ADDRESS 

GET OP 



BR IF DATA CHAIN 

LOAD THE OP REG 

3R IF INVALID OP 

GET DATA ADDR FROM CCW 



AODR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CLOAD=*E60, 

COMMENTS 
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032C 


58F8 


FILT 


04 7 










RDH I H+2 


032E 


0C83 


F ILT 


048 










Z=P0*-K08 


0330 


F0E4 


FILT 


049 






081 


BUGBUG 


BR IF LZNZ 


0332 


4886 


FILT 


050 










1 = 1 


03 34 


C4E5 


FILT 


051 






081 


BUGBUG 


BR IF Z=0 


0336 


7E42 


FILT 


052 










STH H DA, 98 


0338 


FC3E 


PILT 


053 






05 7 


SKOFF 


BR IF PO BIT3=0 


033A 


FBBF 


F ILT 


054 






057 


SKOFF 


BR IF F0P7=1 


033C 


2A07 


FILT 

FILT 


055 

056 


* 








T0=0 


03 3 E 


COED 


FILT 


057 


SKOFF 




061 


DATCHN 


BR IF FFI0=1 


0340 


4DCF 


FILT 


058 










FFO=P0 


0342 


5C52 


PILT 


059 










RDH P DA,9A 


0344 


BB9D 


P ILT 


060 




FILX 


00 7 


DECODE N 


N=FOPL 


036C 


4DCF 


FILT 


061 


DATCHN 








FFO=PO 


036E 


2C07 


FILT 


06 2 










P0 = 


0370 


2D3 5 


FTLT 


063 










P1=0$K30 


0372 


3043 


PILT 


064 










P1=P1$K04 


0374 


5ECC 


PILT 


065 










RDH H AS,P+0 


0376 


8SA3 


FIL T 


066 






067 


CDRTN N 


N=FOP BITS67 


0120 


9 85 2 


FILT 


067 


CDRTN 


FILX 


261 


LASTST 


BR 


0122 


8132 


FILT 


068 


CDRTN 


1 


076 


RDWR 


BR 


0124 


8132 


FILT 


069 


CDRTN 


2 


076 


ROWR 


BR 


0126 


FFAF 


PILT 


07 C 


:drtn 


3 


074 


TST5 


BR IF FOP3=0 


0128 


OBAO 


PILT 


071 






06 7 


CDRTN 


BR IF F0P5=0 


012A 


5C5 2 


FILT 


072 










RDH P DA,9A 


012C 


860E 


FILT 


073 




FILX 


09 7 


FMRETN 


BR 


012E 


DBAO 


FILT 


074 


TST5 




06 7 


CDRTN 


BR IF FOP5=0 


0130 


CBAO 


F ILT 


075 






06 7 


CDRTN 


BR IF FOP4=0 


013? 


5E42 


PILT 


076 


RDWR 








RDH H DA, 98 


0134 


8600 


FILT' 


07 7 




FILX 


213 


CDEND 


BR 


035E 


5E42 


FILT 


078 


TICCHK 








RDH H DA, 98 


0360 


3F73 


FILT 


079 


PROCHK 









H1=H1$K07 


0362 


5EE4 


FILT 


080 










H=H+1 


0364 


7E42 


F ILT 


081 


BUGBUG 








STH H DA, 98 


0366 


2F25 


FILT 


082 










H1=0$K20 


03 6 8 


2 EC 7 


FILT 


083 










H0=0 


036A 


92 B A 


FILT 
FILT 


084 
085 


ASEQ 


FILX 
AL07=22 


439 


ZR0SN2 


BR 


16A2 


50FF 


FILT 


08 6 


NOTCH N 








H1=TGRI 


16A4 


0F83 


PILT 


08 7 










Z=H1*-K08 


16A6 


• EOBD 


FILT 


088 






09 9 


NOCPUE 


BR IF LZ=0 


16A8 


DB2E 


FILT 


089 






09 2 


TSTPRT 


BR IF HI BIT5=0 


16AA 


8220 


PILT 


090 




BMCK 


00 3 


TRAPWD 


BR 


16 AC 


2F43 


FILT 


091 


MCHCHK 








H1=0$K04 


16AE 


EB32 - 


p ILT 


092 


TSTPRT 




094 


TSTWRP 


BR IF HI BIT6=0 


16B0 


2F15 


PILT 


093 


PRTCHK 








H1=0$K10 


16B2 


FB36 


FILT 


094 


TSTWRP 




096 


RSTBC 


BR IF HI B1T7=0 


16B4 


2F25 


FILT 


095 


WRAP 








H1=0$K20 


16B6 


0680 


FILT 


096 


RSTBC 








RST BC K=08 


16B8 


2EC3 


PILT 


097 


DEVSTA 








H0=O$K0C 



GET CCW BYTES 
MASK FOR VALID 
BR ON INVALID 
TEST FOR VALID 
BR IF INVALID 
SAVE CCW ADDR 
TEST FOR SKIP 
SKIP THE SKIP 
ZERO UPPER OAT 
MEMORY WRAP I 
BR IF DATA CHA 
SET CCW FLAGS 
GET PREVIOUS 
BR TO DECODE T 
SET FLAGS IN H 
SET 
AUX ADD 
0034 
GET ADDR OF NE 



6£7 

FLAG 
FLAG BITS 567 

CCW COUNT 
COUNT OF 0000 



NZ 



BIT OFF 

BIT ON WRITE OP 

A ADDR TO PREVENT 

F SKIP BIT IS ON 

IN 

IN HARDWARE 

P AND FILE MASK 

HE OP 

DWR 

RESS 

XT BYTE-SK SNS DC 



SENSE OP TEST FOR LAST BYTE 



CTL OP-BR IF SEEK 
BR IF SEEK 
GET FILE MASK 
RETURN TO SET 



GET CCW ADDR 



BYTE 

FILE MASK 



GET CCW ADR 

OR IN CCW BITS TO UPDATE ADDR 

CCW ADDR UPDATE COMPLETE 

SAVE THE CCW ADDRESS 

SET PROGRAM CHECK FOR STATUS 

ZERO DEVICE STATUS 



GET CPU DETECT 
CHK FOR CPU DE 
BR IF NO CPU D 
BR IF NOT MACH 
STORE LOG 
SET CHAN CTL C 
BR IF NOT ST OR 
SET PROTECTION 
BR IF NOT ST OR 
SET PROGRAM CH 
RST CPU ERROR 
SET CE+DE FOR 



ED ERRORS 

TECTED FILE ERROR 

ETECTED FILE ERROR 

INE CHECK 

UT AND RETURN 

HK FOR STATUS 

AGE PROTECT 

CHK FOR STATUS 
AGE WRAP 
K FOR STATUS 
LATCHES FOR FILE 
STATUS 



ADDR 


WORD 


SEOUENC 


E NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


16BA 


977E 


FILT 


09 8 




196 


TSTSM 


BR 


16BC 


2F07 


FILT 


099 


NOCPUE 






H1 = 


16BE 


C188 


FILT 


100 




097 


DEVSTA 


BR IF DAS 14=0 


16C0 


E5FE 


FILT 


101 




132 


NOT GAT 


BR IF 0ASI2=0 


16C2 


2045 


FILT 


102 








P1=0$K40 


16C4 


4E0F 


FILT 


103 








FB0=P1 


16C6 


2E15 


FILT 


10 4 








H0=0$K10 


16C8 


4BEF 


FILT 


105 








TGRO=H0 


16CA 


2E43 


FILT 


106 








H0=0$K04 


16CC 


4BFF 


F ILT 


107 








TGR0=H1 


16CE 


1D0C 


FILT 


10 8 








RST FIA K=80 


1600 


4EEF 


FILT 


109 








FBO=H0 


16D2 


FRD6 


FILT 


110 




112 


TSTBA 


BR IF F0P7=0 


1604 


973C 


FILT 


111 




163 


INSERT 


BR 


16D6 


C3F0 


FILT 


112 


TSTBA 


131 


RTNWD 


BR IF BA4=1 


1608 


FD5<? 


F ILT 


113 


I PL 


113 


I PL 


BR IF PI BIT3=1 


160A 


92F6 


FILT 


114 




FILX 471 


EXAMIN 


BR 


16DC 


6EE6 


p ILT 


115 


GOCAT 






H = H-2 


16DE 


6EE6 


FILT 


116 








H = H-2 


16E0 


5CF8 


FILT 


117 








ROH P H + 2 


16E2 


40CF 


FILT 


118 








FFO=P0 


16E4 


2C63 


FILT 


119 








P0=0$KC6 


16E6 


4FCF 


FILT 


120 








FOP=PO 


16 E 8 


5C52 


F ILT 


121 








ROH P DA, 9 A 


16EA 


2 CO 7 


FILT 


122 








P0=0 


16EC 


F8FC 


F ILT 


12 3 


WTEIND 


123 


WTEIND 


BR IF FGA7=0 


16EE 


7C5 2 


FILT 


124 








STH P DA,9A 


16F0 


CE04 


FILT 


125 








RST FIB K=20 


16F2 


3 000 


FILT 


126 








SET FIA K=8Q 


16F4 


2C15 


FILT 


127 








PO=0$K10 


16F6 


4BCF 


FILT 


128 








TGR0=P0 


16F8 


6EE4 


FILT 


129 








H=H+2 


16FA 


C3FB 


FILT 


130 


WTEBA 


130 


WTEBA 


BR IF BA4=1 


16FC 


22 2 


FILT 


131 


RTNWD 






RTN V MMSK1=0 


16FE 


CA86 


p ILT 


132 


^OTGAT 


13 6 


TSTTC 


BP IF DS4=0 


1700 


0F87 


FILT 


133 




136 


TSTTC 


BR IF F0P1=1 


1702 


4BFF 


F R T" 


134 








TGR0=H1 


1704 


870E 


*=ILT 


135 




FILX 321 


TRPRTN 


BR 


1706 


5A0F 


FILT 


136 


TSTTC 






P1=TC 


1708 


C4C0 


FIL T 


137 




16 5 


ERRTST 


BR IF ZNZ 


170A 


5C62 


FILT 


138 








ROH P DA,9C 


170C 


C*9F 


F ILT 


139 




148 


SWITHD 


BR IF DS4=1 


170E 


C5C0 


F ILT 


140 




165 


ERRTST 


BR IF 0ASI0=0 


1710 


5BCF 


FILT 


141 








PO=SDI 


1712 


6CD1 


FILT 


142 








P0=P0<P1 


1714 


F098 


FILT 


143 




145 


NOCOMP 


BR IF LZNZ 


1716 


928C 


F ILT 


144 




FILX 416 


SETCTL 


BR 


1718 


2D07 


FILT 


145 


NOCOMP 






P1=0 


171A 


2C13 


FILT 


146 


SKCHK 






P0=Q$K01 


171C 


976E 


FILT 


147 




188 


CHANZ 


BR 


171E 


5E52 


FILT 


148 


SWITHD 






RDH H 0A,9A 



CLOAD=*E60, 
COMMENTS 
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BR IF NO UNUSU 
BR IF NOT SEL 
SET READ GATE 
PUT RD GATE ON 
SET CTL TAG 81 
ISSUE CTL PULS 
SET SELECT HEA 
RESET TAGS 
RESET TRAP LAT 
PUT HO SEL ON 
BR IF FROM I PL 
GO TEST FOR SE 
BR IF IPL LATC 
WAIT FOR OEVIC 
GO TEST FOR WH 
DECREMENT CCW 

TO FLA 
GET FLAGS 
SET FLAGS IN F 
SET READ DATA 
SET READ DATA 
GET PREVIOUS 
SET PREV OP 
WAIT FOR INDEX 
STORE PREVIOUS 
COLD START RES 
ISSUE GO PULSE 
SET CONTROL BI 
SET CTL TAG 
RESTORE CCW AD 
IF IPL LATCH 
RETURN FROM TR 
BR IF NOT TRAP 
BR IF MULTI-TR 
RESET TAG REG 



AL CONDITIONS 
GATED ATTENTION 
BIT 

BUSS TO FILE 
T 
E 
D BIT 

CH 
BUSS 

EK INCOMPLETE 

H IS ON 

E END FROM RECAL 

OLESOME RECAL 

ADDR 

G BYTE 

LAG REG 

BITS 

IN OP REG 

P INO 



OP 
ET 



DR 

N WAIT HERE 

AP 

GATE 
ACK BIT ON 



GET TERMINATING CONDITIONS 
BR IF ANY ERRORS 
GET BUFFERED SEEK DATA 
BR IF HEAD SWITCH TIME 
BR IF NOT COMPARE HA 
GET HA FROM READ BUFFER 
COMPARE HEAD NUMBERS 
BR IF AT WRONG HEAD 

ZERO SENSE BYTE 1 

SET SEEK CHK FOR SENSE 

GET FILE MASK ALG 



















CL0AD=*E60, EC LEVE 


AOOR 


WORD 


SEOHENC 


:e no. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


COMMENTS 


1720 


EB31 


FILT 


149 




157 


FIPRO 


BR IF HI BIT6=1 


BR IF FILE PROTECTED 


172 2 


C.D32 


FRT 


150 




158 


NOSEEK 


BR IF PI BITO=0 


BR IF NO PREV SEEK 


1724 


201B 


<=ILT 


151 








P1=P1+K01 


ADD 1 TO HEAD NUMBER 


1726 


7C62 


p ILT 


152 








STH P 0A,9C 


STORE NEW HD 


1728 


5 OF 9 


FILT 


153 








H1 = P1 




172A 


OOAB 


HLT 


154 








Z = PKKOA 


MASK FOR HD 10 


172C 


FOB 5 


FILT 


155 




159 


HDSEOC 


BR IF LZ=0 


BR IF END OF CYL-HD 1G 


172E 


9254 


F ILT 


156 




FILX 388 


GETCYL 


BR 




1730 


8 76 A 


FILT 


157 


FIPRO 


FILX 361 


PROTEC 


BR 




1732 


859A 


FILT 


158 


MOSEEK 


FILX 162 


INVSEQ 


BR 




1734 


2D2 5 


F ILT 


159 


HDSEOC 






P1=0$K20 


SET END OF CYL FOR SENSE 


1736 


2C07 


FILT 


160 








P0 = 


ZERO SENSE BYTE 


1738 


2P07 


FILT 


161 








H1 = 


ZERO CHAN STATUS 


173A 


976 E 


FILT 


162 




188 


CHANZ 


BR 




173C 


FAC1 


FILT 


163 


INSERT 


165 


ERRTST 


BR IF OS 8IT7=1 


TEST FOR SEEK INCOMPLETE 


173E 


8640 


FILT 


164 




FILX 122 


NTORST 


BR 


OBTAIN NEXT CCW 


1740 


2D07 


FILT 


165 


ERRTST 






P1 = 




1742 


2C45 


*=ILT 


166 








P0=0tK40 


PRESET INTERVENTION REO SNS 


1744 


DEEE 


FILT 


167 




188 


CHANZ 


BR IF DS1=0 


8R IF NOT READY 


1746 


2E85 


FILT 


168 








H0=0$K80 


PRESET UNSAFE SENSE 


1748 


EEDD 


F ILT 


169 




179 


EQUCHK 


BR IF DS2=1 


BR IF UNSAFE 


174A 


FA98 


FILT 


170 




146 


SKCHK 


BR IF DS7=1 


BR IF SEEK CHECK 


174C 


5ACF 


F ILT 


171 








P0=TC 


GET TERMINATING CONDITIONS 


174E 


C4E0 


C ILT 


17 2 




181 


SETSNS 


BR IF ZNZ 


BR IF ANY ERRORS 


1750 


7C62 


PILT 


173 








STH P 0A,9C 


STORE SNS BYTE 2 


1752 


2 EC 3 


F ILT 


174 








H0=0$K0C 


SET CE+OE FOR STATUS 


17 54 


D8F9 


FILT 


175 




19 3 


SETUEX 


BR IF FGA5=1 


BR IF UNIT EXCEPTION 


1756 


C8FB 


F ILT 


176 




194 


STR9A 


BR IF FGA4=1 


BR IF ICL 


1758 


2007 


FILT 


17 7 


SELSTA 






P1=0 




175A 


2E15 


FILT 


178 








H0=0$K10 


SET U SELECTED STATUA FOR SNS 


175C 


2C15 


FILT 


179 


EQUCHK 






P0=0$K10 


SET EQUIPMENT CHF FOR SNS 


175E 


9770 


FILT 


180 




189 


STR9C 


BR 




1760 


5 COB 


FILT 


181 


SETSNS 






Pl=PCH 


SET SENSE BYTE 1 


1762 


1CF5 


FILT 


182 








P0=P0*-KF0 


STRIP EXTRA BITS FROM SNS BYTE 


1764 


FD6 8 


FRT 


18 3 




185 


TSTMAM 


BR IF PI BIT2=0 


BR IF NOT NO REC FOUND 


1766 


3083 


FILT 


184 








P1=P1$K08 


SET NO REC FOUND SENSE 


1768 


F06C 


FILT 


185 


TSTMAM 


187 


STRIP 


BR IF PI BIT3=0 


BR IF NOT MISSING ADDR MARK 


17 6 A 


3023 


FRT 


186 








P1=P1$K02 


SET MISS AM FOR SENSE 


176C 


103 5 


FILT 


187 


STRIP 






P1=P1*-K30 


STRIP EXTRA BITS FROM SNS BYTE 


176E 


2E0 7 


FILT 


188 


CHANZ 






H0=0 


ZERO SNS BTTE 2SXHAN STATUS 


1770 


7E6 2 


FILT 


189 


STR9C 






STH H DA,9C 


STORE SNS BYTE 2 


1772 


2EE3 


FILT 


190 








H0=0$K0E 


SET CE+DE+UC FOR STATUS 


1774 


3C25 


FILT 


191 








P0=P0$K20 


SET CONTINGENT CONNECTION BIT 


1776 


D8FA 


FILT 


192 




19 4 


STR9A 


BR IF FGA5=0 


BR IF NO UNIT EXCEPTION 


1778 


3E13 


FILT 


193 


SETUEX 






H0=H0$K01 


SET UNIT EXCEPTION IN STATUS 


177A 


7C52 


FILT 


194 


STR9A 






STH P DA,9A 


STORE SNS BYTES O&l 


17 7C 


2F07 


FILT 


195 








H1 = 


ZERO CHAN STATUS 


177E 


F08 2 


FILT 


196 


TSTSM 


198 


TSTPCI 


BR IF FFI3=0 


8R IF MO STATUS MOD 


1780 


3E45 


FILT 


197 








H0=H0$K40 


SET STAT MOD STATUS 


1782 


C986 


FILT 


198 


T ST PC I 


200 


RSTTRP 


BR IF FFI4=0 


BR IF NOT PCI 


1784 


3F85 


FILT 


199 








H1=H1$K80 


SET PCI IN STATUS 



PAGE 259 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CLOAD=*E60, 
COMMENTS 



EC LEVEL=128266 PAGE 260 



1786 


1D04 


FILT 


200 


RSTTRP 






RST FIA K-AO 


1783 


C891 


F ILT 


201 




20 5 


SETICL 


BR IF FGA4=1 


178A 


F993 


FILT 


20 2 




206 


ZERT 


BR IF FFI7=1 


178C 


4886 


FILT 


20 3 








1 = 1 


178E 


C493 


FILT 


20 4 




206 


ZERT 


BR IF Z=0 


1790 


3F45 


FILT 


20 5 


SETICL 






H1=H1$K40 


1792 


2A0 7 


FILT 


20 6 


ZERT 






T0=0 


1794 


CF85 


F ILT 


20 7 








Z=H1*-K80 


1796 


C49A 


FILT 


208 




210 


SETAUX 


BR IF ZNZ 


1798 


EA24 


f ILT 


209 




215 


PASS 


BR IF HC BIT6=0 


179 A 


2 843 


FILT 


210 


SETAUX 






T1=0$K04 


179C 


3815 


FILT 


211 








T1=T1$K10 


179E 


5C42 


FILT 


212 








RDH P DA, 98 


17A0 


7EA8 


FILT 


213 








STH H AS,T+2 


17A2 


7CA0 


FILT 


214 








STH P AS,T+0 


17A4 


92BE 


FILT 
FILT 


215 
216 


PASS 

AEND 


FILX 441 


CHNEND 


BR 



RESET PCI AND TRAP LATCHES 

BR IF INCORRECT LENGTH 

BR IF SLI 

TEST FOR CCW COUNT 

BR IF LENGTH OK 

SET ICL FOR STATUS 

TEST FOR CHNL STATUS. ZAP PCI BIT 

BR IF HAD ERROR 

BR IF NO UNIT CHECK 

SET AUX ADDR 0014 T/ 

ADDR CE AID BUFFER 
GET FAILING CCW ADDR+8 
STORE ERROR STATUS IN AUX 0014 
STORE ERROR CCW ADDR IN AUX 0016 



* CROSS REFERENCE FOR CSECT FILT * 



FILT 


025 


FILT 


018 


FILX 


140 


FILT 


30 


FILT 


027 


FILX 


096 FILX 


FILT 


038 


FILF 


244 






FILT 


042 


F ILT 


03 4 






FILT 


045 


FILT 


04 2 






FILT 


057 


FILT 


05 3 


FILT 


054 


FILT 


061 


FILT 


057 






FILT 


067 


FILT 


066 


FILT 


071 FILT 


FILT 


074 


FILT 


070 






FILT 


076 


FILT 


068 


FILT 


06 9 


FILT 


078 


FILT 


03 7 






FILT 


079 


FILT 


032 


FILT 


039 FILT 


FILT 


081 


FILT 


049 


FILT 


051 


FILT 


086 


FILT 


02 5 


FILT 


026 


FILT 


091 


B.MCK 


C67 






FILT 


092 


FILT 


089 






FILT 


093 


BWRP 


05 3 






FILT 


094 


FILT 


092 






FILT 


095 


BWRP 


018 






FILT 


096 


FILT 


09 4 






FILT 


097 


FILT 


100 






FILT 


099 


FILT 


08 8 






FILT 


112 


FILT 


110 






FILT 


113 


FILT 


113 


FILX 


35 6 


FILT 


115 


FILX 


475 






FILT 


123 


FILT 


123 






FILT 


130 


FILT 


130 






FILT 


131 


FILT 


112 






FILT 


132 


FILT 


101 






FILT 


136 


FILT 


132 


FILT 


13 3 


FILT 


145 


FILT 


143 







132 



074 FILT 075 



041 FILT 044 



FILT 


146 


FILT 


170 


FILT 


148 


FILT 


139 


FILT 


157 


FILT 


149 


FILT 


158 


FILT 


150 


FILT 


159 


FILT 


155 


FILT 


163 


FILT 


111 


FILT 


165 


FILT 


137 


FILT 


177 


FILX 


007 


FILT 


179 


FILT 


169 


FILT 


181 


FILT 


172 


FILT 


185 


FILT 


18 3 


FILT 


187 


FILT 


135 


FILT 


188 


FILT 


147 


FILT 


189 


FILT 


180 


FILT 


193 


FILT 


175 


FILT 


194 


FILT 


176 


FILT 


196 


FILT 


09 8 


FILT 


198 


FILT 


196 


FILT 


200 


FILT 


19 3 


FILT 


205 


FILT 


201 


FILT 


206 


FILT 


202 


FILT 


210 


FILT 


20 8 


FILT 


215 


PILT 


20 9 



********************************** 

* CROSS REFERENCE FOR CSECT FILT * 
********************************** 



CL0A0=*E60, EC LEVEL=128266 PAGE 261 



FILT 140 FILT 163 



FILT 162 FILT 167 



FILT 192 



FILT 204 



FILX DESCRIPTIVE TEXT 



CLOAD=*E60, EC LEVEL=128266 PAGE 262 



ENTRY POINTS 



DECODE N 



NTGRST 



INVSEO 



GET8E 



THIS ENTRY IS FROM THE FILT ROUTINE TO 
DECODE THE COMMAND. A SIXTEEN WAY BRANCH 
MAKES THE INITIAL COMMAND SELECTION ON THE 
POUR LOW ORDER BITS. FINAL SELECTION AND 
VERIFICATION OF EACH COMMAND IS MADE BEFORE 
PROCEEDING TO THE EXECUTION SEQUENCE. 

THIS ENTRY PROVIDES A RESET OF THE NTO 
LATCH TO ALLOW ORIENTING THE FILE FOR THE 
NEXT COMMAND. IT IS USED FOLLOWING THE 
OF TESTING FOR A CONTROL COMMAND. 

THIS ENTRY SETS THE INVALID SEQUENCE AND 
COMMAND REJECT SENSE BITS. IT IS USED 
FROM VARIOUS POINTS THAT DETECT COMMAND 
SEQUENCE ERRORS. 

THIS IS AN ENTRY USED TO END THE MICRO- 
ROUTINE FOR THE COMMAND. IF THE OPERATION 
ORIGINALLY ENTERED THE ROUTINE DURING THE 
INITIAL SEQUENCE, THE ACTIVE BIT IS SET 
AND THE OPERATION RETURNED TO ICYCLES. 
WHEN THE ROUTINE IS ENTERED THROUGH THE 
TRAP, THE OPERATION ENOS WITH RETURN FROM 
TRAP. 



PROTEC THIS ENTRY IS USED TO SET THE CONTINGENT 
CONNECTION INDICATOR AND THE FILE PROTECT 
SENSE BIT BEFORE SETTING THE SENSE BYTES 
TO END THE OPERATION. 

GETCYL THIS ENTRY IS USED TO ENTER THE SEEK 
ROUTINE FOR A HEAD ADVANCE DURING A 
MULTIPLE TRACK READ OR SEARCH OPERATION. 

SETCYL THIS ENTRY IS USED TO REINITIATE THE READ 
OR SEARCH OPERATION AFTER TESTING FOR A 
SUCCESSFUL HEAD COMPARE FOLLOWING A 
MULTIPLE TRACK HEAD ADVANCE. 

ZROSN2 THIS IS AN ENTRY INTO THE CHAIN END SEQUENCE 
ROUTINE THAT FIRST RESETS SENSE BYTE 2 
BEFORE ENTERING THE NORMAL ENDING SEQUENCE. 

CHNEND THIS IS THE NORMAL CHAIN END SEQUENCE ENTRY 
USED TO SET THE INTERRUPT BUFFER AND THE 
INTERRUPT LATCH. THE RETURN FROM TRAP 
OCCURS AFTER RESETTING THE FILE CONTROL OP 
AND FLAG REGISTERS. 



TRPRTN THIS ENTRY IS USED TO RESTART A RECALIBRATE 
OR SEEK OPERATION THAT WAS STOPPED BECAUSE 
THE FILE WAS STILL ERASING. THE EXIT WAS 
MADE FROM THE ROUTINE WITHOUT RESETTING THE 
COMMAND DATA. 



ADDR 


WORD 


SEQUENC 


IE NO. 


LABEL 








FILX 


001 


T 








FILX 


00 2 


* 








FILX 


003 


* 








FILX 


004 


* 








FILX 


005 


* 








F ILX 


006 


* 




0680 


9758 


FILX 


007 


DECODE 





0682 


8FFB 


FILX 


008 


DECODE 


1 


0684 


EFB8 


FILX 


009 


DECODE 


2 


0686 


EFE2 


FILX 


010 


DECODE 


3 


0688 


9874 


FILX 


Oil 


DECODE 


4 


068A 


8F9B 


FILX 


012 


DECODE 


5 


068C 


EFCC 


FILX 


013 


DECODE 


6 


068E 


EFE2 


FILX 


014 


DECODE 


7 



NEXTSEQ 



NEXTLABEL STATEMENT 



COMMENTS 



2311 FEATURE COMMAND VERIFICATION AND EXECUTION 
* FILE OP DECODE - COMMON ** 



FILT 



177 


SELSTA 




BR 




197 


ERASE 


N 


N=FOP 


BITS23 


052 


IPLRCT 




BR IF 


FOP2=0 


07 8 


CTLOP 




BR IF 


F0P2=0 


225 


SENSE 




BR 




149 


WRDARO 


N 


N=FOP 


BITS23 


062 


RDDARO 




BR IF 


F0P2=0 


078 


CTLOP 




BR IF 


F0P2=0 



OP REG FAILURE SET EQUIP CHK 

ERASE OR SEARCH ID 

READ I PL OR READ COUNT 

NO OP OR RECALIBRATE 

SENSE OP 

WRITE DATA OR RO 

READ DATA OR RO 

SEEK OR RESTORE 



A DDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E60, 

COMMENTS 



EC LEVEL=128266 PAGE 263 



0690 


85AC 


FILX 


015 


DECODE 8 


171 


INVCMN 




BR 




INVALID CMND 


0692 


8FBB 


FILX 


016 


DECODE 9 


165 


WRHA 


N 


N = FOP BITS23 




WRITE HA OR SEARCH KEY 


0694 


EPC8 


FILX 


017 


DECODE A 


060 


ROHA 




BR IF FOP2=0 




READ HA 


0696 


FFE2 


FILX 


018 


DECODE B 


07 8 


CTLOP 




BR IF F0P2=0 




SEEK CYL OR SEEK HD 


0698 


85AC 


FILX 


019 


DECODE C 


171 


INVCMN 




BR 




INVALID CMND 


069A 


BFDB 


FILX 


020 


DECODE D 


181 


WRKD 


N 


N=F0P BITS23 




WRITE KEY SDATA OR SCAN 


069C 


FF06 


FILX 


021 


DECODE E 


067 


R DC KO 




BR IF F0P2=C 




READ COUNT KEY DATA 


069E 


EF91 


FILX 


02 2 


DECODE F 


015 


DECODE 


8 


BR IF F0P2=1 




SET FILE MASK OR SPACE COUNT 


06A0 


D«=91 


FILX 


023 




015 


DECODE 


8 


BR IF F0P1=1 




BR IF INVALID COMMAND 


06A2 


5E32 


<=ILX 


024 










RDH H DA,8E 




GET STATS 


06A4 


FFF6 


F ILX 


025 




029 


SPACE 




BR IF FOP3=0 




BR IF SPACE COUNT OP 


06A6 


3E0O 


FILX 


026 










SET FIB K=BO 




SET NON TIME ORIENTED 


06A8 


CD2C 


FILX 


027 




041 


RMVSIO 




BR IF PI BITO= 


=0 


BR IF SET FILE MASK ALLOWED 


06AA 


859A 


PILX 


028 


SEQ 


162 


INVSEQ 




BR 






06F6 


DE2D 


FILX 


029 


SPACE 


041 


RMVSIO 




BR IF HO BIT1= 


= 1 


BR IF FIRST OP IN CHAIH 


06F8 


F5AB 


FILX 


030 




02 8 


SEQ 




BR IF DA SI 3=1 




BR IF ERASE GATE ON 


06FA 


EC31 


FILX 


03 1 




043 


PIND 




BR IF PO BIT2= 


= 1 


BR IF CHND FRM SNS,CTL 


06FC 


2C3 3 


FILX 


032 










P0=Q$KC3 






06FE 


4FCF 


PILX 


033 










FOP=PO 




STRIP KEYSDATA BITS FROM OP REG 


0700 


5 ODD 


FILX 


34 










P1=P1L 




SAVE SEEK MASK 


0702 


3DB5 


FILX 


035 










P1=P1$KB0 




SET MASK TO INH ALL WRITES 


0704 


5E42 


FILX 


036 










RDH H DA, 98 




GET CCW ADDR 


0706 


3E00 


FILX 


03 7 










SET FIB K=80 




SET NOT TIME ORIENTED 


0708 


GEO 4 


FILX 


038 










RST FIB K=20 




ISSUE COLD START RESET 


070A 


2C45 


FILX 


039 










PO=0$K40 




SET SCAN COUNT PREVIOUS OP 


070C 


85F? 


FILX 


040 




20 6 


DATAOP 




8R 




BR TO GIVE GO PULSE 


06AC 


1E4 5 


FILX 


041 


RMVSIO 








H0=H0*-K40 




STRIP CAME FROM SIO STAT 


06AE 


7E32 


PILX 


042 




9 






STH H DA t 8E 




STORE STATS 


06B0 


2C07 


FILX 


043 


PIND 








P0=0 




SET PREVIOUS OP 


0682 


FFE7 


F ILX 


044 




08 9 


SETFM 




BR IF F0P3=1 




BR IF SET FILE MASK OP 


06B4 


FRR4 


FILX 


045 


SCINDX 


045 


SCINDX 




BR IF FGA7=Q 




WAIT FOR INDEX 


06B6 


8632 


FILX 


046 




115 


STRFM 




BR 




GO STORE PREV OP AND END 






FILX 


04 7 


* 


******** ** ** *******#****************************** ****** *************** 






FILX 


048 


* 


* 










** 






FILX 


049 


* 


* 






I PL OR READ COUNT 


** 






FILX 


050 


* 


* 










** 






F ILX 


05 1 


* 


************ ************************************************ *********** 


06B8 


FFDB 


FILX 


052 


IPLRCT 


06 9 


RDCTSP 




BR IF F0P3=1 




BR IF READ COUNT OP 


06BA 


DF91 


F ILX 


053 




015 


DECODE 


8 


BR IF F0P1=1 




BR IF INVALID CMND 


06BC 


CDU 


FILX 


054 




015 


DECODE 


8 


BR IF PI BIT0= 


= 1 


BR IF PREVIOUS SET FILE MASK I PL 


06BE 


3 ECO 


FILX 


055 










SET FIB K=80 




SET NON TIME ORIENTED 


06C0 


F5C1 


FILX 


056 


I PLRD 


056 


IPLRD 




8R IF DASI3=1 




BR IF ERASE GATE ON 


06C2 


2C65 


FILX 


057 










P0=0$K60 




TURN ON CC AND SLI BITS 


06C4 


4DCF 


FILX 


05 8 










FFG=PO 




SET CNND CHN IN FLAG REG 


06C6 


8 72 A 


FILX 


059 




341 


RECAL 




BR 




GO EXECUTE RECALIBRATE 


06C8 


FF90 


FILX 


060 


ROHA 


015 


DECODE 


8 


BR IF F0P3=0 




BR IF INVALID CMND 


06CA 


85F0 


FILX 


061 


SETPO 


20 5 


RSPOGO 




BR 






06CC 


E851 


F ILX 


062 


RDDARO 


064 


SMTST 




BR IF PC BIT6; 


= 1 


BR IF PREVIOUS SEARCH 


06CE 


F84A 


FILX 


063 


RDCKDA 


061 


SETPO 




BR IF PO BIT7= 


=0 


BR IF NO PREVIOUS SEARCH 


06D0 


FFCB 


F ILX 


064 


SMTST 


061 


SETPO 




BR IF F0P3=1 




BR IF READ RO OR READ CKD 


06D2 


DICA 


FILX 


065 




061 


SETPO 




BR IF DASI5=0 




BR IF NO STATUS MODIFIER 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


06D4 


8594 


FILX 


066 






159 


SET 04 


BR 


0606 


FFCE 


FILX 


067 


RDCKO 




063 


R DC KD A 


BR IF F0P3=0 


0608 


DC4E 


FILX 


068 






063 


RDCKO A 


BR IF PO BIT1=0 


06 DA 


0C4A 


FILX 


069 


RDCTSP 




061 


SETPO 


BR IF PO BIT1=0 


06DC 


3E00 


FILX 


070 










SET FIB K=80 


06DE 


0E04 


FILX 


071 










RST FIB K=20 


06EC 


8 5F0 


FILX 


072 






20 5 


RSPOGO 


BR 






FILX 


073 


* 


************************************ 






FILX 


074 


* 


* 












FILX 


075 


* 


* 






CONTROL OPS INTO R 






F ILX 


076 


* 


* 












F ILX 


077 


* 


************************************ 


06E2 


0F91 


FILX 


078 


CTLOP 




015 


DECODE 8 


BR IF F0P1=1 


C6E4 


9058 


FILX 


079 






080 


ABCOE 


BR 


1058 


3E00 


FILX 


080 


ABODE 








SET FIB K=80 


105A 


2C25 


FILX 


081 










P0=0$K20 


1C5C 


7C52 


FILX 


082 










STH P DA,9A 


105E 


8714 


FILX 


083 






32 4 


CTLS 


BR 






F ILX 


084 


* 


************ ************************ 






FILX 


085 


* 


* 












FILX 


086 


* 


* 






SET FILE MASK 






FILX 


087 


* 


* 












FILX 


08 8 


* 


************************************ 


06E6 


5 OB 8 


F ILX 


089 


SETFM 








RDB PI T+l 


06E8 


5886 


FILX 


090 










1 = 1-1 


C6EA 


CDEF 


FILX 


091 






09 3 


DCIDEC 


BR IF FFI0=1 


06EC 


860E 


FILX 


092 


IGNRDC 




097 


FMRETN 


BR 


06EE 


C4EC 


F ILX 


093 


OCIDEC 




09 2 


IGNRDC 


BR IF ZNZ 


06F0 


7C52 


FILX 


094 










STH P DA,9A 


06F? 


5E42 


r ILX 


095 


CCWAOR 








RDM H 0A,98 


06F4 


8 30 A 


FILX 


096 




FILT 


030 


FRST8T 


BR 


C60E 


0D8 3 


FILX 


09 7 


FMRETN 








Z=P1*-K08 


0610 


F0O4 


F ILX 


098 






100 


INVFM 


BR IF LZNZ 


0612 


E016 


FILX 


099 






101 


NQNSNS 


BR IF PI BIT2=0 


0614 


9 8A6 


FILX 


100 


INVFM 




300 


CHNSET 


BR 


0616 


3D13 


FILX 


101 


NQNSNS 








P1=P1$K01 


0618 


2C25 


FILX 


10 2 










P0=0*K20 


061A 


C92 


FILX 


1G3 






106 


TSTB3 


BR IF PI BIT4=0 


061C 


F02 6 


FILX 


104 






109 


TSTBO 


BR IF PI BIT3=0 


061E 


3DF3 


FILX 


105 










Pl=Pl$KOF 


0620 


FD2 6 


FILX 


106 


TSTB3 




109 


TSTBO 


BR IF PI BIT3=0 


0622 


3003 


FILX 


10 7 










P1=P1$K0D 


0624 


1D15 


FILX 


10 8 










P1=P1*-K10 


0626 


0D2F 


FILX 


1C9 


TSTBO 




113 


TSTB1 


8R IF PI BIT0=1 


0628 


3085 


FILX 


110 










P1=P1$K80 


062A 


DD32 


FILX 


111 






115 


STRFM 


BR IF PI BIT1=0 


062C 


1DFD 


FILX 


112 










P1 = PKKF0 


062E 


DD33 


F ILX 


113 


TSTB1 




115 


STRFM 


BR IF PI BIT1=1 


0630 


30A5 


FILX 


114 










Pl=Pl$KAO 


0632 


7C52 


FILX 


115 


STRFM 








STH P DA*9A 


0634 


2F45 


FILX 


116 


COMEND 








H1=0$K40 



CLQAD=*E60t 

COMMENTS 



EC LEVEL=128266 PAGE 264 



BR IF READ KEY DATA 
BR IF PREV OP WAS NOT 
BR IF PREV OP WAS NOT 
SET NON TIME ORIENTED 
COLD START RESET 



SP 
SP 



COUNT 
COUNT 



******************************** *** 

** 

ESET) ** 

** 

*********************************** 

BR IF INVALID CMND 

SET NON TIME ORIENTED LATCH 
SET PREV OP IND 
STORE PREV OP 

GET FILE MASK BYTE 
DECREMENT CCW COUNT 
BR IF DATA CHAIN 

CONTINUE WITH SET FILE MASK 
BR IF COUNT NOT ZERO 
SAVE FILE MASK BYTE 
RESTORE CCW ADDRESS IN H 

GET NEXT CCW FOR DATA CHAIN 
TEST FOR VALID MASK LO 
BR IF MASK INVALID 
BR IF VALID MASK HI 

SET NONSENSE STORED BIT 

SET PREVIOUS OP 

BR IF INH ALL$ALLOW ALL SEEKS 

MASK ALLOWS ALL SEEKS TST WRITES 

SET ALG TO INH ALL SEEKS 

BR IF ALLOW ALL SEEKS 

SET ALG TO INH SEEK&SEEK C YL 

REMOVE BIT 3 OF ALGORITHM 

BR IF ALLOW ALLSINH RO-HA-CKO 

SET ALG TO INH SET FILE MASK 

BR IF ALGORITHM COMPLETE 

SETS ALG TO INHIBIT ALL WRITES 

BR IF ALG IS COMPLETE 

SET ALG TO INH WR HA-RO-CKD 

STORE FILE MASK AND PREV OP ALGS 

PRESET INCORRECT LENGTH BIT 



ADDR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CL0AD=*E60t 

COMMENTS 



EC LEVEL= 128266 PAGE 265 



0636 


CDOB 


FILX 


117 




0638 


F9BF 


F ILX 


118 




063A 


4886 


FILX 


119 




063C 


C4DA 


FILX 


120 




06 3 E 


DDD8 


FILX 


121 


CORLEN 


0640 


2E08 


FILX 


122 


N TOR ST 


0642 


0E04 


FILX 


123 


CLORST 


0644 


5E42 


F MX 


124 




0646 


5CF0 


FILX 


125 




0648 


0CC3 


FILX 


126 




064A 


C4D5 


FILX 


127 




06 4C 


0C3B 


FILX 


128 




064E 


FODE 


F ILX 


129 




0650 


DEOE 


F ILX 


130 




0652 


EEDF 


FILX 


131 




0654 


8 30 A 


FILX 


132 


NIXTCCW 


065E 


EDO 7 


F ILX 


133 


NOTREC 


0660 


2F6B 


FILX 


134 




0662 


5 8FS 


FRX 


135 




0664 


7E42 


F ILX 


136 




0666 


2F07 


FILX 


137 




0668 


2F65 


F ILX 


138 




066A 


85BA 


FILX 


139 




0656 


8 08 7 


F ILX 


140 


ADROK 


065 8 


2FC7 


FILX 


141 


CEADE 


065A 


2 EC 3 


C ILX 


142 


STASET 


065C 


928A 


FILX 


143 








FRX 


144 


* 






FILX 


145 


* 






FILX 


146 


* 






P ILX 


147 


# 






FILX 


148 


* 


05 80 


DF88 


FILX 


149 


WRDARO 


0582 


DF8E 


FILX 


150 


WRDARO 1 


0584 


85AC 


F ILX 


151 


WRDARO 2 


0586 


8 5AC 


F ILX 


152 


WRDARO 3 


05 8 8 


2D10 


FRX 


153 


WROATA 


058A 


E833 


FILX 


15* 




058C 


8 59A 


FILX 


155 




053E 


C819 


FILX 


156 


WRROOP 


0590 


FC1A 


FILX 


157 




0592 


0036 


f ILX 


158 


P1TEST 


0594 


2C43 


FILX 


159 


SET04 


0596 


85F2 


FILX 


160 




0598 


0193 


FILX 


161 


TDASI 


059A 


2F15 


FILX 


162 


INVSEQ 


059C 


85B8 


FRX 


163 




059E 


DFD8 


FILX 


164 


WPHAOP 


05A0 


85AC 


FILX 


165 


WRHA 


05A2 


859E 


FILX 


166 


WRHA 1 


05A4 


2C23 


FILX 


167 


WRHA 2 



142 
121 

142 

141 



STASET 
CORLEN 

STASET 

CEADE 



FFI0=1 
FFI7=1 



132 NXTCCW 



FILT 



133 
133 
13 3 

030 
140 



NOT RE C 
NOTREC 
NOTREC 
FRSTBT 
ADROK 



FILT 



178 

025 



SETSEN 
TRAP N 



439 ZR0SN2 
**************** 
* 
* 

* 

153 WRDATA 

156 WRROOP 

171 INVCMN 

171 INVCMN 



BR IF 

BR IF 

1 = 1 

BR IF ZNZ 

BR IF FFI1=0 

SET FIB K=40 

RST FIB K=20 

RDH H DA, 98 

ROH P H 

Z=PO*-KOC 

BR IF Z = 

Z=P0<K03 

BR IF LZNZ 

BR IF DS1=0 

BR IF DS2=1 

BR 

BR IF FFI BIT2=1 

Hl=Hl+K06 

RDH I H+2 

STH H DA, 98 

H1 = 

H0=0$K60 

BR 

N=FFI BITS23 

H1 = 

HO=0$KOC 

BR 

J$J 3$C 3$C Sjt 3j<! 5$C 5^ :3$S J$J SJS 3$C T$C 5?C 3$C 3$C 3$C 

WRITE DATA OR 

£ # *£ £ j£ 5fc # # afc # # sge >fc jfc age afc 

BR IF F0P1=0 



BR IF DATA CHA 
BR IF SLI ON 
TEST FOR CCW C 
BR IF INCORREC 
BR IF NOT COMM 
SER FLAG BITS 
COLD START RES 
GET CCW ADOR 
READ NEXT OP C 
CHECK FOR SENS 
BR IF SENSE OR 
CHECK FOR RECA 
BR IF NOT RECA 
BR IF OFF LINE 
BR IF UNSAFE 
GET NEW CCW 
BR IF NO Error 
CURRENT CCW + 
LOAD NEXT CCW 
STORE UPDATED 
ZERO SENSE BYT 
SET INTV REQ £ 
GO STORE SENSE 
GO CHECK IF UN 
ZERO CHNL STAT 
SET CHAN END A 



IN 

OUNT 
T LEGNTH 
AND CHAIN 
TO ZERO 
ET 

ODE 

E OR TIC 

TIC 
L OR NO-OP 
L OR NO-OP 



CONDITION 
6 

COUNT FIELD INTO I 
CCW ADR 
E 1 

CONTINGENT CONN 

USUAL CONDITION 

US 

NO DEVICE END 



174 
162 
161 
162 

176 

206 

153 

177 
193 
171 
164 



DASI5 

INVSEO 

TDASI 

INVSEQ 

FIPROT 

DATAQP 
P1TEST 

COM RE J 
FLGRST 
INVCMN 
WRHAOP 



BR 

BR 

BR 

SET 

BR 

BR 

BR 

BR 

BR 



IF FOP1=0 



FIA K=01 
IF PO BIT6=1 



IF PO BIT4=1 
IF PO BIT3=0 
IF PI BIT1=0 

P0=0$K04 

BR 

BR IF DASI5=1 

H1=0$K10 

BR 

BR IF F0P1=0 

BR 

BR 

P0=0$K02 



*************************************** 

** 

RO (05 OR 15) ** 

** 
****************** ********************* 

BR IF WRITE DATA OP 

BR IF WRITE RO OP 

INVALID COMMAND DECODED 

INVALID COMMAND DECODED 

SET READ CLOCK CONTROL 

BR IF PREVIOUS SEARCH ID OR KEY 

INVALID SEQUENCE 

BR IF PREVIOUS SEARCH HA 

BR IF NOT PREV WRITE HA 

RR IF FILE PROTECTED 

SET PREVIOUS OP 

BR IF STATUS MODSNOT SHORT SCH 
SET INVALID SEQ BIT FOR SENSE 

BR IF NOT INVALID COMMAND 

WRITE HOME ADDRESS 

PRESET SEARCH KEY ALGORITHM 



ADDR 


WORD 


SEQUFNC 


;e no. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


05A6 


FFEE 


FILX 


168 


WRHA 3 


204 


TSTOP 


BR IF FOP3=0 


05A8 


2C83 


FILX 


169 








P0=0$K08 


05AA 


OFF 2 


FILX 


170 




206 


DATAOP 


BR IF FOPO=0 


05AC 


2F07 


FILX 


171 


I NVCMN 






Hi = 


05AE 


85B8 


F ILX 


172 




177 


COMREJ 


BR 


0580 


F81A 


FILX 


173 


WRKDOP 


162 


INVSEQ 


BR IF PO BIT7=0 


05B2 


D19A 


FILX 


174 


DASI5 


162 


INVSEQ 


BR IF DASI5=0 


C5B4 


FD70 


FILX 


175 




20 5 


RSPOGO 


BR IF PI BIT3=0 


05B6 


2F43 


FILX 


176 


FIPROT 






Hi=0$K04 


05B8 


2EA5 


FILX 


177 


COMREJ 






HO=0$KAO 


05BA 


7E52 


FILX 


178 


SETSEN 






STH H DA,9A 


05BC 


2E2 3 


F ILX 


179 








H0=O$K02 


05BE 


92B8 


FILX 


180 




43 8 


ZROSTA 


BR 


05C0 


DFBO 


F ILX 


181 


WRKD 


173 


WRKDOP 


BR IF F0P1=0 


05C2 


DFC8 


F ILX 


182 


WRKD 1 


185 


WRCKD 


BR IF F0P1=0 


05C4 


EFF1 


FILX 


183 


WRKD 2 


20 5 


RSPOGO 


BR IF F0P2=1 


05C6 


85AC 


F ILX 


184 


WRKD 3 


171 


I NVCMN 


BR 


05C8 


E89B 


FILX 


185 


WRCKD 


162 


INVSEQ 


BR IF FGA6=1 


05CA 


E853 


FILX 


186 




190 


SETCKD 


BR IF PO BIT6=1 


05CC 


D81A 


FILX 


187 




162 


INVSEQ 


BR IF PC BIT5=0 


05CE 


EDI 4 


F ILX 


188 


P2TEST 


159 


SETG4 


BR IF PI BIT2=0 


05 DO 


85B6 


FILX 


189 




176 


FIPROT 


BR 


05D2 


2D10 


F ILX 


190 


SETCKD 






SET FIA K=0i 


05D4 


D1CF 


F ILX 


191 




188 


P2TEST 


BR IF DA SI 5=1 


05D6 


859A 


FILX 


192 




162 


INVSEQ 


BR 


05D8 


2E0 8 


F ILX 


19 3 


FLGRST 






SET FIB K=40 


05DA 


2C15 


FILX 


194 








P0=0$K10 


05DC 


DD73 


FILX 


195 




206 


DATAOP 


BR IF PI BIT1=1 


050E 


8 58 6 


F ILX 


196 




176 


FIPROT 


BR 


05E0 


85AC 


FILX 


197 


ERASE 


171 


INVCMN 


BR 


05E? 


DFC8 


FILX 


198 


ERASE 1 


185 


WRCKD 


BR IF F0P1=0 


05E4 


85AC 


FILX 


199 


ERASE 2 


171 


INVCMN 


BR 


05E6 


DC6C 


FILX 


20 


ERASE 3 


203 


OPSPCT 


BR IF PO BIT1=0 


05E8 


3E00 


FILX 


201 








SET FIB K=80 


05EA 


0F04 


FILX 


202 








RST FIB K=20 


05EC 


2C33 


F ILX 


20 3 


OPSPCT 






P0=Q$KQ3 


05EE 


CFF2 


FILX 


20 4 


TSTOP 


206 


DATAOP 


BR IF FOP0=Q 


05F0 


2C07 


FILX 


2C5 


RSPOGO 






P0=0 


05F2 


D6F7 


FILX 


206 


DATAOP 


20 8 


MMSK1 


BR IF MMSK1=1 


05F4 


221E 


»=ILX 


20 7 








SET MMSK K=71 


05F6 


3D00 


FILX 


20 8 


MMSK1 






SET FIA K=80 


05F8 


7C52 


FILX 


209 


STPO 






STH P PA,9A 


05PA 


?C15 


FILX 


210 








P0=0$K10 


05FC 


4 8CF 


FILX 


211 








TGRO=P0 


05FE 


1D00 


FILX 


212 


GET8E 






RST FIA K=80 


0600 


5C32 


FILX 


213 


CDEND 






RDH P DA,8E 


060? 


D686 


FILX 


214 


TRAPBR 


216 


RTNIC 


BR IF MMSK1=0 


0604 


0222 


FILX 


215 








RTN V MMSK 1=0 


0606 


2C85 


FILX 


216 


RTNIC 






P0=0$K8C 


0608 


7C32 


FILX 


217 








STH P DA,8E 


060 A 


021E 


FILX 


21.8 








RST MMSK K=71 



CL0AD=*E60t 
COMMENTS 



EC LEVEL=128266 PAGE 266 



BR IF SEARCH KEY OP 
PRESET SEARCH HA ALGORITHM 
BR IF SCH HA EQUAL 
ZERO SENSE BYTE I 

BR IF NO PREV SEARCH 

BR IF NO STATUS MOD 

BR IF NO FILE PROTECT 

SET FILE PROTECT FOR SENSE 

SET CMND REJ&CONTINGENT CONN 

STORE SENSE BYTES 0£1 

SET UNIT CHECK FOR STATUS 



SNS 



BR IF WRITE KEY DATA OP 

BR IF WRITE COUNT KEY DATA OP 

BR IF SCAN OP 

BR IF ON DEFECTIVE TRACK 

BR IF PREV SCH ID OR KEY 

BR IF NOT PREV WRITE CKD 

BR IF NOT FILE PROTECT 

SET READ CLOCK CONTROL 

BR IF STATUS MODSNOT SHORT SCH 

RESET FLAG BITS 6,7 
SET WRITE HA ALGORITHM 
BR IF NOT FILE PROTECT 

INVALID COMMAND*** WRITE SPECIAL 

BR IF WRITE COUNT KEY DATA OP 

INVALID COMMAND DECODED 

BR IF PREV OP WAS NOT SP COUNT 

SET NON TIME ORIENTED 

COLD START RESET 

SET SEARCH ID ALGORITHM 

BR IF SEARCH EQUAL 

SET PREVIOUS OP ALG 

BR IF IN FILE TRAP 

TURN MMSK 7 ON TO BLOCK TRAPS 

ISSUE GO PULSE 

STORE PREVIOUS OP ALG 

SET CONTROL BI T 

RAISE CONTROL TAG 

RESET TRAP LATCH 

GET STATS 

BR IF NOT IN FILE TRAP 

RETURN FROM TRAP 

SET ACTIVE STAT 

STORE STATS 

TURN OFF MMSK 7 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


06 OC 


8 IOC 


FILX 


219 








F ILX 


22C 


* 






FRX 


221 


* 






FILX 


222 


* 






FILX 


223 


* 






FILX 


224 


* 


1874 


3E00 


FILX 


225 


SENSE 


1876 


5FFF 


FILX 


226 




1878 


FOOD 


FILX 


227 




187A 


85AC 


FILX 


228 




185C 


1C2 5 


F ILX 


229 


SNSEX 


185E 


7C52 


FILX 


230 




1860 


5E32 


F ILX 


231 


SKSNS 


1862 


1E45 


FILX 


232 




1864 


7E32 


FILX 


233 




18 66 


2E07 


F ILX 


234 




1868 


2F2 5 


F ILX 


23 5 




186A 


3 C 43 


FILX 


236 




186C 


FBAA 


F ILX 


237 




186E 


5DB8 


FILX 


238 


SKRD 


1870 


7DE8 


FILX 


239 




1872 


984E 


F ILX 


240 




182A 


F93 


p ILX 


241 


SNSRD 


182C 


4C5 2 


FILX 


242 




182F 


7C62 


FILX 


243 




1830 


7CE8 


F ILX 


244 


STR01 


18 32 


5C62 


F ILX 


24 5 




1834 


5EDF 


FILX 


246 




1836 


IDA 3 


F ILX 


247 




1838 


DD3C 


F ILX 


248 




183A 


3083 


F ILX 


24 9 




183C 


7CE0 


FILX 


250 


DUMPSN 


183E 


4C52 


F ILX 


251 




184D 


3F15 


FILX 


252 




1842 


7CEA 


F ILX 


253 




1844 


1F1D 


F ILX 


254 


ADRINK 


1846 


FREF 


F ILX 


255 


TSTFOP 


1848 


5DE8 


F ILX 


256 




184A 


D5CF 


F ILX 


257 




184C 


7DR8 


F ILX 


258 




184E 


5886 


F ILX 


25 9 


SKIPON 


18 50 


C4FD 


FILX 


260 




1852 


CB46 


F ILX 


261 


LASTST 


18 54 


1FEB 


FILX 


262 




1856 


FF44 


FILX 


263 




1858 


FBA9 


F ILX 


264 




185A 


8634 


FILX 


265 




182 8 


988E 


F ILX 


26 6 


SKX 


187C 


CDA1 


FILX 


26 7 


TSTCTR 


18 7E 


C806 


FILX 


268 




1880 


FF06 


FILX 


269 





NEXTSEQ NEXTLABEL STATEMENT 



CLOAD = 
COMMENTS 



*E60t EC LEVEL=128266 PAGE 267 



CCOM 155 CCOB BR SET CCO 

* ** 

* SENSE £ SEEK-SENSE COMMON ** 

SET NON TIME ORIENTED 

GET OP 

BR IF VALID OP 

STRIP CONTINGENT CONNECTION BIT 
SAVE ALTERED SENSE 
GET STATS 

REMOVE CAME FROM SIO STAT 
SAVE STATS 
SET 
AUX ADDRESS 
0024 
BR IF SENSE OP 
GET A BYTE OF SEEK DATA 
SAVE BYTE IN AUX 

BR IF SENSE IS STORED 
ZERO SENSE 
BYTES 
STORE SNS BYTES 0S1 IN AUX 
GET SNS BYTE 2 
SET SENSE BYTE 3 
STRIP BITS 4,6 
BR IF NOT ON L INE 
OR IN ON LINE BIT 

ZERO SENSE BYTES 4 AND 5 
SET AUX ADDR 0034 
STORE BYTES 4&5 IN 







SET FIB K=80 








H1=FCP 




229 


SNSEX 


BR IF HZ=0 




171 


INVCMN 


BR 

P0=PC*-K20 
STH P DA,9A 
RDH H DA,8E 
H0=H0*-K40 
STH H DA,8E 
H0=0 

H1=0$K20 
H1=H1$K04 




241 


SNSRD 


BR IF FOP7=0 
RDB PI T+l 
STB PI AS,H+1 




259 


SKIPON 


BR 




244 


STR01 


BR IF PI BIT7= 
RDH P DC,9A 
STH P DA,9C 
STH P AS,H+2 
RDH P DA,9C 
Pl = DS 
P1=P1*-K0A 


=0 


250 


DUMPSN 


BR IF PI BITl^ 
P1=P1$K08 
STH P AS,H+0 
RDH P DC,9A 
H1=H1$K10 
STH P AStH-2 
H1 = HKK10 


=0 


238 


SKRD 


BR IF F0P7=1 
RDB PI AS,H+1 




259 


SKIPON 


BR IF DASI1=1 
STB PI T+l 
1 = 1-1 




267 


TSTCTR 


BR IF Z=0 




255 


TSTFOP 


BR IF HI BIT4= 
Hl=Hi<K0E 


=0 


254 


ADRINK 


BR IF HI BIT3 = 


=0 


266 


SKX 


BR IF F0P7=1 




116 


COM END 


BR 




288 


SEEKOP 


BR 




276 


SET ADR 


BR IF FFI0=1 




272 


SHORT 


8R IF HI BIT4= 


=0 


272 


SHORT 


BR IF HI BIT3= 


=0 



SET AUX ADDR FOR 
BR IF SEEK OP 
GET AS SENSE BYTE 
BR IF SKIP IS ON 
STORE A SENSE BYTE 
DECREMENT CCW COUNT 
BR IF COUNT AT ZERO 
BR IF NOT LAST 
RESTORE LO AUX 



AUX 
NEXT BYTE 



BR 

BR 



BR 
BR 
BR 



IF 
IF 



IF 
IF 
IF 



NOT LAST 
SEEK 



BYTE 
ADDR 
BYTE 



DATA CHAIN 
NOT LAST BYTE 
NOT LAST BYTE 



ADDR 



WORD SEQUENCE NO, 



LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 



CL0AD=*E6Ct 
COMMENTS 



EC LEVEL=128266 PAGE 268 



1882 
1884 
1886 
1888 
188A 
188C 
1820 
182? 
1824 
1826 
18C6 
18C8 
18CA 
18CC 
18CE 
1800 
1802 
18D4 
188E 
1890 
1892 
1894 
1896 
1898 
189A 
189C 
189E 
18A0 
18A2 
18A4 
18A6 
13A8 
18AA 
18 AC 
18C0 
18C? 
18C4 
18AE 
18B0 
18B? 
18B4 
1886 
18B8 
18BA 
18BC 
18BE 



FB8F 
8634 
2F45 
FBC7 
F98 5 
865 A 
5C84 

2 03F 
7EC0 
86F2 
2C13 
F9CC 
2F07 
3CA5 
2D07 
7C52 
2FE3 
92BA 
2A0 7 
2B25 

3 343 
5CA8 
4CC6 
C4&4 

5 CAP 
3B17 
5FAA 

6 EC 5 
C4AF 
2C13 
2F4 5 
CDC 5 
F9C0 
98CA 
4836 
C4AD 
98CC 
5DE9 
6 BE 3 
F4B8 
CFFF 
C4A4 
2CA3 
7CF3 
F4A4 
9 24E 



ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 
ILX 



270 
271 
272 
273 
274 
275 
276 

27 7 
278 
279 
280 
281 
282 
283 
284 

28 5 

28 6 
287 
288 
289 
290 

29 1 
29 2 
29 3 
294 
295 
29 6 
297 
298 

29 9 
300 
301 

30 2 
303 
304 
305 
306 
307 
30 8 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 



SLIISN 
SHORT 



SETAOR 



SKERR 

CHNZER 

CMREJ 



SEEKOP 



SKCHK 
CHNSET 



NOIL 
TSTI 

ILON 
SAVCYL 



TSTHD 



288 SEE 

116 C OM 

280 SKE 

271 SLI 

142 STA 



09 5 CCW 
283 CMR 



439 ZR0SN2 



299 SKCHK 



307 SAVCYL 



* 
* 
* 
* 



306 ILO 

304 TST 

282 CHN 

303 NOI 

283 CMR 



312 TST 
299 SKC 



299 SKC 
385 FWD 

* 
* 



KOP BR IF F0P7=1 

END BR 

Hl=0$K40 
RR BR IF F0P7=1 

ISN BR IF FFI7=1 

SET BR 

P=I + 1 

P1=P1+K33 

STH H AS»P+0 
ADR BR 

P0=0$K01 
EJ BR IF FFI7=0 

H1 = C 

P0=P0SKA0 

P1 = 

STH P 0A,9A 

HO=0$KOE 

BR 

TO = C 

T1=0$K20 

T1=T1$K04 

RDH P AS,T+2 

P = P 

BR IF ZNZ 

RDH P AS»T+0 

T1=T1$K11 

RDH H AS,T-2 

HO=HO$PO 

BR IF Z=0 

P0=0$K01 

H1=0$K40 

BR IF FFIO=l 

BR IF FFI7=0 

BR 

1 = 1 

BR IF Z=0 

BR 

H0=P1 

T1=T1+H0 

BR IF AC=0 

Z=H0<KFF 

BR IF ZNZ 

PO=0$KOA 

P0=P0-H1 
HK BR IF AC=0 

SET BR 

^$ $$s^$ :$# $3^3^$ & $ ;$:$$$ 3$e$ age $ 

RECALIBRATE OR 



BR IF SEEK 

PRESETN INCORECT LENGNTH 
BR IF SEEK OP 
BR IF SLI 



N 
I 

ZER 

L 

EJ 



HD 
HK 



SET AUX 

ADDRESS 0034 
STORE NEXT BYTE ADDR 



FOR DATA CH 



SET SEEK CHECK FOR SNS 

BR IF NOT SLI 

ZERO CHAN STATUS 

SET CMND REJECT&CONTIN CONN BITS 

ZERO SNS BYTE 1 

STORE SNS 

SET CE&DE&UC 



SET AUX 
ADDRESS 
0024 
GET BYTES 0& 1 OF 



SEEK DATA 



BR IF BYTES ARE NON ZERO 

GET BYTES 2&3 OF SEEK DATA 

SET AUX ADR 0037 

GET BYTES 4&5 OF SEEK DATA 

MASK BYTES 2S4 FOR ZERO 

BR IF BYTES 2&4 ARE VALID 

SET SEEK CHECK FOR SENSE 

SET WLP 

BR IF DATA CHAIN 

BR IF NOT SLI 

MASK FOR CCW COUNT ZERO 
BR IF COUNT ZERO 

SAVE CYL NO 

MASK FOR VALID CYL NO 

BR IF VALID CYL 

MASK FOR CYL 255 

BR IF INVALID CYL 

SET CONSTANT 

MASK FOR VALID HD 

BR IF INVALID HO 

s^c a|c ^c 3$c s^e a^c a^c afe a|c a^c a$c a^c a^c a^c a^c a$c ^c 3^c 3$e 3^c a$c a$e a$c 3$c 3§c a$c sijc a§c a^c 3^c a|c 3$c 3^c 3$c a$ca$e a^cajc a^c 

SEEK, AFTER ERASE IS FINISHED ** 

ajtsfc 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


070E 


1D0 


FILX 


321 


TRPRTN 






RST FIA K=80 


0710 


E976 


FILX 


32 2 




330 


CETIME 


BR IF PI BIT6=0 


0712 


5C52 


FILX 


323 








RDH P DA,9A 


0714 


F5A0 


FILX 


324 


CTLS 


33 6 


EXCTLS 


BR IF DASI3=0 


0716 


2023 


FILX 


325 








P1=0$K02 


0718 


3015 


FILX 


326 








Pl=Pl$K10 


071A 


1000 


FILX 


32 7 


RSTWD 






RST FIA K=80 


07 1C 


480F 


FILX 


328 








TGR0=P1 


071E 


0222 


F !LX 


329 


RTNWD 






RTN V MMSK1=0 


0776 


COFB 


FILX 


330 


CETIME 


33 2 


WLRSET 


BR IF FFI0=1 


0778 


F9F0 


F ILX 


331 




333 


NOWLR 


BR IF FFI7=1 


077 A 


9?A4 


FILX 


332 


WLRSET 


42 8 


ICL 


3R 


077C 


DD9F 


FILX 


33 3 


NGWLR 


329 


RTNWD 


BR IF FFI1=1 


077E 


2E83 


FILX 


334 








H0=0$K08 


0780 


92R8 


FILX 


33 5 




43 8 


ZROSTA 


BR 


0720 


FFF1 


F ILX 


33 6 


EXCTLS 


357 


TSTQP4 


BR IF F0P3=1 


0722 


C8E9 


F ILX 


337 




360 


P5TST 


BR IF F0P4=1 


0724 


DBCC 


F ILX 


338 




365 


NOOP 


BR IF F0P5=0 


0726 


C96B 


FILX 


339 


P4TST 


361 


PROTEC 


BR IF PI BIT4=1 


0728 


FFF4 


"=ILX 


340 




359 


SKEX 


BR IF FOP3=0 


072A 


2 EOS 


FILX 


341 


RECAL 






SET FIB K=40 


072C 


2 007 


PILX 


342 








P1 = 


072E 


4BDF 


F ILX 


343 








TGP0=P1 


0730 


2 02 3 


FILX 


344 








P1=0$KC2 


0732 


4EDF 


FILX 


34 5 








FB0=P1 


0734 


2D1B 


F ILX 


346 


TMREC 






P1=P1+K01 


0736 


F0B4 


FILX 


347 




346 


TMREC 


BR IF LZNZ 


0738 


4BDF 


FILX 


348 








TGR0=P1 


073A 


5E32 


c ILX 


349 








RDH H DA,8E 


073C 


1000 


FILX 


350 








RST FIA K=80 


073E 


D69F 


FILX 


351 




329 


RTNWD 


BR IF MMSK1=1 


0740 


2F85 


FIL* 


352 








H0=0$K80 


0742 


7E32 


FILX 


353 








STH H DA,8E 


0744 


C3C9 


F ILX 


354 




356 


I PLOP 


BR IF BA4=1 


0746 


810C 


FILX 


355 




CCOM 15 5 


CCOB 


BR 


0748 


9608 


FILX 


356 


I PLOP 


FILT 113 


IPL 


BR 


0770 


CBCA 


F ILX 


357 


TST0P4 


364 


TST0P5 


BR IF FQP4=0 


0772 


E96B 


F ILX 


358 




361 


PROTEC 


BR IF PI BIT6=1 


0774 


9860 


F ILX 


359 


SKEX 


231 


SKSNS 


BR 


0768 


0974 


FILX 


360 


P5TST 


359 


SKEX 


BR IF PI BIT5=0 


C76A 


2E2 5 


FILX 


361 


PROTEC 






H0=0$K20 


076C 


2F43 


FILX 


362 








H1=0$K0A 


076E 


85BA 


FILX 


363 




178 


SETSEN 


BR 


074 A 


PBA6 


FILX 


364 


TST0P5 


33 9 


P4TST 


BR IF FOP5=0 


074C 


5E32 


FILX 


365 


MOOP 






RDH H DA,8E 


074E 


1E45 


FILX 


366 








H0=H0*-K40 


07 50 


FFEO 


FILX 


367 




373 


I SNOOP 


BR IF FOP3=0 


0752 


F90C 


F ILX 


368 


NOPSLI 


377 


TST0P3 


BR IF FFI7=0 


0754 


CODD 


FILX 


369 




37 7 


T ST OP 3 


BR IF FFI0=1 


0756 


oooc 


FILX 


370 




377 


TST0P3 


BR IF FFI1 = 


0758 


7E32 


FILX 


371 


STRNOP 






STH H DA t 8E 



CL0AD=*E60, 

COMMENTS 



EC LEVEL=128266 PAGE 269 



RESET TRAP LATCH 

BR IF CHANNEL END TIME FOE RECAL 

GET FILE MASK ALGORITHM 

BR IF NOT ERASE GATE 

SET TRAP GATE BIT 

SET CONTROL BIT 

RESET TRAP LATCH 

SET TRAP GATE 

RETURN FROM TRAP 

BR IF DATA CHAIN 

BR IF SLI 

BR IF COMMAND CHAIN 

SET CHANNEL END FOR STATUS 

BR IF RECAL RESTORE OR SEEK HD 

BR IF SEEK CYL 

BR IF NO OP 

FULL SEEK OR RECAL-TST FILE PROT 

BR IF FULL SEEK 

RESET FLAG BITS 6 f 7 

ZERO TAG REG 

SET RTN TO 000 BIT 

SET RTN TO 000 ON BUSS 

ADD TO GET TIME OUT 

BR IF NOT TIMED OUT 

SET CONTROL TAG 

GET STATS 

RESET TRAP LATCH 

BR IF IN FILE TRAP 

SET ACTIVE STAT 

STORE STATS 

BR IF IPL LATCH ON 

SET CCO 
GO TO IPL WAIT LOOP 
BR IF RECAL OR RESTORE 
SEEK HD TEST FOR FILE PROTECT 

SEEK CYL TEST FOR FILE PROTECT 
SET CONTINGENT CONNECTION BIT 
SET FILE PROTECT BIT FOR SNS 

BR IF RECALIBRATE 

GET STATS 

STRIP SIO INO 

BR IF NO OP 

BR IF NOT SLI 

BR IF DATA CHAIN 

BR IF NOT CMND CHAIN 

STORE STATS 



ADDR 



WORD SEQUENCE NO. 



LABEL 



NEXTSEO NEXTLABEL STATEMENT 



CL0AD=*E60, 

COMMENTS 



EC LEVEL=128266 PAGE 270 



075A 


8642 


FILX 


372 




0760 


F5D3 


FILX 


373 


I SNOOP 


0762 


CDDF 


FILX 


374 




0764 


D0D9 


FILX 


375 




0766 


865 8 


FILX 


376 




075C 


7E3 2 


FILX 


377 


TST0P3 


075E 


8 63 4 


FILX 


37 8 


DCIL 






FILX 


379 


* 






FILX 


380 


* 






FILX 


381 


* 






FILX 


382 


* 






FILX 


383 


* 






FILX 


384 


ASEQ 


12 4E 


3F8 5 


FILX 


385 


FWDSET 


1250 


7E62 


FILX 


386 




1252 


FF06 


FILX 


387 




12 54 


51EF 


FILX 


388 


GETCYL 


1256 


51CF 


FILX 


389 


GETCAR 


1258 


2007 


FRX 


390 




125A 


4BDF 


F ILX 


391 




12 5C 


201 5 


FILX 


39 2 




125E 


7CE3 


FILX 


39 3 




1260 


F4F8 


FILX 


394 




1262 


2C1B 


FILX 


395 




1264 


1CFF 


FILX 


39 6 




1266 


5FFD 


FILX 


397 




1268 


4E0F 


FILX 


398 


RSTHD 


126A 


4BDF 


F ILX 


399 




126C 


2D07 


C ILX 


400 




126E 


4B0F 


FILX 


40 1 




1270 


4EEF 


F ILX 


4C2 




1272 


2E45 


FILX 


40 3 




1274 


4BEF 


FILX 


40 4 




1276 


4BDF 


FILX 


40 5 




1278 


4EFF 


FILX 


406 




127A 


2E2 5 


FILX 


40 7 




127C 


4BEF 


F ILX 


40 8 




127E 


4B0F 


F ILX 


409 




1280 


OCFF 


FILX 


410 




1282 


C496 


FILX 


411 




1284 


2F43 


FILX 


412 




1286 


4EFF 


FILX 


413 




1288 


2EC3 


F ILX 


414 




128A 


DFA6 


FILX 


415 




128C 


2D15 


FILX 


416 


SETCTL 


128E 


48DF 


FILX 


417 




1290 


5E42 


FILX 


418 




1292 


1000 


FILX 


419 




1294 


0222 


FILX 


420 




1296 


4ECF 


FILX 


421 


MOTION 


1298 


2F85 


FILX 


422 





123 

36 8 

37 8 
371 

141 



CLDRS 

NOPSL 

DCIL 

STRNO 

CEADE 



BR 

BR 

BR 

BR 

BR 

STH 

BR 



IF DASI3=1 

IF FFI0=1 

IF FFI1=1 

H DA,8E 



116 COMEND 

$ jje jjc jfr * # * # # * # * # * jfc # * * * # # jfc >>: * * * * * * * * # 
* 

sfc $3$:$ 5£ sjt jficafc 3$c3$e )§C2$c 

AL07=4E 



SEEK EXECUTE 



389 GETCAR 



398 RSTHD 



421 MOTION 



429 ISSEEK 



H1=H1$K8C 

STH H DA,9C 

BR IF FOP3=0 

H0=FBI 

PO=FBI 

P1 = 

TGR0=P1 

P1=0$K1C 

PO=PO-HC 

BR IF AC=0 

P0=P0+K01 

PO=PC<KFF 

H1=H1L 

FB0=P1 

TGR0=P1 

P1 = 

TGRO=Pl 

FBO=H0 

H0=0$K40 

TGR0=H0 

TGR0=P1 

F80=H1 

H0=0$K20 

TGRO=HC 

TGR0=P1 

Z=PO<KFF 

BR IF ZNZ 

H1=0$K04 

F80=H1 

HO=0$KCC 

BR IF F0P1=0 

P1=0$K10 

TGR0=P1 

RDH H DA, 98 

RST FIA K=80 

RTN V MMSK1=0 

FBO=PO 

H1=0$K80 



BR TO GET NEXT CCW 

BR IF ERASING 

BR IF DATA CHAIN 

BR IF COMMAND CHAIN 

STORE STATS 

** 
** 
** 

SET FORWARD INDICATOR 

SAVE SEEK DATA 

BR IF NOT HEAD SEEK 

SET CYL NUMBER FOR HD SEEK 

GET CYL ADDR TO COMPUTE DIFF 

RESET TAG REG 

CONTROL TAGf.RST HEAD BIT 

COMPUTE DIFFERENCE 

BR IF DIP FWO-NO RECOMP NEEDED 

ADD CARRY 

RECOMPLIMENT 

REMOVE FORWARD BIT 

PUT RESET HD ON BUSS 

SET CONTROL TAG 

RESET TAG REG 

PUT CYL NO ON BUSS 

SET THE SET CYL BIT 

PUT SET CYL IN TAG REG 

RESET TAG REG 

PUT HD NO ON BUSS 

SET THE SET HD BIT 

RAISE SET HD TAG 

RESET TAG REG 

MASK FOR ZERO DIFF 

BR IF DIFF NOT ZERO-MOTION SEEK 

SET SELECT HO BIT 

PUT SELECT HD ON BUSS 

SET CE+DE FOR DEVICE STATUS 

BR IF NOT FROM HD SS1TCH ROUTINE 

SET CONTROL BIT 

RAISE CONTROL TAG 

GET CCW ADDR 

RESET TRAP LATCH 

RETURN FROM TRAP 

PUT DIFFERENCE ON BUSS 

SETV THE SET DIFF BIT 



ADDR 



WORD SEQUENCE NO. 



LABEL 



NEXTSEQ NEXTLABEL STATEMENT 



CL0AD=*E60, 

COMMENTS 



EC LEVELS 2 82 66 PAGE 271 



129A 


4BFF 


FILX 


42 3 








TGR0=H1 


129C 


4B0F 


F ILX 


424 








TGR0=P1 


129E 


4EEF 


F ILX 


425 








FBO=HO 


12AO 


2013 


FILX 


42 6 








P1=0$K01 


12A2 


4B0F 


FILX 


42 7 








TGR0=P1 


12A4 


2E83 


FILX 


428 


ICL 






H0=0$K08 


12A6 


2F45 


FILX 


429 


ISSEEK 






H1=0$K40 


12A8 


CDBB 


FILX 


430 




43 9 


ZR0SN2 


BR IF FFI0=1 


12AA 


F9B1 


FILX 


431 




434 


SLION 


BR IF FFI7=1 


12 AC 


4886 


FILX 


43 2 








1 = 1 


12AE 


C4BA 


FILX 


433 




43 9 


ZR0SN2 


BR IF ZNZ 


12B0 


00B8 


FILX 


434 


SLION 


43 8 


ZROSTA 


BR IF FFI1=0 


12B2 


DA3 6 


F ILX 


43 5 




43 7 


SETA 


BR IF HO BIT5=0 


12B4 


8640 


F ILX 


436 




122 


NTORST 


BR 


12B6 


85FE 


F ILX 


43 7 


SETA 


212 


GET8E 


BR 


12B8 


2F07 


F ILX 


43 8 


ZROSTA 






H1 = 


12BA 


4A5? 


F ILX 


439 


ZR0SN2 






RDH T DC,9A 


12BC 


7A62 


F ILX 


440 








STH T DA,9C 


12BE 


40AF 


F ILX 
FILX 


44 1 
442 


CHNENO 






FF0=T0 


12CO 


4FAF 


FILX 
FILX 


44 3 
444 


* 






FOP=T0 


12C2 


1E00 


F ILX 


44 5 








RST FIB K=80 


12C4 


1000 


FILX 


44 6 








RST FIA K=80 


1?C6 


2E08 


F ILX 


447 








SET FIB K=40 


12C8 


5C32 


F ILX 


44 8 








RDH P DA,8E 


12CA 


C30E 


PILX 


449 




45 9 


NOIPL 


BR IF BA4=0 


12CC 


CEC3 


FILX 


450 








Z=H0*-K0C 


12CE 


F003 


F ILX 


451 




45 3 


CHANTS 


BR IF LZ=0 


1200 


A7D8 


FILX 


452 


STOP 


OCLL 026 


STOP 


BR 


120? 


0F85 


F ILX 


45 3 


CHANTS 






Z=H1*-K80 


1204 


C4D0 


F ILX 


454 




45 2 


STOP 


BR IF ZNZ 


1206 


2C07 


FILX 


45 5 








P0=0 


12D8 


7C32 


FILX 


456 








STH P DA,8E 


12DA 


212 


p ILX 


457 








RST MMSK K=ll 


120C 


A7F2 


FILX 


458 




DCLL 040 


P I C KU P 


BR 


120E 


2B4 3 


F ILX 


45 9 


NO I PL 






T1=0$K04 


12EC 


7CA8 


FILX 


460 








STH P AStT+2 


12E2 


DC70 


PILX 


461 




46 8 


STRINT 


BR IF PO BIT1=0 


12E4 


7A32 


FILX 


46 2 








STH T DA f 8E 


12E6 


C9EC 


F ILX 


46 3 




466 


NOPCI 


BR IF FFI4=C 


12E8 


3F85 


PILX 


464 








H1=H1$K80 


12FA 


0004 


F ILX 


46 5 








RST FIA K=20 


12EC 


2410 


FILX 


466 


NOPCI 






SET MODE K=01 


12EE 


A 03 


F ILX 


467 




CCOM 135 


STATUS 


BR 


12F0 


7EA0 


F ILX 


468 


STRINT 






STH H AS,T+0 


12F2 


2008 


FILX 


469 








SET FIA K=40 


12F4 


8602 


FILX 


470 




214 


TRAPBR 


BR 


12F6 


5EEF 


FILX 


471 


EXAMIN 






H0=DS 


12F8 


1EC7 


FILX 


472 








H0=H0*-KCC 


12FA 


C400 


FILX 


473 




45 2 


STOP 


BR IF ZNZ 



RASSE SET DIFF TAG 
RESET TAG REG 
PUT SEEK START ON BUSS 
SET CTL PULSE BIT 
ISSUE CONTROL PULSE 
SET CHANNEL END FOR STATUS 
PRESET INCORRECT LEN STATUS 
BR IF DATA CHAIN 
BR IF SLI IS ON 
TST FOR CCW COUNT 
BR IF ICL 

BR IF NOT CMND CHAIN 
BR IF SEEK HAD MOTION 
GET NEXT CCW 

ZERO CHAN STATUD 

T=0000 

ZERO SENSE BYTE 2 

RST FLAG REG.CC OFF PREVENTS DES 

MOD SEL UP LEVELS FROM TRAPPING 
RST OP REG. PRE VENT UNCHAINED I NV 

FILE OP FROM HD SWITCH IN CC TST 
CHAIN END RESET 
RESET TRAP LATCH 
RESET FLAG BITS 6,7 
GET STATS 
BR IF NOY IPL 

MASK FOR CORRECT DEVICE STATUS 
BR IF DEVICE STATUA OK 
GO TO INTERLOCKED STOPWQRD 
MASK FOR GOOD CHAN STATUS 
BR IF CHAN STATUA BAD 
REMOVE ACTIVE STAT 

RESET PRIORITY 

BR TO LOAD PSW 
SET AUX ADDR 0004 
STORE I/O ADDR FOR CONT CONN 
BR IF NOT FROM SIO 
RESET STATS 
BR IF PCI OFF 
SET PCI IN ST&TUS 
RESET PCI LATCH 
SET CPU MODE FILE ZONE 

SET CCI 
STORE STATUS IN INTERRUPT BUFF 
SET INTERUPT LATCH 
BR TO CHECK IF IN TRAP 
GET DISK HARDWARE STATUS 
REMOVE UNWHOLESOME BITS 
IPL STOP ON MECHANICAL CHECK 



CL0AD=*E60, EC LEVEL=128266 PAGE 272 

ADDR WORD SEQUENCE NO. LABEL NEXTSEQ NEXTLABEL STATEMENT COMMENTS 

12FC 5E42 FILX 474 RDH H DA, 98 GET CCW ADDRESS 

12FE 96DC FILX 475 FILT 115 GOCAT BR CONTINUE IPL 

FILX 476 AEND 

********************************** 

* CROSS REFERENCE FOR CSECT FILX * 
********************************** 

FILX 007 FILT 060 

FILX 015 FILX 022 FILX 023 FILX 053 FILX 054 FILX 060 FILX C78 

FILX 028 FILX 030 

FILX 029 FILX 025 

FILX 041 FILX 027 FILX 029 

FILX 043 FILX 031 

FILX 045 FILX C45 

FILX 052 FILX 009 

FILX 056 FILX 056 

FILX H60 FILX 017 

FILX 061 FILX 063 FILX 064 FILX 065 FILX 069 

FILX 062 FILX 013 

PILX 063 C ILX C6T FILX 06 8 

FILX 064 FILX 062 

FILX 067 FILX 021 

FILX 069 FILX 052 

FILX 078 FILX 010 FILX 014 FILX 018 

FILX 080 FILX 079 

FILX 089 FILX 044 

FILX 092 FILX 093 

FILX 093 FILX 091 

FILX 095 FILX 279 

FILX 097 FILT 073 FILX 092 

FILX 100 FILX 09 « 

FILX 101 MIX 099 

FILX 106 PILX 103 

FILX 109 FILX 104 FILX 106 

FILX 113 FILX 10 9 

PILX 115 FILX 046 FILX 111 FILX 113 

FILX 116 FILX 265 FILX 271 FILX 378 

FILX 121 PILX 118 

FILX 122 FILT 164 FILX 436 

FILX 123 FILX 372 

FILX 132 FILX 127 

FILX 133 FILX 129 FILX 130 FILX 131 

FILX 140 FILX 133 

FILX 141 FILX 121 FILX 376 

FILX 142 FILX 117 FILX 120 FILX 275 

FILX 149 FILX 012 

FILX 153 FILX 149 

FILX 156 FILX 150 

FILX 158 FILX 161 

FILX 159 FILX 066 FILX 188 

FILX 161 FILX 156 

FILX 162 FILT 158 FILX 02 8 FILX 155 FILX 157 FILX 173 FILX 174 FILX 185 FILX 187 FILX 192 



FILX 


164 


FILX 


166 










FILX 


165 


FILX 


016 










FILX 


171 


FILX 


015 


FTLX 


019 


FILX 


151 FILX 152 


FILX 


173 


HU 


181 










FILX 


174 


FILX 


154 










FILX 


176 


FILX 


158 


FILX 


139 


FILX 


196 


FILX 


177 


FILX 


163 


FILX 


172 






FILX 


178 


FILX 


139 


FILX 


36 3 






FILX 


181 


FILX 


020 










FILX 


185 


F ILX 


132 


FILX 


198 






FILX 


188 


FILX 


191 










FILX 


190 


FTLX 


186 










FILX 


193 


FILX 


164 










FILX 


197 


FILX 


00 8 










FILX 


203 


FILX 


2C 










FILX 


204 


FILX 


168 










FILX 


205 


FILX 


061 


FILX 


072 


FILX 


175 FILX 183 


FILX 


206 


FILX 


04 


FILX 


160 


FILX 


170 FILX 195 


FILX 


208 


FILX 


20 6 










FILX 


212 


FILX 


437 










FILX 


213 


FILT 


07 7 










FILX 


214 


FILX 


470 










FILX 


216 


FILX 


214 










FILX 


225 


FILX 


Oil 










FILX 


229 


FILX 


227 










FILX 


231 


FILX 


359 










FILX 


238 


FILX 


255 










FILX 


241 


FILX 


23 7 










PILX 


244 


FILX 


241 










FILX 


2 50 


FILX 


248 










FILX 


254 


FILX 


263 










FILX 


255 


FILX 


261 










FILX 


259 


FILX 


240 


FILX 


257 






FILX 


261 


FILT 


06 7 










FILX 


266 


FILX 


26 4 










FILX 


267 


FILX 


26 










FILX 


271 


FILX 


274 










FILX 


2 72 


FILX 


268 


FILX 


269 






FILX 


276 


FILX 


26 7 










MLX 


280 


FILX 


273 










FILX 


282 


FILX 


30 ? 










FILX 


283 


FILX 


281 


FILX 


306 






FILX 


288 


FILX 


266 


FILX 


270 






FILX 


299 


FILX 


293 


FILX 


311 


FILX 


314 


FILX 


300 


FILX 


100 










FILX 


303 


FILX 


305 










FILX 


304 


FILX 


30 2 










FILX 


306 


FILX 


301 










FILX 


307 


FILX 


29 8 











CL0AD=*E60, EC LEVEL=128266 PAGE 273 

* CROSS REFERENCE FOR CSECT FILX * 

FILX 165 FILX 184 FILX 197 FILX 199 FILX 228 



FILX 204 



********************************** 

* CROSS REFERENCE FOR CSECT FILX * 
********************************** 



CL0AD=*E60, EC LEVEL=128266 PAGE 274 



FILX 


312 


FILX 


309 






FILX 


321 


FILT 


135 






FILX 


324 


FILX 


08 3 






FILX 


329 


FILX 


33 3 


FILX 


35 1 


FILX 


330 


FILX 


322 






FILX 


332 


FILX 


330 






FILX 


333 


FILX 


331 






FILX 


336 


FILX 


324 






FILX 


3 39 


FILX 


364 






FILX 


341 


FILX 


059 






FILX 


346 


FILX 


347 






FTLX 


356 


FILX 


354 






FILX 


357 


FILX 


336 






FILX 


359 


FILX 


340 


FILX 


360 


FILX 


360 


FILX 


337 






FILX 


361 


FILT 


157 


FILX 


339 FILX 358 


FILX 


364 


FILX 


357 






FILX 


365 


FILX 


33 8 






FILX 


368 


FILX 


373 






FILX 


371 


FILX 


375 






FILX 


3 73 


FILX 


367 






FILX 


377 


f ILX 


368 


FILX 


369 FILX 370 


FILX 


373 


FILX 


374 






FILX 


385 


FILX 


315 






FILX 


388 


FILT 


156 






FILX 


389 


FILX 


337 






FILX 


398 


FILX 


394 






FILX 


416 


FILT 


144 






FILX 


421 


FILX 


411 






FILX 


428 


FILX 


33 2 






FILX 


429 


FILX 


415 






FILX 


434 


FILX 


431 






FILX 


437 


FILX 


43 5 






FILX 


438 


FILX 


180 


FILX 


335 FILX 434 


FILX 


439 


FILT 


034 


FILX 


143 FILX 287 


FILX 


441 


FILT 


215 






FILX 


452 


F ILX 


45 4 


FILX 


47 3 


FILX 


453 


FILX 


451 






FRX 


459 


FILX 


449 






FILX 


466 


FILX 


46 3 






FILX 


46 8 


FILX 


461 






FILX 


471 


FILT 


114 







FILX 430 FILX 433 



FINT DESCRIPTIVE TEXT 



CL0A0=*E60, EC LEVEL=128266 PAGE 275 



ENTRY POINTS 



INTRPT THIS IS THE NORMAL ENTRY INTO THE ROUTINE 
WHEN A FILE INTERRUPT IS DETECTED IN THE 
BSWI ROUTINE. THIS ROUTINE TESTS FOR 
FILE CONDITIONS BEFORE SETTING THE CSW 
INFORMATION INTO THE APPROPRIATE REGISTERS 
FOR THE CCOM ROUTINE. 



SETCSW THIS IS A BAL ENTRY TO SET THE CSW 
INFORMATION INTO THE CPU REGISTERS 
STORING BY THE CCOM ROUTINE. 



FOR 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 






FINT 


0C1 


T 






2311 FEATURE INTERUPT 


26FC 


7CC2 


FINT 


00 2 


INTRPT 








STH P DA,B8 


26FE 


5F59 


FINT- 


003 










G1 = H1 


2700 


D93E 


FINT 


00 4 






Oil 


TSTPCI 


BR IF FFI5=0 


270 2 


5 A3 2 


FINT 


00 5 










RDH T DA,8E 


2704 


2A13 


FINT 


00 6 










T0=O$K01 


2706 


7A32 


FINT 


00 7 










STH T DA,8E 


2708 


9130 


F INT 


008 






050 


SETCSW 


BAL 


270A 


A024 


FINT 


009 


STUFCS 


CCOM 


127 


CSWADR 


BAL 


270C 


A 74 8 


FINT 


010 






040 


GETIOA 


BR 


270E 


C996 


F INT 


Oil 


TSTPCI 




015 


SETIOA 


BR IF FFI4=0 


2710 


2E0 7 


FINT 


012 










H0=0 


2712 


9138 


F INT 


013 






054 


PCICSW 


BAL 


2714 


A70A 


FINT 


014 






009 


STUFCS 


BR 


2716 


2B43 


F INT 


015 


SETIOA 








T1=0$K04 


2718 


4FBF 


FINT 


016 










F0P=T1 


271A 


5AA0 


f=INT 


017 










RDH T AS,T+G 


27 1C 


2A13 


F INT 


018 










TO=0$KC1 


27 IE 


7 A3 2 


F INT 


019 










STH T DA.8E 


2720 


E1A8 


F INT 


020 






024 


TSTDE 


BR IF DASI6=0 


2722 


0D02 


FINT 


021 










RST FIA K=10 


2724 


2E25 


F INT 


022 










H0=0$K20 


2726 


A 740 


F INT 


023 






036 


STOSTA 


8R 


2728 


E5AF 


F INT 


02 4 


TSTDE 




02 7 


RSTDE 


BR IF DASI2=1 


272A 


A5E4 


F INT 


02 5 




FILE 


27 2 


SNSSTA 


BAL 


272C 


A 740 


FINT 


026 






036 


STOSTA 


BR 


272E 


8F90 


FINT 


027 


RSTDE 


FILE 


288 


SETDA 


BAL 


2730 


4DBD 


FINT 


028 










T1=P1L + T1H 


2732 


7A32 


FINT 


029 










STH T DA,8E 


2734 


FABB 


F TNT 


030 






03 3 


SEKINC 


BR IF 0S7=l 


2736 


A 044 


PINT 


031 




FILE 


344 


RSTATT 


BAL 


2738 


A73E 


FINT 


032 






03 5 


SETDE 


BR 


273 A 


A 044 


FINT 


033 


SEKINC 


FILE 


344 


RSTATT 


BAL 


273C 


A5EC 


FINT 


034 




FILE 


276 


SNSSTC 


BAL 


273E 


3E43 


FINT 


035 


SETDE 








H0=H0$K04 


2740 


2F0 7 


FINT 


036 


STOSTA 








Hl = 


2742 


2400 


FINT 


037 


MODE 








SET MODE K=00 


2744 


2A0 7 


FINT 


038 










T0=0 


2746 


A01E 


FINT 


039 




CCOM 


123 


STATOS 


BAL 



COMMENTS 

ROUTINE FOR FILES 
SAVE CPU P REG 
SAVE CPU HI REG 
BR IF NOT INETRUPT LATCH 
GET STATS AND IOA 
RESET STATS 
STORE STATS 

SET REGS FOR CPU C SW STORE 
STORE CSW 

BR IF NOT PCI 

SET DEVICE STATUS 

SET CHAN STATUS PCI INFO 

SET AUX ADDR 0004 

SET CONTIN CONECT CLEAR IND 

GET BUFFERED 10 ADDR FROM 0004 

RESET STATS 

STORE STATS&I/O ADDR 

BR IF NOT CUE 

RESET CUB LATCH 

SET CUE FOR STATUS 

BR IF GATTED ATTENTION 

ERROR-NO REASON FOR INT-SET SN S 

SET DEV ADDR6SELECT MODULE 
BUILD DEVICE ADDRESS AND 

STORE IT IN AUX 
BR IF SEEK INCOMPLETE 
RESET GATED ATTN 

RESET GATED ATTN 
SET SEEK CHECK SNS 
SET DE FOR STATUS 
ZERO CHAN STATUS 
SET CPU ZONES.MODE 

ZERO CSW THEN STORE STATUS 



ADDR 



WORD SEQUENCE NO. LABEL 



NEXTSEQ 



NEXTLABEL STATEMENT 
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COMMENTS 
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2748 
274A 
274C 
274E 
2750 



1130 
1132 
1134 
1136 
1138 
113A 
113C 
113E 
1140 
1142 
1144 
1146 
1148 
114A 
114C 
114E 



5A32 
2A13 
1000 
5CC2 
A43C 



2A07 
2B63 
5EA0 
0008 
526F 
566B 
2707 
C9C2 
3F85 
2490 
7 8A2 
004 
2400 
5 0A2 
5242 
128E 



F INT 
PINT 
FINT 
FINT 
F TNT 
FINT 
FINT 
FINT 
FINT 
FINT 
FINT 
FINT 
FINT 
FINT 
FINT 
FINT 
FINT 
F INT 
FINT 
FINT 
FINT 
F INT 
FINT 
FINT 
FINT 
FINT 



FINT 


002 


DCLT 


05 3 


FINT 


009 


FINT 


01 A 


FINT 


Oil 


FINT 


004 


FINT 


015 


FINT 


01 1 


FINT 


24 


FINT 


020 


FINT 


027 


FINT 


024 


FINT 


33 


FINT 


03 


FINT 


035 


FINT 


03? 


FINT 


036 


FINT 


02 3 


FINT 


040 


FINT 


01 


FINT 


050 


FILE 


017 


FINT 


54 


FINT 


013 


FINT 


059 


FINT 


C57 



040 
041 
042 

04 3 
044 
045 
046 
047 
048 
049 
50 
051 
052 
053 
054 

05 5 
056 
057 
058 
059 
060 
061 
062 
063 
064 
065 



GETIOA 



GET 
SET 



I/O ADDRESS 
CHAN 1 



RESTORE P REG 



* 

* 
* 



SETCSW 



PCICSW 



RDH T DA,8E 
T0=0$K01 
RST SO 
RDH P DA,B8 
DCHN 104 FRMFIL BR 

******************** *************************#*#*********#************* 

* ** 

* SET CSW - SUBROUTINE ** 

* ** 

************ ******** ************ **************** ******************** *** 

T0 = 



05 9 NOPCI 



MOPCI 



T1=0$K06 

RDH H AS,T+0 

RST FIA K=40 

D0=STP0 

D0=00H 

01 = 

BR IF FFI4=0 

Hl=Hl$K80 

SET MODE K=09 
I DA, AC 
FIA K=20 
MODE K=00 
U DA, AC 
V DA, 98 



STH 
RST 

SET 
RDH 
RDH 
RTN 

* CROSS REFERENCE FOR CSECT FINT * 



SET AUX ADDR 0006 
GET BUFFERED STATUS 
RESET INTURRUPT LATCH 
GET PROTECT KEY 



BR IF NOT PCI INT 

SET PCI IN STATUS 

SET FILE MODE, FILE ZONE 

BUFFER RESIDUAL COUNT 

RESET PCI LATCH 

SET CPU MODE AND ZONE 

BUFFERED RESID COUNT 

CCW NEXT ADDR 



GET 
GET 



FINT 026 



FINT 008 



OVLY DESCRIPTIVE TEXT 
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THE OVERLAY ROUTINE - OVLY- IS TO BE USED BY THE CUSTOMER WHEN 
A CHECK SUM OR STORAGE DATA ERROR OC CURES ANO CAN NOT BE CLEARED 
BY PERFORMING A CSL. OVLY IS ENTERED BY CONTROL ADDRESS SETTING 
TO THE CTRL STORAGE ADDRESS D2BE WHICH IS THE LOCATION OF A UN- 
CONDITIONAL BRANCH TO THE FIRST INSTRUCTION OF THE OVLY ROUTINE. 

THE OVLY ROUTINE WILL TRY TO RECONSTRUCT ALL BAD LOCATIONS OF 
MODULE ZERO BY DOING A COMPARISON AGAINST TWO OTHER DUPLICATES 
OF MODULE ZERO STORED IN VARIOUS AUX OR CTRL STORAGE LOCATIONS. 
THE LOCATION OF THE TWO COMPARISON MODULES IS DEPENDENT ON CORE 
SIZE AND FEATURES PRESENT. THE TWO COMPARISON MODULES ARE STORED 
AWAY EVERY TIME BCHK IS SUCCESFULLY EXECUTED. 

IF A CSL CAN NOT BE PERFORMED AFTER THE EXECUTION OF THE OVLY 
ROUTINE THE CUSTOMER WILL HAVE TO CALL FOR SERVICE. 



THE OVLY ROUTINE 
CREAMED) . WHEN OVLY 
BE USED. 



WILL NOT WORK IN ALL CASES (EX. OVLY ITSELF 
FAILS NORMAL TROUBLESHOOTING METHODS SHOULD 



******* CUSTOMER PROCEDURE TO RUN OVLY ********************* 

1. IF A CUSTOMER CSL'S AND STILL HAS CHECK SUM 
OR STOR DATA SYSTEM CHECKS 

2. SET MODE SWITCH TO • W • POSITION 

3. DEPRESS SYSTEM RESET 

4. SET CONSOLE SWITCHES ABCD TO X2BE 

(X=C FOR 48K MACHINES, X=8 FOR 32K MACHINES 
X=8 FOR 24K MACHINES, X=4 FOR 16K MACHINES) 

5. DEPRESS CTRL ADDR SET 

6. MODE SWITCH BACK TO PROCESS 

7. DEPRESS START 

8. DO ANOTHER CSL 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


COMMENTS 






OVLY 


001 


T 




CUSTOMER 


ROUTINE TO CORRECT 


BAD MODULE ZERO WORDS 


30EC 


3212 


OVLY 


002 


I XSTRT 






SET MMSK K=91 




3CEE 


3 800 


OVLY 


003 








SET DR K=80 


SET ERROR STOP BYPASS 


3CF0 


A 65 2 


OVLY 


004 








RDH DC,9A 


SET D TO ZERO 


30F2 


2 4C5 


OVLY 


006 








GO=0$KCO 


SET G TO COOO 


30 F4 


5 75 9 


OVLY 


022 








G1 = D1 




3CF6 


2CD5 


OVLY 


024 








PO=OSKDO 


SET P TO 0000 


3QF8 


5 7D9 


OVLY 


042 


OK 






P1 = D1 




30 FA 


4068 


OVLY 


043 


OKRD 






RDH U CS,D+2 


READ CONTROL STORE INTO U 


30FC 


5248 


OVLY 


045 








RDH V AS,G+2 


READ AUX STORE INTO V 


30FE 


6021 


OVLY 


055 








UO=UO<VO 


COMPARE UO TO VO 


3100 


C48A 


OVLY 


056 




06 2 


BAD 


BR IF ZNZ 


BR IF NO COMPARE 


3102 


6131 


OVLY 


057 








Ul=Ui<Vl 


COMPARE Ul TO VI 


3104 


C48A 


OVLY 


058 




062 


BAD 


BR IF ZNZ 


BR IF NO COMPARE 


3106 


F229 


OVLY 


059 


OKGO 


087 


GOODST 


BR IF 007=1 


LOOK FOR END OF MODULE 


3108 


B0F8 


OVLY 


060 




042 


OK 


BR 


NOT END BRANCH TO CONTINUE 


31 OA 


5 0C8 


OVLY 


062 


BAD 






RDH U AS,P+2 


CTRL STORE OR AUX STORE BAD 


310C 


6666 


OVLY 


072 








D=D-2 


ADJUST CTRL ADDRESS 


310E 


6 201 


OVLY 


073 








VO=VO<UO 


COMPARE 


3110 


C49A 


OVLY 


074 




079 


BAD1 


BR IF ZNZ 


BR IF NO COMPARE 


3112 


6311 


OVLY 


075 








V1 = VKU1 


COMPARE 


3114 


C49A 


OVLY 


076 




07 9 


BAD1 


BR IF ZNZ 


BRANCH IF NO COMPARE 


3116 


6068 


OVLY 


077 








STH U CS,D+2 


DATA GOOD STORE INTO CTRL 


3118 


B106 


OVLY 


078 




059 


OKGO 


BR 


BRANCH TO CONTINUE 


311A 


426 8 


OVLY 


079 


BAD1 






RDH V CS,D+2 


COMPARE MOD BAD READ CTRL AGAIN 


311C 


6021 


VL Y 


080 








UO=UO<VO 


COMPARE 


311E 


C4A4 


OVLY 


081 




084 


ALLBAD 


BR IF ZNZ 


BRANCH IF NO COMPARE 


3120 


6131 


OVLY 


082 








U1=UKV1 


COMPARE 



ADDR 


WORD 


SEQUENCE NO. 


LABEL 


NEXTSEQ 


NEXTLABEL 


STATEMENT 


3122 


C487 


OVLY 08 3 




059 


OKGO 


BR IF Z=0 


3124 


2 82 


OVLV 084 
OVLY 085 


ALLBAD 
* 






SET DR K=02 


3126 


2 800 


OVLY 086 








SET DR K=00 


3128 


1212 


OVLY 087 


GOODST 






RST MMSK K= 


312A 


5007 


OVLY 088 


GDSTP 






STOP 


312C 


812A 


OVLY 089 




08 8 


GDSTP 


BR 



CL0AD=*E60, 

COMMENTS 
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AND HARD 



LOCK 
* CROSS REFERENCE FOR CSECT OVLY * 

$3gc$ $$$&$:$;;&&#$ a}e # *$c a£ t}c sfcafc $$$$$ a]e £ £ j$c ifc 30c # # * 



BRANCH IF NO COMPARE 
TURN ON CK SUM LIGHT 
STOP LATCH 
RESET ERROR STOP BYPASS 
ALL OK STOP WITH NO CHK SUM 
STOP GOOD 
IN 



ERR 



OVLY 


002 


BCHK 


270 






OVLY 


042 


OVLY 


060 






OVLY 


059 


OVLY 


073 


OVLY 


08 3 


OVLY 


062 


OVLY 


056 


OVLY 


05 8 


OVLY 


079 


OVLY 


074 


OVLY 


076 


OVLY 


084 


OVLY 


081 






OVLY 


87 


OVLY 


059 






OVLY 


088 


OVLY 


089 







CONTROL STORAGE ADDRESS LIST 

2 

OOOO 8CPL-003-8000 BCPL-004- 
0010 BCPL-009-3210 BCPL-010- 



08AD BCPL-004-0BAD 
2610 SCPL-011-50CF 



0000-01FE 



BCPL-004-0BAD 
BCPL-012-51 AF 



8 



BCPL-004-0BAD 
RCPL-0 13-2413 



BCPL-004-0BAD 

BCPL-014-0CCF 
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8CPL-004-0BAD 
BCPL-015-C4AD 



8CPL-005-80AC 0000 
BCPL-016-GCDF 0010 



0020 BCPL-017-C48F BCPL-01 8-0CEF 

0030 8CPL-037-2B93 BCPL-038- C9B3 

0040 BCPL-045-2B23 BCP L-046-4F BF 

0050 BCPL-053-EDCE BCPL-054-5FFF 



BCPL-019-C4E3 
BCPL-039-4FAF 

RCPL-047-2B42 
BCPL-055-F05B 



BCPL-021-0CFF 

BCPL-040-2B04 

BCPL-048-FDC6 
BCPL-056-7F48 



BCPL-022-C4A8 
BCPL-041-2B44 

BCPL-049-5FBF 
BCPL-057-F05C 



BCPL-023-30DE 
BCPL-C42-C9BA 

BCPL-050-C4CA 
BCPL-C58-6F48 



BC PL -0 35-2486 
BCPL-C43-2B40 

BCPL-051-2B48 
BCPL-059-055D 



BCPL-036-2507 0020 

BCPL-044-CDBE 0030 

BCPL-052-FDCF 0040 

BCPL-060-C4CC 0050 



0060 BCPL -061-8100 BCPL-062- 2406 
0070 8CPL-069-DE(S c BCP L-070- 583F 



BCPL-063-2617 
BCPL-071-6348 



8CPL-064-2783 
BCPL-072-736A 



BCPL-065-3775 
BCPL-0 73-F0EE 



BCPL-066-2507 
BCPL-074-161B 



BCPL-C67-4066 
BCPL-C75-F0E7 



BCPL-068-5EEF 0060 
BCPL-076-81C0 0070 



0080 BCPL-077-6EE3 BCPL-078-6EE3 
0090 BCPL-085-2E63 BCPL-086- 3E 15 



BCPL-079-6EE3 
BCPL-087-4FEF 



BCPL-080-0E08 
BCPL-088-2E43 



BCPL-081-OE04 
BCPL-089-E598 



BCPL-C82-49EF 
BCPL-09C-4EEF 



BCPL-083-4EDF 
BCPL-C91-4BFF 



BCPL-084-4BFF 0080 
BCPL-092-3D00 0090 



OOAO BCPL-093-E5A1 BCPL-C94- 1 DOO 
OOBC BCPL-101-2507 BCPL- 102- 5FDF 



BCPL-0 95-50EF 
BCPL-103-OAB8 



BCPL-096-CA25 
BCPL-104-ED33 



8CPL-097-C1A9 
BCPL-105-2F10 



BCPL-098-810A 
BCPL-106-DAC6 



SCPL-C99-240E 
BCPL-107-CAB9 



BCPL-100-2F04 OOAO 
BCPL-108-58FF OOBO 



OOCO BCPL-109-5AEF BCPL-110-4EF3 
OODO 8CPL-117-FFFP BCPL-11 7-FFFF 



8CPL-111-6F48 
BCPL-117-FFFF 



BCPL-112-2B14 
BCPL-117-FFFF 



BCPL-113-055D 
BCPL-U7-FFFF 



BCPL-114-C4B4 
BCPL-117-FFFF 



BCPL-1 15-8100 
BCPL-118-FFFF 



BCPL-117-FFFF OOCO 
BCPL-12 8-2807 OODO 



OOFO BCPL-129-6AC? BCPL-130- 

OOFC BCPL-137-?C23 RCPL-138- 

CONTROL 2 
STORAGE 



2490 BCPL-131-2813 
409F 8CPL-139-8811 



BCPL- 132-2907 
BCPL-140-54E8 

6 



BCPL-133-4A86 
BCPL-141-6488 

8 



BCPL-134-4C02 
8CPL-142-FA76 



BCPL-135-2F15 
BCPL-143-0608 



BCPL-136-5FE9 
BCPL-144-88FE 



OOEO 
OOFO 

00 — 

01 — 



C100 CICY-064-A6D3 C IC Y-065-B055 

0110 ETRP-020-2203 F TRP-021- A488 



CICY-073-814C 
CL0G-148-B3F6 



CICY-074-B075 
CL0G-149-6F11 



CICY-062-834A 
CLOG-150-6E01 



CICY-063-B009 
CLOG-151-6731 



CCOM-1 55-2400 
CLOG-1 52-6621 



CC0M-156-AA74 0100 
CLOG-1 53-A844 01 10 



0120 FILT-067-9852 F ILT-068-81 32 
0130 FILT-075-CBA0 F IL T-076-5E42 



FILT-069-8132 
FI LT-077-8600 



FILT-070-FFAE 
CMPU-003-5B3A 



FILT-071-OBA0 
CMPU-0C4-5F10 



FILT-072-5C52 

CMPU-005-4BF3 



FILT-073-860E 
CMPU-006-5875 



FILT-074-DBA0 0120 
CMPU-007-AE72 0130 



0140 FILT-004-222? F IL T-01 8- 8087 

0150 CICY-113-C4C5 C IC Y-l 14-5EA8 

0160 CICY-121-C4C9 C ICY-122-6AA4 

0170 DCLD-0 10-2240 DCLD-01 1-8153 



CICY-129-2F07 
CICY-115-56A0 

CICY-123-56AA 

CCOM-064-50A2 



CICY-130-C40D 
CICY-116-617B 

CICY-124-637B 

CC0M-065-54B2 



CICY-131-270 7 
CICY-117-606F 

CICY-125-626F 
CC0M-066-5CC2 



CICY-132-128E 
CICY-118-6FAD 

CICY-126-56A0 

CC0M-06 7-5 8 92 



CICY-111-5098 
CICY-1 19-5298 

CICY-127-67AD 

CC0M-068-2020 



CICY-112-50BB 0140 

CICY-120-52BB 0150 

CICY-128-128E 0160 

CC0M-069-128E 0170 



0180 DCLE-010-2244 DCLE-01 1-C886 
0190 DCLE-018-008B DCL E-01 9-F0A4 



DC LE-0 12-0 244 
DCLE-020-5119 



DCLE-013-3613 
DCLE-021-C4A0 



DCLE-014-CCA8 
OCLE-022-5230 



DCLE-015-D127 
OCLE-023-0383 



DCLE-C16-5212 
DCLE-C24-F0A0 



DCLE-01 7-5038 0180 
DCLE-025-95F4 0190 



01A0 DCLE-026-5212 DCLE-027-95C2 

01BC ETTR-018-2206 ETTR-019-5ACF 



DCLE-028-95FA 
ETTR-0 20-B204 



DCLE-029-A154 
CMPU-032-5B3A 



DCLE-030-8BE6 
CMPU-033-4B73 



CC0M-174-2BB1 
CMPU-034-771A 



CCOM-175-7FA0 
CMPU-C35-5B75 



CC0M-176-12 8E OiAO 
CMPU-036-AA1A 01B0 



01C0 DCLD-013-81EC DCLD-014- 81DC 
01D0 DCLD-021-2B48 DCLD-022-81CA 



DCLD-015-F554 
DCLD-023-7F3C 



DCLD-016-F551 
DCL 0-024-5006 



DCLD-017-7F3E 
DCLD-025-C4E3 



DCLD-018-5006 
DCLD-026-C240 



DCLD-019-C4E3 
DCLD-027-5F3C 



DCL0-02G-0240 01C0 
DCLD-028-5006 01D0 



01E0 DCLD-029-C4DA DCLD-030-C569 
01F0 DCLD-037-2B42 DCLD-038-D169 



DCLD-031-1573 
DCLD-039-3 543 



DCLD-032-0240 
DCL 0-040-0240 



DCLD-033-3D00 
DCLA-402-52FF 



DCLD-034-0240 
DCLA-40 3-526C 



DCLD-035-2307 
DCLA-404-52EF 



DCL0-036-4F3F 01E0 
0CLA-405-51F2 01F0 



CONTROL STORAGE 



8 



C000-01FE 



CONTROL STORAGE ADDRESS LIST 



0200-03FE 



8 
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0200 DCLA-41G-C606 DCLA-412-41E5 
0210 BWRP-008-887C CML T-172- 3002 



PCLA-416-C609 
CMLT-1 73-3D25 



DCLA-422-41EB 
CMLT-174-A752 



DCLA-423-42EF 
CMLT-175-1D25 



DCLA-424-53 6C 
CMLT-176-3002 



DCLA-425-42FF 
CMLT-1 77-A754 



DC L A -42 6-1 2 8E 02 00 
CMLT-178-89C4 0210 



0220 BMCK-003-3262 9MCK-004-9028 
0230 F1LE-264-4FCF F I LE-265-6F 1 1 



FILE-258-5C52 
FILE-266-C4B9 



F ILE-259-F939 
FILE-26 7-4FDF 



FILE-260-EC38 
FILE-268-5CC2 



FILE-261-2C07 
FILE-269-128E 



FILE-262-2D43 
BDIA-0 75-2810 



FILE-26 3-5EC0 0220 
BDIA-080-F56C 0230 



0240 BDIA-018-2810 BDI A-030- 32 10 
0250 BDIA-062-2810 BDI A-066-D553 



BDIA-048-2400 
BDIA-067-2810 



BDIA-053-F8CB 
BOIA-072-E53C 



BDIA-054-B7C9 
BCHK-257-0C2B 



B0IA-056-2810 BDI A-C 57-2 5F3 BDI A-061-C54F 0240 
BCHK-258-C4E4 BCHK-259-0D8D BCHK-260-C4E4 0250 



0260 BCHK-261-2DB5 BCHK-262- 2DEB 
0270 CCOM-036-5583 CCOM-037- 52 A8 



BCHK-263-42C0 

CC0M-C38-50AA 



BCHK-264-6A21 
CC0M-039-55BB 



8CHK-265-6B31 
CCOM-040-56A8 



BCHK-266-128E 
CCOM-041-5EAA 



BO IA-C 83-2810 
CCOM-042-100E 



BDIA-084-9FFC 0260 
CC0M-043-128E 0270 



0280 
0290 



0280 
0290 



02A0 

02 BO 



BCHK-270-B0EC 



02 AO 
02 BO 



02C0 CICY-185-ACD4 C ICY-186- A076 
0200 CICV-193-ACC0 C ICY-194- A3EE 



CICY-187-AEA6 
CICY-195-88E8 



CICY-18 8-A874 
CICY-196-96 9C 



CICY-189-A088 
CICY-197-8978 



CICY-190-A91C 
CICY-198-83B4 



CICY-191-A0B2 
CICY-199-AC4E 



CICY-192-A942 02C0 
CICY-200-AC4E 0200 



02E0 CICY-251-83S4 C IC Y-252- AE56 
02F0 CICY-259-S3B4 C IC Y-260- 83B4 



CICY-253-AE7C 
CICY-261-83B4 



CICY-254-AE20 
CICY-262-83B4 



CICY-2 55-A944 
CICY-263-ADDC 



CICY-256-A828 

CICY-264-ADD0 



CICY-257-A988 
CICY-265-AA78 



CICY-25 8-AD62 02 EO 
CICY-266-AA78 02F0 



CONTROL 
STORAGE 



8 



02 — 

03 — 



0300 FILT-025-96A2 F ILT-G26-96A2 F I LT-027-8 30A 
0310 FILT-033-OC8B F IL T-034-FQA2 F I LT-035-5EF0 



FILT-028-2F7B 
FILT-036-0F83 



FILT-C29-5EE4 
FILT-037-F0DE 



FILT-030-1D00 
FILT-C38-5CF8 



FILT-031-5CF8 
FILT-039-A967 



FILT-032-A967 0300 
FILT-040-0C8B 0310 



0320 FILT-041-C4E1 F ILT-042-CDA9 F I LT-043-4FCF 
0330 FILT-049-F0E4 F I LT-C50-4886 F I LT-051-C4E5 



FILT-044-F0E1 
FILT-052-7E42 



FILT-G45-5AF8 
FILT-053-FC3E 



FILT-C46-5CF8 
FILT-054-FBBF 



FILT-047-58F8 
FILT-C55-2A07 



FILT-048-0C83 0320 
FILT-057-CDED 0330 



0340 FILT-058-4DCF F I LT-059-5C52 F I LT-060-8B90 
0350 CICY-084-5EA8 C IC Y-085- 56A0 C I CY-086-6 178 



CICY-090-2FQ7 
CICY-087-606F 



CICY-091-128E 
CICY-088-6FAD 



CICY-081-5098 
CICY-G89-128E 



CICY-082-50BB 
DCLA-228-8A8C 



CICY-083-C4C7 0340 
FILT-078-5E42 0350 



0360 FILT-079-3F73 F ILT-080- 5EE4 F I LT-081-7E42 
0370 FILT-063-2D35 F ILT-064-3043 F I LT-065-5EC0 



FRT-082-2F25 
FILT-066-8BA3 



FILT-083-2E07 
DYPE-191-5E29 



FILT-084-92BA 
OYPE-192-2791 



FILT-061-4DCF 
DYPE-193-7C68 



FILT-C62-2C07 0360 
DYPE-194-7468 0370 



0380 0YPE-195-7268 DYP E-196- 7068 DYPE-1 97-2771 
0390 CDVD-902-E195 CDVD-003-3485 CD VD-004-8 AC8 



DYPE-198-128E 
CDVD-C05-B2C2 



8CHK-324-07FF 
BCHK-327-00C8 



BCHK-324-C48A 
BCHK-32 7-0000 



BCHK-324-8800 
BCHK-330-4E08 



BCHK-324-4E08 0380 
BCHK-330-128E 0390 



03A0 CMLT-181-3002 CMLT-182- A752 CMLT-183-3002 
03B0 CICY-075-6834 C ICY-076- 6884 C I CY-077-2B13 



CMLT-184-B472 
CICY-078-89FC 



BCHK-334-0000 
BCHK-349-2FF7 



BCHK-334-0000 
BCHK-349-2F1B 



BCHK-334-0000 
8CHK-3 49-C4BC 



BCHK-334-0000 03A0 
BCHK-349-0F01 03B0 



03C0 BDIA-347-C4C0 BDI A-348-4AC2 BD I A-349-4CD2 
03D0 BDIA-355-6AC2 BOI A-356-6CD2 3D I A-3 57-6EF2 



80IA-35Q-4EF2 
BDI A-35 8-83 B8 



BDIA-351-2A1B 
BDIA-331-4812 



8DIA-352-2C1B 
3DIA-332-3935 



BDIA-353-2E1B 
BOIA-333-292B 



BDIA-354-E0F2 03C0 
B0IA-334-68E2 03D0 



03EO BDIA-335-2A25 R DI A-336- 2BF5 BD I A-337-3B73 
03FO BDIA-343-83D0 BDI A-373-2505 BD IA-374-251B 



BDIA-338-2C25 
BDIA-375-F4FD 



BDIA-339-2D15 
B0IA-376-C4F4 



8DIA-340-3D33 
8DIA-377-5007 



8DIA-341-2E05 
B0IA-381-2413 



B0IA-342-2F13 03E0 
BDIA-382-883C 03F0 



CONTROL STORAGE 



8 



0200-03FE 



CONTROL STORAGE ADDRESS LIST 

2 

040G CICY-225-B412 CICY-226- 
0410 CICY -233-8420 CICY-239- 



0400-05FE 



8 



CL0AD=*E60, EC LEVEL= 
C 



A85A CICY-227-A9BA 
83B4 CICY-241-83B4 



CICY-228-AE44 C ICY-229-A84C CICY- 
CICY-246-83B4 C ICY-247-8886 CICY- 



230-A816 CICY- 
248-8886 CICY- 



231-AB72 
249-8886 



CICY- 
CICY- 



128266 ,PAGE 281 

E 04 — 

23 2-A958 0400 
250-8886 0410 



0420 CSFT-087-0002 C SFT-C88-D02C 
0430 CSFT-095-6FFD C SFT-Q96-6EED 



CSFT-089-611B 
CSFT-097-E4B8 



CSFT-09 0-60CD 
CSFT-098-3000 



CSFT-091-633D CSFT-09 2-6220 CSFT-C93-677D CSFT- 
CSFT-099-6AAO CSFT- 10C-2DFB CSFT-101-F0A0 CSFT- 



094-6660 0420 
102-128E 0430 



0440 BDIA-122-5007 DCLC-1 16- 2848 
0450 3SWI-013-1EFF B SWI -014-C4F7 



DCLC-118-AF70 
8SWI-024-5E09 



BSWI-007-2F07 
BSWI-025-6EE3 



BSWI-008-3600 BSWI-009-00C0 BSWI -0 10-81AA BSWI- 
BSWI-026-6EE3 BSWI-027-6E03 BSWI-034-2B55 BSWI- 



■012-5AEF 0440 
•035-50B8 0450 



0460 8SWI-036-5234 8SW I -037-2002 
0470 BSWI-047-9243 B SW I-049-F5F9 



BSWI-038-72E9 
BSWI-C 50-2608 



BSWI-039-71 A9 
BSWI-051-AB04 



BSWI-040-70A9 BSWI -042-42 AF BSWI-044-70B8 BSWI- 
BSWI-052-E976 BSWI -053-8A 54 FI LE-008-7CC2 FILE- 



045-72BA 0460 
009-2480 0470 



0480 FILE-010-C62A F ILE-01 1-EO 13 
0490 FILE-018-A024 F IL E-019- 50BF 



FILE-012-F020 
FILE-0 20-1BC5 



FILE-013-D9A0 
FILE-021-D9A3 



FILE-C14-6711 FILE-015-C4A0 FI LE-0 16-7032 FILE 
FILE-022-3210 FI LE-023-2D04 FI LE-024-4DBF FILE' 



■017-9130 0480 
•025-1210 0490 



C4A0 PILE-026-AFCA F ILE-027-F5BD 
04B0 FILE-034-F5BD F ILE-035- E1C3 



FILE-028-2E07 
FILE-036-F056 



FILE-029-D9C0 
FILE-037-DBFD 



FILE-030-810C F I LE-03 1-3065 FILE-0 32-7032 FILE- 
FILE-038-8224 F I LE-039-DBFC FI LE-C40-2 E55 FILE- 



033-E023 04 AO 
041-2002 04B0 



04C0 FILE-042-855F p I LE-043-D8CC 
04D0 FILF-050-2F35 F ILE-051-CD02 



FILE-044-8224 
FILE-052-855E 



FILE-045-DBBD 
FILE-05 3-7242 



FILE-046-2E43 F I LE-047-4F EF FI LE-048-2 E25 FILE- 
FILE-C54-42EF F ILF-055- 5A 30 FI LE-C56-0 A4B FILE- 



049-F053 04C0 
•057-C4E4 0400 



04E0 FILE-058-8F^6 F It E-059-910C 
04F0 FILE-066-ECF6 F IL E-C67-0A7B 



FILE-060-DBEB 
FILE-068-F0FD 



FILE-061-8224 F ILE-062-OBBD F ILE-063-CA3B FILE-C64-C4F0 FILE- 
FILE-070-0133 F ILE-074-F0FD * I LE-075- 85CF F I LE-C76-5ECF FILE- 



•06 5-0 AID 04 EO 
077-1CA3 04F0 



CONTROL 
STORAGE 



8 



C 



04 — 
05 — 



0500 FILF-078-C4R9 F IL E-C79- 2C43 
0510 FILE-086-2A45 F I LF-037- 8558 



FILE-080-A5E6 
FILE-088-2C85 



FILE-081-855A 
FILE-089-3504 



FILE-082-8FA6 FILE -083-EE95 FILE-084-DE99 FILE- 
FILE-090-2E15 F ILE-09 1-FAAB FI LE-092-CE8E FILE- 



085-AEEC 0500 
093-E5B7 0510 



C520 FILE-094-F02 5 F ILE-095-9068 

0530 FILE-1C2-0A1O F ILE- 103-E0C6 

0540 PILE-110-F061 p IL E- 1 1 1- AEEC 

0550 FILE-113-F05B F I L E-l 19-3E 15 



FILE-C96-49AF 
FILE-104-910C 

FILE-112-856A 
FILE-120-855A 



FILE-097-5CC2 
FILE-105-A044 

FILE-113-2A13 
FILE-121-A044 



FILE-098-810C F I LE-099- AEEC F I LE-1 00-0 A3B 

FILE-106-2E43 F ILE-10 7-F03F F ILE-1 08-3E1 5 

FILE-I14-E5D6 F I LE-1 1 5- A044 FI LE-1 16-A5 > EC 

FILE-122-A5EC F I LE-12 3-2B43 FI LE-1 24-70A0 



FILE-101-F0C6 0520 

FILE-109-A052 0530 

F ILE-1 17-3E43 0540 

FILE-125-F068 0550 



0560 FILE-126-2400 F ILE-127-5CC2 
0570 FILE-134-C275 F RE- 135- 2F07 



FILE-128-2F07 
FILE-136-2A07 



F ILE-129-A01E 
FILE-137-C3FF 



FILE-130-E073 F I LE-13 1-234B FI LE-1 32-5630 FILE- 
FILE-138-2400 F ILE-139-5CC2 FI LE-1 40-A030 FILE- 



133-2F85 0560 
141-A7D8 0570 



0580 FRX-149-0F88 F I L K-l 50-DF 8E 
0590 FILX-157-FC1A F I LX-1 58-0036 



FILX-151-85AC 
FILX-159-2C43 



FILX-152-85AC 
FILX-160-85F2 



FILX-153-2D10 F ILX-1 54-E 833 FI LX-1 55-859A FILX- 
FILX-161-D193 FILX-162-2F15 FI LX-1 63-85B8 FILX- 



156-C819 0580 
164-DFD8 0590 



0"5A0 FILX-165-85AC F ILX-166- 859E 
05B0 FILX-173-F81 A F I LX-174-D19A 



FILX-167-2C23 
FILX-175-FD70 



FILX-163-FFEE 
FILX-176-2F43 



FILX-169-2C83 F I LX-1 70-CF F2 FI LX-1 71-2F07 FILX- 
FILX-177-2EA5 F ILX-178-7E 52 FI LX-1 79-2 E23 FILX- 



■172-85B8 05A0 
•180-92B8 0580 



05C0 FILX-181-0FBO F I LX-132- DFC8 
0500 FILX-189-85B6 F ILX-190- 2010 



FILX-183-EFF1 
FILX-191-01CF 



FILX-184-85AC 
FILX-192-859A 



FILX-185-E89B F ILX-1 86-E 353 FI LX-1 87-D 81 A FILX- 
FILX-193-2E08 FI LX-194-2C 15 FI LX-1 95-0073 FILX- 



188-E014 05C0 
196-85B6 0500 



05E0 FRX-197-85AC F IL X-l 98-0FC8 
05F0 FILX-205-2C0 7 F ILX-206-D6F7 



FILX-199-85AC 
FILX-207-221E 



FILX-200-OC6C 
FILX-208-3D0C 



FILX-201-3E00 F ILX-202-0E04 FILX-203-2C33 FILX- 
FILX-209-7C52 FILX-210-2C 15 FILX-211-48CF FILX- 



204-CFF2 05E0 
212-1000 05F0 



CONTROL STORAGE 



8 



E 0400-05FE 



CONTROL STORAGE ADDRESS LIST 

•0 2 

060C FILX-213-5C32 FILX-214- 
0610 FILX-098-FC94 FILX-099- 



D686 FILX-215-0222 
ED16 FrLX-100-98A6 



C600-07FE 



FILX-216-2C85 F ILX-2 17-7C32 
FILX-1C1-3D13 FILX-102-2C25 



CLOA0=*E60, EC LEVEL= 

A C 

FTLX-218-021E Fl LX-2 19-810C FILX- 

FILX-103-C920 FI LX-104-FD26 FILX- 



12 8266 f PAGE 282 

E 06 — 

■097-0083 0600 
105-3DF3 0610 



0620 FRX-106-FD26 F I I X- 107-3003 
0630 FILX-114-30A5 F IL X- 1 1 5- 7C 52 



FILX-108-1015 
FILX-116-2F45 



FILX-109-CD2F F ILX-1 10-3085 F I LX-1 1 1-DD32 
FILX-117-CDDB F ILX-1 18-F9BF F ILX-1 1 9-4886 



FILX-112-1DFD FILX- 
FILX-120-C40A FILX- 



113-0033 0620 
121-D0D8 06 30 



0640 FILX-122-2E08 F I L X-123-0E04 
0650 FILX-130-DEDE F IL X-l 31-EEDF 



FILX-124-5E42 
FILX-132-830A 



FILX-125-5CFC F ILX-126-0CC3 F I LX-12 7-C405 
FILX-140-8D87 F ILX-141-2FQ7 F I LX- 142-2E C3 



FILX-128-0C3B FILX- 
FILX-143-92BA FILX 



•129-FODE 0640 
•133-EDD7 0650 



0660 FILX-134-2F63 F I L X-135- 58F8 
0670 FILE-248-2308 F IL E-249-2308 



FILX-136-7E42 
FILE-25C-128E 



FILX-137-2F07 
FILE-251-2112 



FILX-138-2E65 FILX-1 3 9-85BA 
FILE-252-5ECF F ILE-253-6CD1 



FILE-246-2308 FILE 
FILE-254-C4F5 FILE 



•247-2308 0660 
•25 5-90FC 0670 



0680 FILX-007-9758 F ILX-C08- 8FFB 
0690 FILX-015-85AC F I L X-016-8F8B 



FILX-009-EFB8 
FILX-017-EFC8 



FILX-010-EFE2 
FILX-018-EFE2 



FILX-011-9874 FILX-012-8F9B 
FILX-019-85AC F I LX-02C-8FDB 



FILX-013-EFCC FILX- 
FILX-021-EF06 FILX- 



■014-EFE2 0680 
■022-EF91 0690 



06A0 FILX-023-DF91 F I LX-024-5E 32 
06B0 FILX-043-7C07 F I L X-044-FFE7 



FILX-025-FFF6 
FILX-045-F8B4 



PILX-C26-3E0C 
FILX-046-8632 



FILX-027-CD2C F ILX-028-859A 
FILX-052-FFDB F ILX-05 3-DF 91 



FILX-041-1E45 FILX- 
FILX-054-CD11 FILX- 



042-7E32 06 AO 
055-3E00 06B0 



06C0 FILX-056-F5C1 F I L X-057- 2C65 
06D0 FILX-064-FFC8 F IL X-065-D1CA 



FILX-058-4DCF 
FILX-066-8594 



FILX-059-872A 
FILX-06 7-FFCE 



FILX-060-FF90 F I LX-061-85F0 
FILX-068-DC4E F I LX-069-DC4A 



FILX-062-E851 FILX- 
FILX-C70-3E00 FILX- 



063-F84A 06C0 
071-0E04 0600 



06EO FRX-072-85F0 F ILX-078-0F91 
C6F0 FRX-C94-7C52 F I L X-G95- 5E42 



FILX-079-9058 

F!LX-0^6-830A 



FILX-089-5DB8 
FILX-029-DE2D 



FILX-090-5886 F I LX-091-CDEF 
FILX-030-F5AB F I LX-03 1-EC 31 



FILX-092-860E F I L X- 
FILX-032-2C33 FILX- 



093-C4EC 06E0 
033-4FCF 06F0 



CONTROL 
STORAGE 







8 



06 — 
07 — 



0700 FILX-034-5DDD FIt.X-035- 

C710 FILX-322-E976 FILX-323- 

072C FILX-336-FFF1 FILX-337- 

0730 FILX-344-2D23 FILX-345- 

0740 FILX-352-2E85 FRX-353- 

0750 FILX-367-FFE"! FRX-368- 

0760 FILX-373-F503 FILX-374- 

0770 FILX-357-CBCA PILX-358- 

0780 FILX-335-92B8 DYPE-003- 

0790 DYPF-010-OF10 DYPE-011- 

07A0 OYPE-019-9A0C DYPF-020- 

07B0 DYPE-028-DE93 0YP c -029- 

07C0 DYPE-037-FEC6 OYPF-038- 

0700 DYPE-C46-0F20 DYPE-047- 

07E0 DYPE-054-E567 DYPE-055- 

07F0 OYPE-062-0578 DYPF-063- 

CONTROL STORAGE 2 



30B5 
5C52 


FILX- 
FILX- 


-036- 
-324- 


-5E42 

-F5A0 


C8E9 
4EDF 


FILX- 
FILX- 


-338- 
-346- 


-OBCC 
-2018 


7E32 
F9DC 


FILX- 
FILX- 


-354- 
-369- 


-C3C9 

-CDDD 


CDDF 
E96B 


FILX- 

FILX- 


-375- 
-3 59- 


-DD09 
-9860 


FFA3 
1F28 


DYPE- 
DYPE- 


-004- 
-012- 


-FAA5 
-3C83 


A6B8 
2E07 


DYPE- 
DYPE- 


-021- 
-030- 


-947A 
-CE8F 


3D45 
5006 


OYPE- 
DYPE- 


-039- 
-048- 


-B36E 
-C4DA 


3445 
3EC3 


OYPE- 
OYPE- 


-0 56- 
-064- 


-15C5 
-3485 



FILX-037-3E0C 
FFLX-325-2D23 

FRX-339-C96B 

FILX-347-F0B4 

FILX-355-810C 

FILX-370-DDDC 

FILX-376-8658 
FILX-330-CDFB 

0YPE-005-98 16 
DYPE-013-8FBE 

DYPE-022-D13D 
DYPE-031-FEA1 

0YPE-04 0-8FBA 
0YPE-049-C57B 

0YPE-057-E145 
DYPE-065-8792 



FILX-038-0E04 
FILX-326-3D15 

FILX-340-FFF4 
FILX-348-4BDF 

FRX-356-9608 
FUX-371-7E32 

FILX-360-D974 
FILX-331-F9F0 

DYPE-0 06-A566 
DYPE-014-CE9C 

DYPE-023-CE2D 
DYPE-032-3423 

DYPE-041-DFF8 
DYPE-050-3483 

DYPE-058-5DD9 
DYPE-066-A1D2 

8 



FILX- 
FILX- 


-039- 
-327- 


-2C45 

-ID 00 


FILX- 
FILX- 


-0 40- 
-328- 


-85F2 
-4BDF 


FILX- 
FILX- 


-321- 
-329- 


•1000 
-0222 


0700 
0710 


FILX- 
FILX- 


-341- 
-34 9- 


•2E08 
-5E32 


FILX- 
FILX- 


-342- 

-3 50- 


-2007 
-1D00 


FILX- 
FILX- 


-343- 
-351- 


-4BDF 
-D69F 


0720 
0730 


FILX- 
FILX- 


-364- 
-372- 


•D8A6 
-8642 


FILX- 
FILX- 


-365- 
-377- 


-5E32 
-7E32 


FILX- 
FILX- 


-366- 
-378- 


-1E45 
-8634 


0740 
0750 


FILX- 
FILX- 


-361- 
-33 2- 


-2E25 
■92A4 


FILX- 
FILX- 


-362- 
-3 33- 


-2F43 
-DD9F 


FILX- 
FILX- 


-363- 
-334- 


-85BA 
-2E83 


0760 
0770 


DYPE- 
DYPE- 


-00 7- 
-015- 


-C826 
-2F04 


DYPE- 
DYPE- 


-008- 
-016- 


-CE92 

-8378 


DYPE- 
DYPE- 


-009- 

-018- 


-3E85 
-FEDC 


0780 
0790 


DYPE- 
DYPE- 


-024- 

-033- 


-2E43 
■8792 


DYPE- 
DYPE- 


-0 25- 
-034- 


-C413 
-C471 


DYPE- 
DYPE- 


-02 7- 
-036- 


-2485 
-2E07 


07 AO 
07B0 


DYPE- 
DYPE- 


-043- 
-051- 


-C05F 
-83 7A 


DYPE- 
DYPE- 


-044- 
-052- 


-5F38 
-AB20 


DYPE- 
DYPE- 


-045- 
-053- 


-4FFF 
-1483 


07C0 
0700 


DYPE- 
DYPE- 


-059- 
-067- 


-C4F1 
-1485 


DYPE- 
DYPE- 


-0 60- 
-068- 


-15C5 
-8378 


DYPE- 
DYPE- 


-061- 
-070- 


-3E23 
-A598 


07E0 
07F0 




A 






C 






E 


0600 


-07FE 



CONTROL STORAGE ADDRESS LIST 

2 

0800 BDIA-280-4E02 BDI A- 281- 

08 10 BDIA-304-E190 8DIA-3C5- 

0820 BDIA-312-3802 3DIA-313- 

0830 B0IA-320-4E22 3DIA-321- 

0840 8DIA-388-3808 8DIA-389- 

0850 3DIA-400-886E RDIA-401- 

0860 BDIA-408-1212 80IA-409- 

0870 BDIA-416-3804 30IA-417- 

0880 DCLA-121-AFF2 DCLA-122- 

0890 DCLA-007-3B33 DCLA-008- 

08A0 ALDP-261-AB20 4LDP-262- 

08B0 AL0P-269-2440 ALDP-270- 

08CC ALDP-243-3F00 ALDP-244- 

08D0 ALDP-253-EEA2 AL0P-254- 

08EC BPSW-G69-2B5 3 BfSW-070- 

08FO B0IA-271-2E8T 8DIA-272- 



0800-09FE 



CL0AD=*E60, EC LEVEL= 
C 



2E1B 
2EC5 


BDIA- 
3DIA- 


-282- 
-306- 


-2F1D 
-3E43 


00 20 
6E12 


BD I A- 
BDIA- 


-314- 
-322- 


-E1A5 
-3EC9 


050D 
0E3F 


BDIA- 
8DIA- 


-390- 
-402- 


-3800 
-FED4 


886E 
6E80 


8DIA- 
BDIA- 


-410- 
-418- 


-0F1F 
-CAF4 


9C28 
46 A6 


DCLA- 
DCLA- 


-123- 
-009- 


-A25E 
-17FD 


3BE9 
7872 


ALDP- 
ALDP- 


-263- 
-2 71- 


-76AA 
-2400 


C4CE 
1F2A 


ALDP- 
ALDP- 


-2 46- 
-255- 


-2F20 
-E31A 


2407 
2F05 


BPSW- 
BDIA- 


-0 71- 
-273- 


-6884 
-6E12 



BDIA-283-CA0D 
BDIA-307-2F85 

BDIA-315-D1AC 
BDIA-323-5EF1 

8DI A-391-DAC6 
BDI A-40 3-4ES0 

BDI A-411-FEE6 
BOI A- 41 9- 38 00 

DCLA-002-1CCE 
DCLA-010-804F 

ALDP-264-72AA 
ALDP-272-E33B 

ALDP-247-3F02 
ALDP-256-FA9B 

BPSW-072-89FE 
BDIA-274-6E22 



CONTROL 
STORAGE 







BQIA-284-6E02 BDIA- 

BDIA-308-3FA3 BDIA- 

BDIA-316-0040 BDIA- 

SDIA-324-8802 BDIA- 

BDIA-392-1212 BDIA- 

BDIA-404-6E80 BDIA- 

BDIA-412-4E80 BDIA- 

BDIA-42C-128E BWRP- 

DCLA-0C3-F90C OCLA- 

CSTS-112-83B4 ALDP- 

ALDP-265-74AA ALDP- 

ALDP-273-1600 ALDP- 

ALDP-248-1683 ALDP- 

ALDP-257-9302 CBIN- 

CBIN-034-AE06 C8IN- 

BDIA-275-3EE9 BDIA- 



8 



285-8388 BD [ A-302-E 1A3 
309-6E12 BDIA-310-2EF7 



■317-8308 
385-6443 

393-2800 
•405-FADA 

413-6E80 
C50-97F5 

004-ADFC 
258-2400 

266-70A0 
■274-AB20 

249-C4D0 
•042-B3F6 

•035-AC1A 
276-2F77 



BDIA-318-2040 
BDIA-386-2505 

80IA-394-C43A 
BDIA-406-0E3F 

BD I A -4 14-02 E 2 
BWRP-C11-D4FA 

DCLA-005-2C07 
ALDP-259-AAB1 

ALDP-267-2B20 
AL0P-241-2315 

ALDP-251-2345 
C8IN-043-B460 

B0IA-269-D1ED 
BDIA-277-8802 



BDIA- 
BDIA- 

BDIA- 
BDIA- 

BDIA- 
BDIA- 

BDIA- 
BWRP- 

DCLA- 
ALDP- 

ALDP- 
ALDP- 

ALDP- 
CBIN- 

BDIA- 
BDI A- 
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E 08 — 

•303-2020 0800 

■311-3F89 0810 

•319-D1AE* 0820 

-387-7543 0830 

■399-2440 0840 

■407-EADE 0850 

•415-4E80 0860 

•G12-979D 0870 

■006-2B45 0880 

■260-0610 0890 

•268-7EA0 08A0 

-242-3353 08 BO 

•252-2F0A 08C0 

■044-AClC 08D0 

■270-E1EF 08E0 

■008-8240 08F0 

E 08 — 
09 — 



0900 CMLT-134-89C4 CMLT-135- 8920 

0910 CMLT-142-A378 CML T-143-903A 

0920 CMLT-150-A75? C ML T-151- 89C4 

0930 CFLS-040-7278 C FL S-041- 7070 

0940 0CLA-074-R042 DCL A-075-AB43 

0950 DCLA-096-C4D4 DCL A-097-8A7A 

0960 DCLA-110-6F11 DCL A-l 1 1- E0E7 

0970 CFC0-081-72A3 CFCO-082-70AO 

0980 CMLT-018-29F7 CML T-01 9- 2C 13 

0990 CMLT-C26-7CF2 CMt T-027-4C 52 

09A0 CMLT-034-7EC8 CML T-035-9AFA 

09B0 CMLT-042-46C6 CML T-043-4E06 

09C0 CMLT-050-1002 CMLT-051-BB03 

09D0 CMLT-058-BF03 CML T-059-2C2B 

09EO CMLT-070-E068 CML T-071- 3002 

09F0 CMLT-078-7EAA CMLT-079-F47A 



CMLT-136-A37A 
CMLT-144-8212 

CFLS-034-4606 
CFLS-042-817A 

DCLA-081-523A 
DCLA-099-001B 

DCLA-120-8011 
CFCO-083-1B73 

CMLT-020-0275 
CMLT-028-2D1D 

CMLT-036-9AFA 
CMLT-044-40C6 

CMLT-052-0D53 
CMLT-060-AF4A 

CMLT-072-2D15 
CMLT-0 80-1B15 



CMLT-13 7-B46C 
CMLT-145-83A0 

CFLS-035-45BB 
CFLS-043-AA76 

DCLA-089-0249 
DCLA-100-C4E8 

DCLA-125-847C 

CFC0-084-128E 

CMLT-021-E08B 
CMLT-029-2D8B 

CMLT-037-8994 
CMLT-045-2C13 

CMLT-0 53-C5CC 
CMLT-061-C838 

CMLT-073-A752 
CMLT-081-76A8 



CMLT-138-B472 CMLT-139-B46E 

CMLT-146-AFFC CMLT- 147-83A2 

CFLS-036-B42E CFLS-03 7-7E78 

DCLA-069-5EB8 DCLA-0 7 1- 7EF2 

DCLA-091-F4CI DCLA-092-0383 

DCLA-105-5632 DCLA-107-23 Al 

DCLA-133-95BC CFC0-078-7E A8 

CMLT-014-AE06 CMLT-01 5-9814 

CMLT-022-3C23 CMLT-02 3-5989 

CMLT-030-CD29 CMLT-03 1- 78C8 

CMLT-038-2D07 CMLT-039-48C6 

CMLT-046-C5BE CMLT-047-2F IB 

CMLT-054-2F10 CMLT-055-F4D3 

CMLT-063-C1DC CMLT-064- A354 

CMLT-074-8176 CMLT-075-2A07 

CMLT-082-70AA CMLT-G83-AA76 



CMLT-140-A200 
CMLT-148-821A 

CFLS-038-7878 
DCLA-C72-QEF5 

DCLA-C93-F0C0 
DCLA-108-5FAA 

CFC0-0 79-7 8A8 
CMLT-016-2907 

CMLT-024-4A86 

CMLT-032-7AC8 

CMLT-C40-4AC6 
CMLT-C48-F403 

CMLT-0 56-2D55 
CMLT-065-54F2 

CMLT-076-55BB 
BPSW-003-2F07 



CMLT- 
CMLT- 


-141- 
-149- 


-A372 

-3002 


0900 
0910 


CFLS- 
OCLA- 


-039- 

-073- 


-F435 
-F0C3 


0920 
0930 


DCLA- 
OCLA- 


-09 5- 
-109- 


-5009 
-5FE1 


0940 
0950 


CFCO- 
CMLT- 


-080- 
-017- 


-F475 

-C604 


0960 
0970 


CMLT- 
CMLT- 


-025- 
-033- 


-OOCO 
-76C8 


09 80 
0990 


CMLT- 
CMLT- 


-041- 
-049- 


-44C6 
-2015 


09 AO 
09B0 


CMLT- 
CMLT- 


-057- 
-069- 


-1002 
-C5E9 


09C0 
0900 


CMLT- 
BPSW- 


-077- 
-004- 


■72A8 
-2125 


09EO 
09F0 



CONTROL STORAGE 



8 



E 0800-09FE 



CONTROL STORAGE ADDRESS LIST 

2 

OAOG BPSW-005-21EB BPSW-006-2007 

OAIO BPSW-013-5482 RPSW-014-C416 

OA20 BPSW-021-5E32 B P SW-022- 7E 10 

0A30 BPSW-031-5E18 B PS W-032- 5810 

0A40 BPSW-039-2A07 R PSW-040-7CC2 

0A50 8t>SW-062-F0DA BPS W-063-AA06 

0A60 DCLA-392-8CC8 DCLA-394-9F24 

0A70 ERRQ-095-5CAA E RRQ-096- 128E 

0A80 DCLA-144-271D DCLA- 145-5BE8 

0A90 DCLA-274-8F7A DCL A-275-07FD 

OAAO 0CLA-286-A030 DCLA-287- 810C 

OABO DCLA-327-3773 DCL A-329-95F4 

OACO DCLA-278-D5I8 DCL A-279- 15C5 

OADO CC0M-033-C008 CCOM-034- 128E 

OAEO BWRP-051-9D74 8 WP P-C53-96B0 

OAFC 5C0 7 CFAD-007-3B35 



OAOO-OBFE 



8 



BPSW-007-420F 
BPSW-015-2E4D 

BPSW-023-214D 
BPSW-033-2020 

BPSW-041-4FDF 
8PSW-066-0004 

DCLA-395-9F24 
ERRQ-097-2402 

DCLA-146-6B11 
DCLA-276-E0C0 

0CLA-305-F037 
DCLA-369-AECA 

DCLA-2 80-7460 
CSTS-068-8ADA 

BWRP-057-B1FC 
CFAD-008-896A 



BPSW-008-5CEB 
BPSW-016-D41A 

BPSW-024-5C18 
BPSW-034-4ED3 

BPSW-042-E955 
BPSW-067-F1D5 

DCLA-400-B31C 
ERRQ-098-2BB1 

DCLA-147-C48D 
DCLA-277-A46C 

DCL A- 30 6- DB 35 
DCLA-354-DB3C 

DCLA-281-8A9E 
CSTS-06 9-7098 

BWRP-061-B1FC 
CFAD-009-5E79 



BPSW-009-3E45 
BPSW-017-2E4D 

BPSW-02 5-44CF 
3PSW-035-5ECB 

BPSW-054-2020 
BPSW-068-8448 

ERR0-091-2A15 
ERRQ-099-C4F0 

DCLA-148-DB01 
DCLA-282-C41E 

DCLA-320-CE3F 
DCLA-365-CE34 

CCOM-0 29-55B3 
CSTS-070-AA76 

BWRP-065-B1FC 

CFAD-010-5AE2 



BPSW-C10-4DE5 
BPSW-018-781A 

8PSW-C2 7-42DF 
BPSW-036-1CC5 

BPSW-055-F1D8 
BPSW-064-2B63 

ERR0-092-F774 
DCLA-141-2543 

DCLA-173-95BC 
DCLA-283-0123 

DCLA-324-5669 
DCLA-366-DF35 

CC0M-030-56A8 
CSTS-071-500F 

BWRP-073-5007 
CFAD-C11-842E 



CLOAD^ 


=*E60f EC 
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C 


E 


OA — 


BPSW- 
BPSW- 


-011-E193 
-019-7E1A 


BPSW-012-5892 
BPSW-020-7A1A 


OAOO 
OAIO 


BPSW- 
BPSW- 


-029-7C82 
-C37-FC40 


BPSW-030-6004 
BPSW-038-3C45 


0A20 
0A30 


8PSW- 
BPSW- 


-059-AB71 
-065-88E2 


BPSW-061-09E3 
CSTS-U3-83B4 


0A40 
0A50 


ERRO- 
DCLA- 


-093-2406 
-142-4E66 


ERRQ-094-2BF5 
DCLA-143-1FCB 


0A6G 
0A70 


DCLA- 
OCLA- 


-251-5E60 
-284-DA23 


DCLA-253-E024 
DCLA-28 5-4E52 


0A80 
0A90 


OCLA- 
DCLA- 


-325-E0B1 
-367-3613 


DCLA-326-81F8 
0CLA-368-8765 


OAAO 
OABO 


CCOM- 
CSTS- 


-031-5EAA 
-072-511F 


CCOM-032-55BB 
CSTS-073-128E 


OACO 
OADO 


BWRP- 
CFAD- 


-075-B1FC 
-012-2C07 


BWRP-079-98D6 
CFAD-013-5E69 


OAEO 
OAFO 



CONTROL 
STORAGE 



8 



OA — 
OB — 



0300 CFAD-014-5FD9 C FAD-G1 5- 2040 CFAD-01 6-767 1 

0R10 C=AD-023-0040 C FAD-025-57E9 CF AD-026-7C61 

0B20 CFAD-032-E0A5 CFAD-033- 2CF3 CF AD-034-F0BF 

0B30 CFAD-040-5AE2 CFA0-041-B42E CF AD-042-8840 

0B40 CFAD-C48-3B35 C FAD-049-0008 CF A0-050-D1CB 

0B5C CFAD-056-0008 C ^AD-057-B04A CFAD-058-5 AE2 

0B60 CFAD-064-E070 C FAD-065-0008 CF AD-066-2002 

0B70 CFAD-072-8178 C FAD-073- D5F9 CF AD-074-F 5F9 

0R80 CFAD-082-5CC? C FAD-083-D5CA CF AD-084-D043 

0B90 CFAD-C90-F49 C 5 C PAD-091- 2507 CF AD-092 -8B86 

OBAO CFA0-100-1E8D C FAD- 101- 27D3 CF AD-102-2507 

OBBO CFAD-109-2A07 C FAD-1 10-2E1B CF AD-1 11-E4BB 

OBCO CFAD-117-2C80 CFAD-1 1 8-2C25 CF AD-1 19-C E48 

08D0 CFAD-126-396A CFAD- 127-81 7A CF AD-1 28-2C07 

OBEO CICY-055-AA20 DCLE-034-FDEA DCLE-035-B09C 

OBFO DCLE-039-BCB6 DPTS-043- 2482 DP TS-044-5449 



CFAD-018-E48E 
CFAD-027-FG1A 

CFAD-03 5-D1B6 
CFAD-043-1E85 

CFAD-051-75AD 
CFA0-059-C5EE 

CFAD-067-755B 
CFAD-075-AA74 

CFAD-085-0FF3 
CFAD-093-F493 

CFA0-103-3B86 
CFAD-112-P : 4BD 

CFA0-120-1C7D 
CFAD-129-F05B 

DCLE-032-EDE2 
DPTS-045-C4FC 



CFAD-019-F491 
CFA0-028-1C8D 

CFAD-036-3B35 
CFAD-044-CD3C 

CFAD-C52-8B4E 
CFAD-060-F5DE 

CFAD-068-006C 
CFAD-077-CE7D 

CFA0-086-C4C2 
CFAD-094-ED1F 

CFAD-104-2A13 
CFAD-113-8BC2 

CFAD-121-B1A6 
CFAD-130-AA76 

DCLE-033-8172 
DPTS-0 46-5460 



CFAD-020-56C9 
CFAD-029-CC1E 

CFAD-037-342E 
CFAD-045-3E85 

CFAD-C53-C5C6 
CFAD-061-0002 

CFAD-06 9-0008 
CFAD-078-A824 

CFAD-087-B2F8 
CFAD-C97-2C07 

CFAD-106-2C13 
CFAD-114-F4B9 

CFAD-123-FD4F 
CFAD-131-28E3 

DCLE-036-2B40 
DPTS-047-8022 



CFAD- 
CFAD- 


-021- 

-030- 


-8B16 
-300 2 


CFAD 
CFAD 


CFAD- 
CFAD- 


-0 38- 
-046- 


-A656 
-A656 


CFAD 
CFAD 


CFAD- 
CFAD- 


-0 54- 
-C62- 


-755B 
-8B6E 


CFAD 
CFAD 


CFAD- 
CFAD- 


-070- 
-C79- 


-9564 
-A820 


CFAD 
CFAD 


CFAD- 
CFAD- 


-D88- 
-0 98- 


-2EFF 
-B1AG 


CFAD 
CFAD 


CFAD- 
CFAD- 


-107- 
-115- 


-A656 
-1E8D 


CFAD 
CFAD 


CFAD- 
CFAD- 


-124- 
-132- 


-2E07 
-89FC 


CFAD 


DCLE- 
DPTS- 


-0 37- 
-048- 


-2645 
-9816 


DCLE 
OPTS 



■02 2-F48B OBOO 

•031-1C85 0B10 

-Q39-896A 0B20 

■047-0040 0B30 

•055-D052 0B40 

-063-1E8D 0B50 

-071-E07F 0B60 

•080-F5A9 0B70 

•089-E496 0B80 

-099-2080 0B90 

•108-5CC2 OBAO 

-116-27C3 OBBO 

•125-1E85 08CQ 

5007 OBOO 

•038-3613 OBEO 

-049-54C9 OBFO 



CONTROL STORAGE 



8 



E OAOO-OBFE 



CONTROL STORAGE ADDRESS LIST 

2 

OCOO DPTS-050-8F7A DPTS-051-DE87 
OC10 DPTS-061-1F45 DPTS-062- 1DOO 



OCOO-OOFE 



8 
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OC — 



DPTS-052-3F45 
DPTS-063-1F97 



DPTS-053-0C4B DPTS-054-C4BF DPTS-055-OC 38 0PTS-056-C4D7 DPTS-060-DE92 OCOO 
0PTS-064-DF5F DPTS -065-D85D DPTS-066-F8 5C OPTS-070-5CE9 DPTS-07 1-CC27 OCIO 



OC20 DPTS-O72-0EE9 DPTS-073-F4AE 
OC30 DPTS-088-4DC<= DPTS-089-E838 



DPTS-077-A37E 
DPTS-090-8CF0 



DPTS-079-6EE3 
DPTS-092-E8 5C 



DPTS-080-E0DD DPTS-08 1-OE 39 DPTS-C 85-F4B7 DPTS-087-2E05 0C20 
DPTS-093-A398 DPTS-098-2D02 DPTS-099-8D6E DPTS-104-F549 0C30 



0C40 0PTS-105-5F89 0PTS-106-E247 
0C50 DPTS-1 13-3445 OPTS-l 14-8D4C 



DPTS-107-1823 
DPTS-115-8056 



DPTS-108-7B38 
DPTS-121-DEDE 



OPTS-109-2E43 DPTS- 1 10-5006 DPTS-1 1 1-C55 1 DPTS-ll 2-C4D5 0C40 
DPTS-125-2EC3 DPTS- 126- 8D6E DPTS-131-3F85 DPTS-132-2E23 0C50 



0C60 DPTS-137-154 7 D0TS-138-F268 
0C7C DPTS-146-C174 DPTS- 147- 3485 



0PTS-139-3543 
0PTS-148-54F9 



DPTS-140-3D68 
OPTS- 149-8178 



0PTS-141-5E29 DPTS-142- B404 DPTS-143-52E9 DPTS-144-1485 0C6C 
DPTS-150-A030 CC0M-187-2B81 CCOM-1 88-5FA0 CCOM-189-12 8E 0C70 



0C80 OPTT-026-1543 DPTT-027-B448 
0C90 DPTT-034-7068 DPTT-035-C1 16 



DPTT-028-0A0F 
DPTT-036-3485 



DPTT-029-CA0E 
DPTT-037-54F9 



DPTT-Q30-E40F DPTT-031-2085 DPTT-C32-3C90 DPTT-033-2007 0C80 
DPTT-038-7A68 OPTT-039- 5068 DPTT-040-5260 OPTT-041-A00E 0C9C 



OCAO DPTT-046-5E2=> DPTT-047-CE81 
OCBC DPTT-056-8FC DPTT-057- 5F 39 



DPTT-049-DA39 
DPTT-058-6664 



DPTT-050-2E15 
DPTT-059-726A 



DPTT-051-54F9 OPTT-052- IF 85 DPTT-O 53-F246 DPTT-C54-A01E OCAO 
DPTT-061-B448 DPTT-062- 7460 DPTT-C63-54F9 DPTT-064-E243 OCBO 



OCCO DPTT-065-CD08 DPTT-066-F22F 
OCOO DPTT-010-0FO4 DPTT-0 1 1- 810C 



DPTT-067-3E15 
DPTT-013-2E23 



DPTT-068-AC30 
DPTT-014-2F07 



DPTT-006-2482 DPTT-007-8F7A DPTT-008-0158 DPTT-009-C421 OCCO 
DPTT-C15-A01E DPTT-020-0008 DPTT-021-5FB9 DPTT-023-E401 OCOO 



OCEO DPTT-024-AA1Q DPTT-025- AECA 
OCFO DPTR-007-EB74 PPTR-008-2020 



CL0G-U8-B3F6 
DPTR-009-2813 



CL0G-119-6F15 
DPTR-010-2935 



CL0G-120-6E05 CLOG-12 1-67 35 CLOG-1 22-6625 CL0G-123-A844 OCEO 
DPTR-011-293B DPTR-01 2-6A99 DPTR-C 14-2C75 DPTR-01 8-5D38 OCFO 



CONTROL 
STORAGE 







8 



OC- 
OO — 



OOOn DPTR-019-5DB9 0PTR-Q20- 

0010 DPTR-027-2878 DPTR-028- 

0D20 DPTP-035-C4AQ OPTR-036- 

0D30 DPTR-043-2B0 5 DPTR-044- 

0040 DPTR-051-5DC0 DPTR-052- 

CD50 DPTR-063-1445 0PTR-C64- 

0060 DPTR-071-DA6A DPTR-072- 

0070 0PTR-083-15E5 DPTR-084- 

0D80 CDMD-150-A520 COM0-106- 

0D90 CDMD-113-2B07 CDMD-114- 

ODAO C0MD-121-7B38 CDHO-122- 

ODBO CDM0-129-77AF CDMD-130- 

ODCO CDMD-137-B3C A COMO-138- 

OODO CDMD-145-5F10 CDM0-146- 

ODEO C0VD-039-78ED CDVD-040- 

ODFO DCLC -015-7602 DCLC-016- 



C48D 
4BBF 


DPTR- 

DPTR- 


-021- 
-0 29- 


-5BC0 
-28AD 


2AFF 
8D0C 


DPTR- 
DPTR- 


-037- 
-045- 


-C4B5 
-3445 


C046 
8056 


DPTR- 

OPTR- 


-053- 
-065- 


-1F83 
-1545 


8178 
3485 


OPTR- 
DPTR- 


-073- 
-0 85- 


-B404 
-3E83 


571A 
E5 97 


CDMD- 
CDMD- 


-107- 
-115- 


-A3 IB 
-2040 


2FFF 
C181 


CDMO- 

CDMD- 


-123- 
-131- 


-C498 
-E5C2 


54F9 
6F75 


CDHD- 
CDMD- 


-139- 
-147- 


-8174 
-7F10 


7570 
2040 


CDVD- 
DCLC- 


-041- 
-017- 


-7460 
-80F8 



DPTR-022-0BFF 
DPTR-030-F49B 

DPTR-038-8CFE 
DPTR-046-EABE 

DPTR-054-3002 
0PTR-066-3E33 

DPTR-074-95CA 
DPTR-086-0550 

CDM0-108-2FFF 
COMD-116-0004 

CDMD-124-5006 
CDMD-132-B12E 

CDMD-140-27C3 
CDHD-148-2A07 

C0VD-042-F5DB 
DCLC-018-0D40 



DPTR-023-C48C 
DPTR-031-6893 

DPTR-C39-C565 
DPTR-047-3E23 

0PTR-055-1F23 
DPTR-067-3485 



DPTR- 
DPTR- 

CDMO- 
CDMD- 

CDMD- 
CDMD- 

CDMD- 
CDMO- 

CDVD- 
DCLC- 



-075- 
-087- 

-109- 
-117- 

-125- 
-133- 

-141- 
-149- 

-043- 
-019- 



-8FBE 
•F269 

-F48 3 
■77AF 

•5226 
■0B90 

•C94C 
■AA76 

■AEF6 
•2B80 



DPTR- 
DPTR- 

DPTR- 
OPTR- 

DPTR- 
DPTR- 

OPTP- 
OPTR- 

CDMD- 
CDMO- 

CDMD- 
CDMD- 

CDMD- 
CDVD- 

CDVD- 
DCLC- 



•024-3F33 
•032-282B 

■040-2AFF 
•048-3F15 

•056-0456 
■068-D568 

■076-B406 
•088-DA7E 

•110-5004 
■118-5730 

■126-D1C3 
■134-E0C2 

•142-176B 

•Q36-AEF6 

■044-1002 
■020-4F7F 



DPTR- 
OPTR- 

DPTR- 
DPTR- 

OPTR- 
OPTR- 

DPTR- 
OPTR- 

CDMD- 
COMD- 

COMD- 
COMD- 

CDMD- 
COVD- 

CDVD- 
OCLC- 



-025-4F8F 
-C33-D42B 

-041-C4B7 
-049-1545 

-061-C555 
-0 69-8FBA 

-077-AB20 
-C 89-1485 

-111-5224 
-119-01A1 

-127-577B 
-135-4086 

-143-EF51 
-037-3002 

-045-80DE 
-021-2B84 



OPTR- 
OPTR- 

DPTR- 
DPTR- 

DPTR- 
DPTR- 

OPTR- 
OPTR- 

CDMD- 
COMD- 

CDMO- 
CDMO- 

CDMO- 
COVD- 

OCLC- 
OCLC- 



•026-2D04 
-034-5006 

-042-3445 
-050-2005 

•062-E554 
■070-1E83 

-08 2-C5 72 
-090-8C60 

-112-5EF9 
-120-7718 

-128-7710 
-136-1002 

-144-3713 
-03 8-79FD 

•014-C176 
-022-2BC4 



0000 
0010 

0020 
0030 

0040 
0050 

0060 
0D70 

0080 
00 90 

ODAO 
OOBO 

ODCO 
ODDO 

OOEO 
OOFO 



CONTROL STORAGE 



8 



OCOO-OOFE 



CONTROL STORAGE ADDRESS LIST 

2 

OEOO OCLC-023-C9DD DCLC-024-FDA1 
OEIO DCLC-031-2207 OCLC-032- 8E3A 



OEOO-OFFE 



8 



CLOAD=*E60t EC 
C 



LEVEL=i2 8266 tPAGE 286 



OE-- 



DCLC-025-262B 
DCLC-033-DD9F 



DCLC-026-E600 DCLC-027-05C3 DCLC-02 8-F094 DCLC-0 29-F 514 DCLC-030-2323 OEOO 
DCLC-034-2B00 DCLC-035-F21 F DCLC-036-C3CB DCLC-037-ADF6 DCLC-038-A154 OE 1© 



0E20 DCLC-G39-5F4= 0CLC-040-FC9F 

OE30 DCLC-C47-F21F DCLC-048-E149 

OE40 DCLC-055-5EA2 DCLC-056- 2A07 

0E50 DCLC-063-C4B6 DCLC-064- 2BOO 



DCLC-041-2B84 
DCLC-049-F149 

DCLC-057-A01E 
DCLC-065-810C 



DCLC-042-E61F DCLC-043-FDAE DCLC-044-262B DCLC-045-FDA7 DCLC-046-2B80 0E20 

DCLC-050-2307 DCLC-051-5429 DCLC-052-72 A2 DCLC-0 53-2B00 DCLC-054-2400 0E30 

DCLC-058-9C6A DCLC-059-C3D8 DCLC-060-A7D6 DCLC-061-F537 DCLC-062-5449 OE40 

DCLC-066-2B84 DCLC-067-2307 DCLC-068-A7B6 DCLC-069-2BCO DCLC-070-0D10 OE50 



0E60 DCLC-071-E61F DCLC-C72-CDE9 DCLC-0 73-2628 

0E7C DCLC-079-C49E OCLC-080-C54B DC LC-081 -C4D7 

0E80 8WRP-016-F790 B WR P-Ol 8-96B4 BWRP-0 24-8F64 

0E90 BWRP-083-2A07 BWRP-091-E1 BC BWRP-093-2440 

OEAO BWRP-099-4660 B WRP-100-06B0 BWRP-1 Ol-EOAC 

OEBO BWRP-115-0923 B WRP-1 16-C4BA BWRP-1 17-E23B 

OECO BCHK-321-0000 

OFDO CICY-047-6FAD C ICY-048- 55ED C I CY-049-63EB 



DCLC-074-CDE0 
DCLC-082-2BC? 

8WRP-030-904A 
BWRP-094-78F2 

BWRP-102-064B 
BWRP-118-6886 

BCHK-321-0000 
CICY-050-62AD 



DCLC-075-4F4F DCLC-076- 5F4F DCLC-0 77-FC9F DCLC-078-64 71 0E60 

DCLC-083-9E86 CB IN-C76-B3F6 CB IN-0 77-8460 CBIN-078-AD46 0E70 

BWRP-032-904A BWRP-040-50 07 BWRP-042-904A BWRP-046-B490 0E80 

BWRP-095-2400 BWRP-096-56P2 BWRP-097-1 6C5 BWRP-098-371B 0E9C 

BWRP-103-F0AC BWRP-104-F339 BWRP-1 06-08CD BWRP-114-C4BA OEAO 

BWPP-1 19-4452 BWRP-120-AA20 BWRP-1 21-8 1 76 BWRP-122-AA20 OEBO 

CICY-043-814C C ICY-044- 55E5 C I CY-C45-6 1EB CICY-046-60AD OECO 

CICY-051-67AD CICY-052-6F 75 CI CY-0 53-AB77 C ICY-054-B0 70 OEOO 



OEEO CICY-267-83B4 C I C Y-268-8136 

OEFO CICY-280-934C C IC Y-281-93BA 

CONTROL 2 

STORAGE 



OFOO DPTT-071-FE84 DPTT-072- 

0P10 DPTT-079-13^3 DPTT-080- 

0F2C 30IA-424-1212 BDIA-425- 

0F30 CDM0-205-F4B5 CDMD-206- 

0F40 OCLA-011-8938 DCLA-012- 

0F50 DCLA-044-C01B DCLA-045- 

0F60 DCLA-065-C64C 0CLA-066- 

0F70 ERR0-076-F76 8 ERRO-077- 

0F80 FILE-325-6CC3 F ILE-326- 

CF90 FILE-288-2D95 PILE-289- 

OPAC FRF-300-2D1B FILE-301- 

OFBO FILF-323-2C15 FRE-324- 

OFCO DCOM-009-221E DCOM-010- 

OFDO DCOM-027-E757 OCOM-028- 

OFEO DC0M-041-0F24 DCOM-042- 

OFFO DC0M-059-E777 DCOM-060- 



C I CY- 
CICY- 



269-AE6E C IC Y-270-AE68 
282-934E C IC Y-283-93 B8 



CICY-272-83B4 C I CY-273-83 34 CI CY-278-83B4 C IC Y-279-83B4 OEEO 
CICY-284-97A8 CI CY-285-97 A8 CI CY-2 87-83B4 C ICY-288-83B4 OEFO 



3E13 
F099 


DPTT- 
DPTT- 


-073- 
-081- 


-EE8A 
-3E23 


5EFF 
A520 


BOIA- 

CDMD- 


-4 26- 

-207- 


-C4A4 
-F73C 


894E 
C4D7 


DCLA- 
DCLA- 


-013- 
-047- 


-8 94E 
-95BE 


AECA 
2406 


ERRQ- 
ERRQ- 


-0 86- 
-079- 


-4642 
-3743 


6CC3 
0E08 


FILF- 

FILE- 


-327- 

-290- 


-6CC3 

-2100 


FCAB 
891F 


FILE- 

DCOM- 


-305- 
-0 73- 


-128E 
-C83 8 


C7E9 
0D08 


DCOM- 
DCOM- 


-Oil- 
-029- 


-2010 
-128E 


C866 
2088 


DCOM- 
OCOM- 


-043- 
-061- 


-1C83 
-128E 



DPTT-074-3E23 

DPTT-082-3F15 

BDI A-427-28 00 
CDMD-208-0719 

DCLA-014-5009 
DCLA-049-2436 

ERRQ-087-3725 
ERRQ-080-5060 

FILE-328-4BEF 
FILE-295-CCAB 

FILE-316-5C32 

DCOM-074-2F04 

DCOM-012-76D2 
0C0M-034-0F2C 

DC0H-044-128E 
DC0M-066-2F3G 



8 



DPTT-075-3F13 DPTT-076-CB0E DPTT-C77-3E23 DPTT- 
DPTT-083-3E43 0PTT-084-0D0A DPTT-0 85-1 28E BDIA- 



•078-5E3F 
423-EE9E 



BDIA-428-2020 BDIA-432-93 24 CDMD-203-5773 
CDMD-209-F4B0 CDMD-210- 143D CDMD-2 1 1-1 28E 



CDHO-204-0769 
5007 



DCLA-018-C4D0 DCLA-02C-C7CF DCLA-041-8 IOC DCL A-042-AED0 

DCLA-050-D8CF DCLA-058-2480 DCLA-059-E9CF DCLA-064-5632 

ERRQ-088-2402 ERR0-089-C4F4 ERRQ-C 74-4642 ERRQ-075-3715 

ERRQ-081-1773 ERRQ-082-5468 ER RQ-083-5E6A ERRQ-084-128E 

FILE-334-49CF F ILF-336-4EEF FI LE-3 37-40EF F ILE-33 8-128E 

FILE-296-2D1B F I LE-297-DCA8 F I LE-298-2D1B F ILE-299-ECAB 

FILE-317-0E08 F I LE-318-2E07 FILE-3 19-C90B F ILE-32 1-D9CB 

DCOM-075-128E DCOM-006-C1 74 DCOM-007-2683 DCOM-008-F047 

DCOM-013-021E DCOM-014- 3413 DCOM-C 15-1 683 OCOM-02 5-F75B 

OCOM-040-128E DC0M-030-E761 DCOM-032-0B20 DC0M-033-128E 

0C0M-045-021E DCOM-046- 1683 DCOM-047-D575 DC0M-057-F77B 

DCOM-072-128E DCOM-062-E735 DCOM-064-2B30 DC0M-065-128E 



OE — 
OF-- 

OFOO 
0F10 

0F20 
0F30 

OF 40 
OF 50 

0F60 
0F70 

0F80 
0F90 

OFAO 
OF BO 

OFCO 
OFOO 

OFEO 
OFFO 



CONTROL STORAGE 



8 



OEOO-OFFE 



CONTROL STORAGE ADDRESS LIST 

2 

1000 BMCK-032-C693 BMCK-036-D695 
1010 BMCK-063-9034 BMCK-065- 98F8 



1000-11FE 



8 



CL0AD=*E60t EC 
C 



BMCK-040-E693 
8MCK-067-96AC 



BMCK-044-F697 BMCK-045-C29B BMCK-058-02 1A BMCK-060-021C 
BMCK-071-2D02 BMCK-072-B22E BMCK-073-2D40 8MCK-074-A4D8 



LEVEL=128266 f PAGE 287 

E 10 — 

BMCK-061-021E 1000 
5007 1010 



1020 DCLB-245-88F2 DCLS-247-9912 
1030 3MCK-010-2610 BMCK-01 1- A281 



DCLB-248-9912 
3MCK-012-2400 



DCL8-253-A5 9A 
BMCK-018-2135 



BMCK-006-7612 BMCK-00 7- 566F BMCK-008-577F BMCK-009-7672 1020 

BMCK-019-B368 CMLT-169- A752 CMLT-170-3002 CMLT-171-A378 1030 



1040 DCLB-231-8DE6 C TCY-061-9CFA 
1050 BWRP-147-64B5 BWR P- 148-2543 



CICY-058-834A 
BWRP-149-2EC3 



CICY-05 9-C043 
8WRP-150-8761 



CICY-060-9023 BWRP-140-2B A5 BWRP-142-2607 BWRP-146-8F 78 1040 
FILX-080-3E00 F I LX-08 1-2C 25 FI LX-0 82-7C52 FI LX-083-8714 1050 



1060 BWRP-152-8D68 BWRP- 156- BOIE 
1070 FRE-158-2302 F I L E-159- 2304 



BWRP-157-B01E 
FILE-160-3110 



BWRP-162-8792 
FILE-161-3D29 



FILE-149-AEFC F ILE- 150- 3E00 F I LE -1 56-2490 F ILE-157-0E08 1060 

FILE-162-4F0F F ILE- 163-43DF FI LE-1 64-8678 F ILE-165-5FCF 1070 



1080 FILE-166-1CFF F IL E-167-C4FC 
1090 FILF-174-867A F I LE- 175-5ECF 



FILE-168-4FCF 
FILE-176-C4FC 



FILE-169-5FCF 
FILE-177-2310 



FILE-170-C4FC FILE-171-866C FILE-1 72-866C F ILE-173-5BCF 1080 
FILE-178-2390 F I LE-179-2D 13 FI LE-1 80-4FDF F ILE- 18 1-2D25 1090 



lOftO PILE-182-430F p ILE-183-31 1C 
10B0 FILE-190-2D85 f I LE-191- 3023 



FILE -184-8 6 70 
FILE-192-867A 



FILE-185-2D1F 
FILE-193-3D73 



FILE-186-4FDF F ILE- 1 87-866C F I LE-1 88-8670 F ILE-189-5BCF 10A0 

FILF-194-8676 F I LE- 195- 31 14 FI LE-1 96-866C F ILE-197-2DA3 10B0 



10CO FILE-198-8676 F ILF- 199- 1D00 
10D0 FILE-206-1DD0 F I LE-20 7-2390 



FILE-200-CAFD 
FILE-208-3114 



FILE-201-2380 F ILE-202-3114 FI LE-203-866C FILE-204-3D47 F ILE-205-8676 10C0 
FILE-209-2308 F ILE-210-2D75 FILE-21 1-3D A3 FILE-2 12-8676 F I LE-213-1D00 1000 



10E0 FILF-214-3114 F I LE-21 5-2380 
1CF0 FILE-222-2D55 F IL E-223- 3DB3 



FILE-216-2308 
FILE-224-8676 



FILE-217-1D45 F ILE-2 18-8676 FILE-219- 1000 FI LE-220-3114 FI LE-22 1-2308 10E0 

FILE-225-1000 F ILE-226-2480 F ILE-22 7-91 08 FI LE-228-2 100 FI LE-229-1EC0 10FO 



CONTROL 
STORAGE 



10 — 

11 — 



1100 FILE-230-0E08 F I L E-231- 2480 
1110 FILE-238-2043 F I LE-239- 4EDF 



FILE-232-3C83 
FILE-240-5CC2 



FILE-23 3-8504 
FILE-241-2A07 



FILE-234-21C0 F ILE-235-3E00 FI LE-236-0E08 
FILE-242-2490 F I LE-243-5E42 FI LE-2 44-83 1 A 



FILE-237-0E04 1100 
5007 1110 



1120 CICY-217-AA68 C IC Y-218- 83B4 
1130 FIKJT-050-2A07 F INT-051- 2863 



CICY-219-AA24 
FINT-052-5EA0 



CICY-220-AA30 
F I NT-05 3-0008 



CICY-221-8898 C ICY-222- 8A5E CICY-223-AC 88 C ICY-224-AC88 1120 
FINT-054-526F F INT-055-566B F I NT-0 56-2 707 F INT-057-C9C2 1130 



1140 FINT-058-3F85 F INT-059- 2490 
1150 EXFR-007-2455 E XFR-008- 2515 



FINT-060-78A2 
EXFR-009-3593 



FINT-061-0D04 F INT-062-2400 F INT-063-50 A2 FINT-064-5242 F INT-06 5-128E 1140 

EXFR-010-2045 E XFR-011 -21A5 EXFR-C 12-22 A3 EXFR-C 1 3-2 363 E XFR-014-4852 1150 



1160 EXFR-015-4A86 E XFR-016-4C 86 
1170 EXFR-023-6B65 E XFR-024-E777 



EXFR-017-4E86 
EXFR-025-6D65 



EXFR-018-2613 EXFR-019-5700 EX FR-02 0-C76F EXFR-0 21-6965 E XFR-022-0773 1160 

EXFR-026-F77B EXFR-027-6F65 EXFR-028-C3 7F EXFR-029-6865 EXFR-030-D303 1170 



1180 EXFR-031-6&65 E XFR-032-E307 
1190 FXFR-040-F41A E XFR-042- 21 AB 



EXFR-033-6C65 
EXFR-043-F498 



EXFR-034-F30B EXFR-035-6E65 EXFR-036-6663 EXFR-0 37-2 3FF EXFR-038-C49F 1180 
EXFR-044-201D EXFR-045-9168 EXFR-047- 31 9B EXFR-C48-9 168 EXFR-050-7940 1190 



11A0 EXFR-051-6444 E XFR-052-7B40 
1180 EXFR-059-D03C EXFR-060- 5899 



EXFR-053-6444 
EXFR-061-5AB9 



EXFR-054-7D40 EXFR-055-6444 EXFR-056-7F 40 EXFR-057-6444 E XFR-058-144B 11A0 

EXFR-062-5CD9 EXFR-C63-5EF9 EXFR-064-91 9E EXFR-C65-22FF EXFR-066-C4CF 11B0 



11C0 EXFR-068-F44A EXFS-070-3130 
1100 EXFR-079-CC60 E XFR-08 1-F45A 



EXFR-071-C048 
EXFR-083-211B 



EXFR-072-20FD EXFR-073-915C EXFR-C75-21 3F EXFR-0 76-9 15C EXFR-078-1488 11C0 

EXFR-084-35AD EXFR-085 -915A EXFR-087-21 A7 EXFR-088-2 507 EXFR-089-915A 1100 



11E0 EXFR-090-F475 EXFR-091- 52E2 
UFO EXFR-093-2907 EXFR-099-99DE 



EXFR-092-8F64 
EXFR-100-2466 



EXFR-093-51A2 EXFR-094-8A68 EXFR-095-54B2 EXFR-096-3659 EXFR-097-2845 11EC 

EXFR-104-E67E EXFR-105-162 5 EXFR- 106-2400 EXFR-1 07-AB20 EXFR-108-2406 UFO 



CONTROL STORAGE 



8 



1000-11FE 



CONTROL STORAGE ADDRESS LIST 

2 

1200 EXFR-1Q9-8F6C E XFR- 110-8A68 

1210 EXFR-117-3D83 E XFR-118- 2E23 

1220 EXFR-125-1545 F XFR- 1 26-B3E8 

1230 EXFR-133-2007 E XFR-134-D83A 

1240 EXFR-141-2B20 E XFR-142-8D6A 

1250 FTLX-386-7E62 F IL X-387-FFD6 

1260 FHX-394-F4E3 F IL X-395- 2C IB 

1270 FRX-4Q2-4EEF F IL X-403-2E45 

1280 FILX-410-0CFF F II X-41 1-C496 

1290 FILX-418-5E42 F I L X-419- 1D00 

12A0 FILX-426-2013 F IL X-427-4BDF 

12RQ FILX-434-DDBR F I L X-435- DA36 

12C0 FILX-443-4FAF F IL X-445- 1E00 

12D0 FILX-452-A7D3 F IL X-453-0F85 

12E0 PILX-460-7CA8 F IL X-461-DC70 

12F0 FILX-468-7EA3 F ILX-469- 2D08 

CONTROL 2 

STORAGE 

1300 BCHK-105-A4E6 BCHK-069-4252 

1310 BCHK-092-42A6 RCHK-093-C481 

1320 BCHK-101-6AC0 BCHK-102- 932C 

1330 BCHK-056-60C4 BCHK-057-4208 

1340 RCHK-064-6208 BCHK-065- 06 10 

1350 CSAS-008-2E15 C SA S-009-573A 

1360 CSAS-016-F0E7 C SA S-01 7-C5F5 

1370 CSAS-024-9354 C SAS-025-9BDC 

1380 CSAS-032-C905 C SA S-033- 272B 

1390 CSAS-C4C-F0E3 C SAS-041-F0A6 

13A0 CSAS-048-75E3 C SA S-049-E0EB 

13B0 CSAS-056-5006 C SAS-057-93A0 

13C0 CSAS-064-F5D1 C SAS-065- 7A7F 

13D0 CSAS-072-E5D9 C SAS-073-7A7F 

13E0 CSAS-080-142D CSAS-C81-93F8 

13F0 CSAS-088-F5E5 CSAS-089-77AF 



1200-13FE 



6 



8 



EXFR-111-5FB2 
EXFR-119-3485 

EXFR-1 27-0529 
EXFR-135-52F2 

EXFR-143-C3C3 
FILX-388-51EF 

FILX-396-1CFF 

FILX-404-4BEF 

FILX-412-2F43 
FILX-420-0 222 

FILX-428-2E83 
FILX-436-8 640 

FILX-446-1D00 
FILX-454-C4D0 

FILX-462-7A32 
FILX-470-8602 



BCHK-070-4C26 
BCHK-094-2CE3 

3CHK-011-2404 
BCHK-058-2A07 

3CHK-066-511B 
CSAS-010-576D 

CSAS-018-3042 
CSAS-026-1002 

CSAS-034-D188 
CSAS-042-2707 

CSAS-05C-F095 
CSAS-058-5006 

CSAS-066-1A9F 
CSAS-074-C4F9 

CSAS-082-77AF 
CSAS-090-C4F9 



EXFR-112-FB0A 
EXFR-120-A925 

EXFR-128-3E83 
EXFR-136-613B 

EXFR-144-8D5A 
FILX-389-51CF 

FILX-397-5FFD 

FILX-40 5-4BDF 

FILX-413-4EFF 
FILX-421-4ECF 

FILX-429-2F45 
FILX-437-85FE 

FILX-44 7-2E08 
FILX-455-2C07 

FILX-463-C9EC 
FILX-471-5EEF 



BCHK-071-4AC0 
BCHK-095-2DC5 

BCHK-051-4632 
BCHK-059-53BO 

BCHK-067-2723 
CSfl S-01 1-0661 

CSAS-C19-CQ7C 

CSAS-02 7-20 40 

CSAS-035-271B 
CSAS-043-2EF3 

CSAS-051-573A 

CSAS-059-938E 

CSAS-067-C4F9 
CSAS-075-93CA 

CSAS-083-93F6 
CSAS-091-2002 



EXFR-113-2643 
EXFR-121-2E07 

EXFR-129-D22E 
EXFR-137-602D 

CCOM-182-5682 
FILX-390-2D07 

FILX-398-4EDF 
FILX-406-4EFF 

FILX-414-2EC3 
FILX-422-2F85 

FILX-430-CDBB 
FILX-438-2F07 

FILX-448-5C32 
FILX-456-7C32 

FILX-464-3F85 
FILX-472-1EC7 

8 



BCHK-072-2DEB 
3CHK-096-3D63 

BCHK-0 52-6662 
BCHK-06C-C4BC 

BCHK-068-9A8C 
CSAS-012-E0F3 

CSAS-020-D07B 
CSAS -028-9366 

CSAS-0 36-27AB 
CSAS-044-D02A 

CSAS-052-D01B 
CSAS-060-1413 

CSAS-068-0002 
CSAS-076-7A7F 

CSAS-084-9372 
CSAS-092-25FF 



EXFR-114-FD8E 
EXFR-122-F822 

EXFR-130-56F2 
EXFR-138-C844 

CC0M-183-427F 
FILX-391-4BDF 

FILX-399-4B0F 
FILX-407-2E25 

FILX-415-DFA6 
FILX-423-4BFF 

FILX-431-F931 
FILX-439-4A52 

FILX-449-C3DE 
FILX-457-0212 

FILX-465-0D04 
FILX-473-C4D0 
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EXFR-1 15-3D15 
EXFR-123-E523 

EXFR-131-8D6E 
EXFR-1 39-3E43 

CC0M-184-128E 
FILX-392-2D15 

FILX-400-2D07 
FILX-408-4BEF 

FILX-416-2D15 
FILX-424-4BDF 

FILX-432-4 886 
FILX-440-7A62 

FILX-450-0EC3 
FILX-458-A7F2 

FILX-466-2410 
FILX-474-5E42 



BCHK-073-8258 
BCHK-097-C99F 

BCHK-053-FA32 
3CHK-061-2B1B 

5007 
CSAS-013-00C4 

CSAS-021-148B 
CSAS-029-1002 

CSAS-037-F035 
CSAS-045-2F07 

CSAS-053-5F10 
CSAS -06 1-30 02 

CSAS-069-1415 
CSAS-077-F5E1 

CSAS-08 5-F0FD 
CSAS-093-FOEC 



BCHK-0 74-6CC4 
BCHK-098-2820 

BCHK-054-21C5 
BCHK-062-6BB3 

CSAS-006-3443 
CSAS-014-F366 

CSAS-C22-57FB 
CSAS-030-577B 

CSAS-C38-771A 
CSAS-046-93AC 

CSAS-054-7F7F 
CSAS-062-9350 

CSAS-070-2A07 
CSAS-078-E445 

CSAS-0 86-C5BF 
CSAS-094-C1E9 



EXFR- 
EXFR- 


•116- 
■124- 


-C992 
-3445 


1200 
1210 


EXFR- 
EXFR- 


-132- 
-140- 


-51A2 
-C3C4 


1220 
1230 


FILX- 
FILX- 


-38 5- 
-393- 


-3F85 
-7CE3 


1240 
1250 


FILX- 
FILX- 


-401- 
-409- 


-4BDF 
-4BDF 


1260 
1270 


FILX- 
FILX- 


-417- 
-425- 


-4BDF 
-4EEF 


1280 
1290 


FILX- 
FILX- 


-433- 
-441- 


-C4BA 
-4DAF 


12A0 
12 BO 


FILX- 
FILX- 


-451- 
-459- 


-F003 
-2B43 


12C0 
1200 


FUX- 
FILX- 


-46 7- 
-475- 


-A030 
-960C 


12E0 
12F0 




E 




12 — 
13— 


BCHK- 
BCHK- 


-083- 
-100- 


-DCOA 
-8258 


1300 
1310 


BCHK- 
BCHK- 


-055- 
-063- 


-20E3 
-42 AO 


1320 
1330 


CSAS- 
CSAS- 


-007- 
-015- 


-1082 
-07FB 


1340 
1350 


CSAS- 
CSAS- 


-023- 
-031- 


-5710 
-77FF 


1360 
1370 


C SA S- 
CSAS- 


-039- 
-04 7- 


-55B9 
-7FIA 


1380 
1390 


CSAS- 
CSAS- 


-055- 
-063- 


-F01E 
-573A 


13A0 
13B0 


CSAS- 
CSAS- 


-071- 
-079- 


-93F8 
-93CA 


13C0 
1300 


CSAS- 
CSAS- 


-087- 
-09 5- 


-573A 
-C591 


13E0 
13F0 
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1400 CSAS-096-F589 C SA S-097-E588 
1410 CSAS-104-F583 C SA S-105-F047 



CSAS-098-D1D1 CSAS-099- 
CSAS-106-5BB5 CSAS-107- 



AA74 CSAS-100-F03C CSAS- 10 1-D1 8F CSAS-102-A824 C SAS-103-A820 1400 

6189 CSAS-108-60AD CSAS-109-57 10 CSAS-1 10-5 7FB C SAS-1 1 1-3002 1410 



1420 CSAS-112-577D CSA S-l 1 3- 171B 
1430 CSAS-120-757F CSAS-121-751A 



CSAS-114-7AFF CSAS-115- 
C SAS-1 22-2 50 7 CSAS- 12 3- 



67 A3 CSAS-116-771A CSAS-1 17-5BA9 CSAS-1 18-C4BB CSAS-1 19-5710 1420 
2AFF CSAS-124-C4AE CSAS-125-F447 CSAS-1 26-2C 75 CSAS-127-DD43 1430 



1440 CSAS-128-AA76 CSA S-129-2B A3 
1450 CSAS-136-F007 CSA S-137- 9414 



CSAS-130-89FC CSA S- 131- 
CDMD-184-5C79 CDMD-185- 



D1CD CSAS-132-2040 CSAS-133-9402 CSAS-1 34-0040 CSAS-135-9402 1440 
42 36 CDMD-186-5030 CDMD-187-5F6A CDMD-1 88-7DFF C0MD-189-703A 1450 



1460 COMD-190-C359 CDMD- 191- 7BAF 
1470 CDMD-198-B13E C DMD-199-F0D4 



CDM0-192-0002 
CDMD-200-5710 



CDMO- 
CDMD- 



193-C5EC CDMD-194-0B9F COMD-1 .95-2002 CDMD-1 96-D 1F2 CDMD-197-E0D4 1460 
201-47B8 CDMD-202-B134 BMCK-092- 2007 BMCK -093-2400 BMCK-094-5E3F 1470 



1480 8MCK-095-C4A7 BMCK-096- 12 12 
1490 8MCK-109-7618 BMC K-l 10-731 8 



8MCK-103-5672 BMCK-104- 
BMCK-111-5710 BMCK-112- 



■2440 BMCK-105-7672 BMCK-106-2400 BMCK-1 07-2 185 BMCK-108-420F 1480 

•2718 BMCK-113-7718 BMCK-1 14-5672 BMCK-1 15-1 6C5 BMCK-116-1713 1490 



14AC BMCK-1 17-6666 BMC K-l 1 8- 7618 
14B0 BMCK-125-7A00 BMC K-126-4632 



BMCK-1 19-9248 BMCK-120- 
BMCK-127-261D BMCK-128- 



2404 BMCK-121-2233 BMCK- 122- IF 2E BMCK-1 23-2 171 BMCK-124-2B07 14A0 

271D BMCK-129-6662 BMCK-13C- 17 AB BMCK-1 31-2 185 3MCK-132-88BC 14B0 



14C0 BMCK-133-9A8F CB I N-005- 8270 
14D0 EPCH-042-950C F PCH-032-99B4 



CBIN-006-AD54 EPCH-034- 
EPCH-010-1F00 EPCH-014- 



•C86D EPCH-035-2462 EPCH-036-3643 EPCH-0 37-2402 EPCH-038-1C83 14C0 

•FA74 EPCH-016-6CF7 EPCH-017-EA53 EPCH-0 18-C E62 EPCH-019-DE53 14D0 



14E0 EPCH-02C-3C45 F PCH-02 1-DE66 
14FC FPCH-029-1643 EPC H-030-94CC 



EPCH-022-3C25 EPCH-023- 
EPCH-044-EA52 EPCH-045- 



E853 EPCH-024-CA46 EPCH-026-3C 23 EPCH-027-2F40 EPCH-028-2462 14E0 

DA53 EPCH-046-0E49 EPCH-047-F4D2 EPCH-048-E E53 EPCH-049-EF84 14F0 



CONTROL 
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14 — 

15 — 



1500 FPCH-C50-2CC7 FPC H-051-99B0 
1510 EOCH-059-C4A 3 E f J C H-060-3C53 



EPCH-053-C808 
EPCH-061-4A06 



EPCH-054-2D23 
EPCH-062-2007 



EPCH-055-3C83 EPCH- 
EPCH-063-21A5 EPCH- 



056- 
064- 



1C23 

2002 



EPCH- 
EPCH- 



057-3659 
■C65-7B19 



EPCH- 
EPCH- 



058-5009 
06 6-7A09 



1500 
1510 



1520 5PCH-067-7AF2 E PCH-068-B3E8 
1530 EPCH-079-5CD9 E PC H-080-59C9 



EPCH-069-71A2 
EPCH-081-C85E 



EPCH-070-72E2 
EPCH-082-5809 



EPCH-C71-F72C EPCH-072-99C4 EPCH-0 74-C 82B EPCH-075-CC42 1520 
EPCH-083-D83F EPCH-084- 5224 EPCH-D 85-2 82B EPCH-086-58D5 1530 



1540 EPCH-087-9B80 F PCH-088- 2B07 
1550 EPCH-095-74C8 E*>t H-096-CD4C 



EPCH-089-2C45 
EPCH-097-D94C 



EPCH-090-2DC3 
EPCH-098-58R4 



EPCH-091-28F7 EPCH-092- 5899 EPCH-093-54A0 EPCH-094-78A8 1540 

EPCH-099-3CE9 EPCH-100-2D07 EPCH-101-E E63 EPCH-102- 1CA3 1550 



1560 EPCH-103-9CC0 E PCH-104-9B4A 
1570 CFC0-1C9-788B CFC0-110-7FFB 



CFC0-103-F46F 
CFC0-111-E079 



CFCO-104-711B 
CFC 0-112-0002 



CFC0-105-700B CFCO- 106-733B CFCO-1 07-7228 CFCO-108-799B 1560 
CFC0-113-128E DYPE-242-5AFF DYPE-243-5F19 DYPE-244-11C5 1570 



1580 DYPE-245-CF10 DYPE-246-2055 
1590 DY°E-253-C43 3 DYPE -254-F098 



DYPE-247-21BD 
DyPE-255-llCB 



DYPE-243-218B 
DYPE-256-C432 



DYPE-249-5F00 DYPE-250-4FFF DYPE-251-0F20 DYPE-252-128E 1580 
DYPE-257-E0B1 0YPE-258-CB20 DYPE-259-DB03 DYPE-260-EB2D 1590 



15A0 DYPE-261-011F 0YPF-262-C4A9 
15B0 DYPE-270-CB34 DYPE-271-EB39 



DYPE-263-1FBD 
DYPE-272-1FFD 



DYPE-264-C48A 
DYPE-273-C48A 



DYPE-265-1F7D DYPE-266-C48A DYPE-267-111B DYPE-269-C482 15A0 

DYPE-274-114B DYPE-275-C482 DCHN-1 27-2400 DCHN-128-2C75 15B0 



15C0 DCHN-129-99F8 DCLB-1 10-6224 
15D0 DCLB-046-5260 DCLB-047-D25A 



DCLB-111-6224 
DCLB-048-1643 



DCLB-112-6224 
DCLB-049-33 63 



DCLB-1 13-9614 DCLB-043- 1633 DCLB -044-3613 DCLB-045-3773 15C0 

DCLB-050-6224 DCLB-058-0249 DCLB-C 60-F4C3 DCLB-06 1-5038 1500 



15E0 DCLB-062-0C8B DCLB-063-F0FA 
15F0 DCLB-079-F0C4 DCLB-080-4206 



DCLB-065-5119 
DCLB-081-5038 



DCLB-066-C4C4 
DCL8-082-008B 



DCLB-067-5030 DCLB-075-0049 DCLB-077-F4C5 OCLB-078-01 83 15E0 
DCLB-083-F0C5 DCLB-084-51 19 DCLB-0 85-C4C4 DCLB-086-5049 15F0 
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1600 DCLB-087-6224 DCL3-088- 5038 
1610 DCLB-095-CC35 DCL8-096-D033 



DCLB-089-0083 
DCLB-097-6224 



DCLB-090-F094 
0CLB-099-D639 



DCLB-091-C51F DCLB-092- 
DCLB-100-3763 DCLB-104- 



1537 DCLB-093-F031 DCLB-094-E033 1600 
7260 DCL3-105-B002 DCLB-11 8-2405 1610 



1620 DCLB-119-15F5 DCL B-l 20- 6505 
1630 DCLB-114-153B OCLB-l 1 5- 15 IB 



DCLB-121-5038 
DCLB-116-153B 



DCLB-122-4006 
DCLB-117-9620 



DCLB-123-C497 DCLB-125- 
DCLB-107-7212 DCLB-108- 



•0630 DCLB-127-726A DCLB-12 8-963E 1620 
■B002 DCLB-130-7212 0CLB-132-6226 1630 



1640 DCLB-133-1343 DCLB-135- 5230 
1650 DCLB-190-F?65 DCLB-191- 5FF2 



DCL8-146-D659 
DCL8-192-7F60 



0CLB-148-C54A 
DCLB-193-9666 



DCLB-149-1565 DCLB-174- 
DCLB-215-A041 DCLB-219- 



■1763 OCLB-l 75-756A DCLB-189-6666 1640 

■C160 DCLB-220-7602 DCLB-22 1-2D40 1650 



1660 OCL8-223-1D00 0CLB-227-0244 
1670 CFC0-072-42E6 C FC0-073-40E6 



DCLB-194-5F60 
CFCO-074-128E 



DCLB-195-6664 

CDVD-088-2002 



DCL8-196-42FF 0CLB-20 3-8721 
CDVD-089-711B CDVD-09C-700B 



CFC0-069-4E52 CFCO-071-48E6 1660 

CDVD-091-733B CDV0-092-722B 1670 



1680 CDVD-093-799B CDVD-094-788B 
1690 COVD-103-3CC2 COVD-104-71 IB 



CDVD-095-755B 
CDVD-105-700B 



CDV0-096-744B 
COVO-106-733B 



CDV0-097-128E CDVD-100-2002 
CDVD-107-722B CDVD- 108- 128E 



CDVD-101-F581 CDVO-102-0008 1680 
CBIN-047-AE06 CBIN-048-88DC 1690 



16A0 500 7 FRT-086-50FF 

16B0 FILT-093-2F15 F I LT-094-FB36 



FILT-087-0F83 
FILT-095-2F25 



FILT-088-F0BD 
FILT-096-0680 



FILT-089-0B2E FI LT-090-8220 
FILT-097-2EC3 FILT-098-9775 



FILT-091-2F43 F I LT-092-EB32 16A0 

FILT-099-2F07 F ILT-100-C1B8 16B0 



16C0 FRT-101-E5FE F ILT- 102-2045 
1600 FILT-109-4EEF F IL T-l 1Q-FB06 



FILT-103-4E0F 
FILT-111-973C 



FRT-104-2E15 
FILT-112-C3FD 



FILT-105-4BEF F ILT-1C6-2E43 
FILT-113-FD59 FI LT-1 14-92 F6 



FILT-107-4BFF F ILT-108-1D00 16C0 

FILT-115-6EE6 F ILT-11 6-6EE6 1600 



16E0 FILT-H7-5CF3 * I LT- 118-4DCF 
16F0 FILT-125-CE04 F I LT-1?6- 3D00 



FILT-119-2C63 
FILT-127-2C15 



FILT-120-4FCF 
FILT-123-4BCF 



FILT-121-5C52 F I LT-122-2C07 
FILT-129-6EE4 F ILT- 13C-C 3FB 



FILT-123-F8EC F ILT-124-7C52 16E0 
FILT-131-0222 FILT-132-CA86 16F0 
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1700 FILT-133-DF87 F ILT- 134- 4BFF 
1710 FRT-141-58CF F ILT-142-6CD1 



FILT-135-870E 
FILT-143-F098 



FILT-136-5A0F 
FILT-144-928C 



FILT-137-C4C0 F I LT-138-5C62 
FRT-145-2D07 F I LT- 146-2C 1 3 



FILT-139-CA9F F ILT-140-C5C0 1700 
FILT-147-976E F ILT-148-5E52 1710 



1720 FILT-149-EB31 F ILT-150-CD32 
1730 FILT-157-876A F ILT-158-859A 



FI LT-151-201B 
FUT-159-2025 



FILT-152-7C62 
FILT-160-2C07 



FILT-153-50F9 F I LT- 154-ODAB 
FILT-161-2F07 F I LT-162-976E 



FILT-155-F0B5 F ILT-156-9254 1720 
FILT-163-FAC1 F ILT-164-8640 1730 



1740 FILT-165-2D07 F ILT- 166-2C45 
1750 FILT-173-7C62 F IL T-174- 2EC3 



PILT-167-DEEE 
FILT-175-D8F9 



FILT-168-2E85 

F ILT-176-C8FB 



FRT-169-EEDD FRT-170- 
FILT-177-2D07 FILT-178- 



FA9B 
2E15 



FILT-171-5ACF F ILT-172-C4E0 1740 

FILT-179-2C15 FILT-180-9770 1750 



1760 FILT-181-5C0B F R T-182-1CF5 
1770 FILT-189-7F62 F I LT-1 90-2EE3 



FILT-183-ED68 
FILT-191-3C25 



FILT-184-3083 
FRT-192-D8FA 



FILT-185-F06C F I LT-186-3023 
FRT-193-3E13 F ILT-194- 7C52 



FILT-187-1D35 FILT-188-2E07 1760 
FILT-195-2F07 F I LT-196-F082 1770 



1780 FRT-197-3E45 FRT-198-C986 
1790 FILT-205-3F45 FRT-206-2A07 



FILT-199-3F85 
FILT-207-OF85 



FRT-200-1D04 
FILT-208-C49A 



FRT-201-C891 FRT-202-F993 
FILT-209-EA24 F ILT-210-2B43 



FILT-203-4886 F ILT-204-C493 1780 

FILT-211-3B15 F ILT-21 2-5C42 1790 



17A0 FRT-213-7EAB FRT-214-7CA0 
17B0 CDMD-006-5575 CDM0-007-77E3 



FILT-215-92BE 

CDMD-008-E0AE 



COMO-047-A51C 

COMD-009-9812 



CDMD-002-E1AD CDMD-003-1445 
CDMO-010-5730 CDMD-01 1-8F 2C 



C0MD-004-C130 COMD-005-AE94 17A0 
C0MO-012-571O CDMD-013-3415 1780 



17C0 CDMD-014-8F2C C OMD-015- 10CE 
17D0 CDMD-022-7AF2 00^0-023- 5F 3A 



CDM0-016-55BO 
C0MD-024-5FFB 



C0MD-017-3B83 
CDMO-025-7FAF 



C0M0-018-3B15 C0MD-019-7AE2 
COMD-026-7FCA CDMD-027- 5FF1 



CDND-020-4CA6 COM0-02 1-3B25 17C0 
CDMD-028-C96C CDM0-029-573A 1700 



17E0 CDMO-030-47F3 C0MD-031-77AF 
17F0 CDMD-038-55FD C0MD-039- 7EF1 



CDM0-032-7FAA 
CDMO-040-2 002 



CDM0-033-77CA 
CDM0-041-71E9 



CDM0-034-57F5 CDM0-035-C95F 
CDM0-042-7OA9 CDMD-043-4206 



CDMD-036-7FAA CDMD-037-55E5 17E0 
CDMD-045-F027 CDMD-046-8D82 17F0 
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1800 EC0L-086-2F08 ECOL-087-980A ECOL-088-2F0C ECOL-089-980A EC0L-090-2F0 A ECOL-09 1-22 18 EC0L-C92-F491 ECOL-093-3C13 1800 

1810 EC0L-094-921A CC0M-056-70A2 CCOM-057-74B2 CCOM-05 8-7CC2 CCOM-059-E19E CCOM-060-7892 CC0M-061-002O CC0M-062-128E 1810 

1820 FILX-276-5C84 F IL X-277- 203F F [ LX-278-7 ECO F IL X- 279-86F2 F ILX-266-988E F ILX-241-F9 30 FI LX-242-4C52 F IL X-243-7C62 1820 

1830 FILX-244-7CE3 F ILX-245- 5C62 F I LX-246-5EDF F IL X-24 7-1D A3 F ILX-248-DD3C FI LX-249-3D83 FI LX-2 5Q-7CE0 F ILX-25 1-4C52 1830 

1840 FILX-252-3F15 F I L X-253- 7CEA F I LX-254-1F1D F ILX-255-FB EF F ILX-256-5DE8 F ILX-257-D5CF FI LX-258-7DB8 F I LX-259-5886 1840 

1850 FILX-260-C4FD F IL X-261-CB46 F I LX-262-1FEB F IL X-263-FF 44 F ILX-264-FBA9 FI LX-265- 8634 FI LX-229-1C25 FILX-230-7C52 1850 

1860 FILX-231-5E32 F IL X-232- 1E45 F I LX-233-7E32 F ILX-234-2E07 F ILX-235-2F25 F ILX-236-3F43 FI LX-2 37-F BAA FILX-238- 5DB8 1860 

1870 FILX-239-7DE8 F IL X-240-984E F I LX-225-3 EOO F ILX-22 6-5FFF F ILX-227-E0D0 F ILX-228-85 AC F I LX-267-CDA1 FI LX-268-CB06 1870 

1880 FILX-269-FF06 F ILX-270-FB8F F I LX-271-8634 F IL X-272-2F 45 F ILX-273-FBC7 FILX-274-F985 FI LX-2 75-865A F ILX-288-2A07 1880 

1890 FILX-289-2B25 F IL X-290-3B43 F I LX-291 -5CA8 F ILX-292-4CC6 F ILX-293-C4A4 F I LX-294- 5C AO F ILX-295-3B17 F ILX-296-5E AA 1890 

18A0 FILX-297-6FC5 F R X-298-C4AF F I LX-299-2C 13 F IL X-300-2F45 F ILX-301-CDC5 F IL X-302-F9C0 FI LX-303-98CA FILX-307-5DE9 18A0 

18B0 FILX-308-6BE3 F IL X-309-F4B8 F I LX-310-0 EFF F IL X-31 1-C4 A4 F I LX-3 12-2CA3 F ILX-31 3-7CF3 FI LX-3 14-F4A4 F I LX-31 5-924E 18B0 

18C0 PILX-304-4886 F IL X-305-C4AD F I LX-306-98CC F ILX-280-2C13 F ILX-281 -F9CC FILX-282-2F07 FI LX-283-3CA5 F I LX-284-2D07 18C0 

18D0 FILX-285-7C52 F ILX-286-2EE3 F I LX-287-92BA DCLR-136- 341 5 DCLR-137-15C 5 OCLR-138- 1533 DCLR-140-8 1CA ERC X-054-3B23 1800 

18E0 ERCX-055-9DCC ERCX-056-9DC8 ERCX-C 57-98DE ERC X-05'8-98 EE ERCX-059-9DC A ERCX-060-98EE ERCX-C61-98EE ERCX-065-F775 18E0 

1BF0 FRCX-066-2F83 ERC X-067-9DCC ERCX-068-2B80 E RC X-070-9DCC DCLR-238-2343 DCLR-239-56 12 DCLR-240-361 3 DCLR-241-A19C 18F0 

CONTROL 02468ACE 18 — 



19— 



1900 FPXF-041-2DAB E PXF-042- 2DAB EPXF-043-2DAB EPXF-044-2D AB EPXF-045-2DAB EPXF -046-2DAB EPXF-047-9C74 EPXF-048-9C80 1900 

1910 5007 ERDR-053-54E9 ERDR-054-C4AO ERDR-055-5E B2 ERDR-056-5069 ERDR-057- 8A68 ERDR-058-3C85 ERDR-059-950E 1910 

1920 ER0R-060-C3AE ERDR-061- F72C ERDR-062-2406 ERDR-06 3-CEAC ERDR-064-3D23 ER DR-065-DD AF ERDR-C 66-9F5C EROR-06 7-9812 1920 

1930 ER0R-068-8A63 ERDR-069-CEBD ERDR-070-8 178 ERDR-07 1-2C75 ERDR -072-4452 ERDR-073-8D6A ERDR-074-5460 ERDR-075-F747 1930 

1940 ER0P-076-2D30 ERDR-077-0F 30 ER0R-078-994A E R0R-079-2DQ4 ERDR-080-CB30 ERDR-08 1-2F A3 ER DR-082-0E3B ERDR-08 3-C4DC 1940 

1Q50 ERDR-084-F758 ERDR -085-DDDA ERDR-0 86-843C E RDR-087-8C 58 ERDR-088-CFD5 ERDR-089-99B6 ERDR-C90-0E4B ERDR-09 1-F76F 1950 

1960 ERDR-092-F0E9 ERDR-093-2D07 ERDR-094-CFDA ER0R-095-94D4 ERDR-096-CFF3 ERDR-C97- 3D45 ERDR-C98-9974 ER0R-099-F0FA 1960 

1970 ERDR-100-DDEA ERDR-10 1- 1045 ERDR-102-843C ERDR-103-3623 ERDR-104-A5E0 ERDR-105-2007 ER DR-106-D0DA EROR-10 7-1B00 1970 

1980 ERDR-108-6CF7 ERDR-109-EA34 ERDR-1 10-F A26 ERDR-1 1 1-EE 34 ERDR-1 12-E835 ERDR-1 1 3-76F2 ERDR-1 14-C El A ERDR-1 1 5-DE 18 1980 

1990 EROR-l 16-FA35 ERDR- 117-0004 ERDR-1 18-8F7A ERQR-11 9-920A E RDR-120-3C45 ERDR-12 1-DE IE ER DR-1 22-3C25 ERDR-123-1C 83 1990 

19A0 ERDR-124-3C23 ERDR-125-B3E8 ERDR-1 26-9C05 ERDR- 127-DA 35 ER0R-128-EDAF ERDR- 129-2B40 ERDR-1 30-9504 ERDR-13 1-3000 19A0 

19B0 ER0R-133-2E13 ERDR-137-99B8 ERDR-138-2 085 ERDR- 139-2E23 ERDR-140-B3E8 ERDR- 141-B43C ERDR-142-2 A07 ERDR-143-C3C2 i960 

19CC ERDR-144-9F5C ERDR-145- 8C60 ERDR-146-CC5D ERDR- 148-F7 53 ERDR-149-2445 ERDR- 150- 2513 ERDR-1 51-40A6 ERDR-152-31BB 19C0 

1900 ERDR-153-915A ERDR-154- EE56 ERDR-1 58-36A9 ERDR-159-2855 ERDR-160-291 5 ERDR-161- 3983 ERDR-1 62-5E49 ERDR-164-F565 1900 

19E0 ERDR-168-2A35 ERDR-169-9004 ERDR-1 70-261B EROR-17 1-F4EA ERDR-1 72-90A6 ERDR- 173-5884 ERDR-1 74-E471 ERDR-17 5-5884 19E0 

19F0 ERDR-176-21FF ERDR- 177-C4E4 EROR-l 78-9DA8 DCHN- 122-2400 DCHN-123-2 A07 DCHN-124-C3FE 0CHN-125-A7D6 DCHN-126-AA76 19F0 
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1A— 



1AOO ERDR-18O-2B08 ERDR-1 81-9150 
1A10 ALDP-039-88BC ALDP-040- 88C4 



ERDR-1 82-2B0C 
ALDP-041-3643 



ERDR-183-9150 ERDR-184-2B0 A ERDR- 185-91 50 ALDP-0 37-26A3 ALDP-03 8-2783 1A00 

ALDP-042-043D ALDP-043-E0B3 ALDP-044-88BC ALDP-045-24B3 ALDP-046-2577 1A10 



1A2G ALDP-047-534A A LDP-048- 88CE 
1A30 ALDP-055-9A28 ALDP-056-044B 



AL0P-049-D121 
ALDP-057-F0BD 



ALDP-050-D00D 
ALDP-058-041B 



ALDP-051-7543 ALDP-052-F520 ALDP-053-24F 3 ALDP-054-F320 1A20 

ALDP-059-F09A ALDP-060-3609 ALDP-C61-88C6 ALDP-06 2-3645 1A30 



1A40 ALDP-085-0420 ALDP-086-E0CA 
1A50 ALDP-097-E66C ALDP-098-C9ED 



AL0P-087-3 715 
ALDP-100-042B 



AL0P-088-047B 
ALDP-101-F0DC 



ALDP-089-9A5E ALDP-09C-043F ALDP-091-E09A ALDP-095-F0D4 1A40 
ALDP-102-E61B ALDP- 103- AF 78 ALDP-1 05-041B ALDP-11 5-F0E4 1A50 



1A60 ALDP-117-3615 AL0P-120-9A6C 
1A70 ALDP-128-88C6 ALDP-129-5403 



ALDP-121-044B 
ALDP-130-88C6 



ALDP-122-F09A 
AL0P-131-44DD 



ALDP-123-2715 ALDP- 124-3625 AL DP-1 26-6662 ALDP-12 7-88CC 1A60 
ALDP-132-88C6 ALDP-1 33-54 13 ALDP-1 34-88C6 ALDP-135-441D 1A70 



1A80 ALDP-1 36-88BC ALDP-139-C310 
1A90 ALDP-150-F730 ALDP-154-F61F 



ALDP-141-F00C 
ALDP-158-00C9 



ALDP-142-88CC 
ALDP-160-F49E 



ALDP-143-88CC ALDP- 144- 17AD ALDP-145-2243 ALDP-146-2515 1A80 

ALDP-161-3713 ALDP-162-9A1C ALDP-165-B3B2 ALDP-167-3685 1A90 



1AA0 ALDP-168-E640 ALDP-1 71-C3 1C 
1AB0 ALDP-179-E711 ALDP-1 80-88CC 



ALDP-1 73-88C6 
ALDP-181-25FF 



ALDP-174-54F3 

ALDP-182-C490 



ALDP-175-88C6 AL DP- 176-44FD ALDP-1 77-1 72D ALDP-178-839C 1AA0 
ALDP-183-88BC ALDP- 184-9A8E ALDP-2 02-0049 ALDP-204-9A96 1AB0 



1AC0 ALDP-206-839C ALDP-207- 1645 
1AD0 ALDP-2 14-F4D6 ALDP-21 5-2378 



ALDP-208-C74A 
ALDP-216-23CD 



ALDP-209-1785 
ALDP-217-88CE 



ALDP-21G-5FE9 ALDP-211- 
ALDP-2 18-D761 ALDP-219- 



5E35 
5E3D 



ALDP- 
ALDP- 



■212-23FD 
■220-1 76D 



ALDP- 
ALDP- 



213-0361 
221-9ACC 



1AC0 
1A00 



1AE0 ALDP-222-1740 ALDP-223-E 749 
1AF0 ALDP-235-888C ALPP-236- 88D2 



ALDP-224-22FF 
ALDP-237-2243 



ALDP-225-C4B2 

ALDP-238-88C4 



ALDP-226-3743 ALDP-232- 88CE ALDP-2 33-1743 ALDP-234-C3 75 1AE0 
ALDP-239-9AB4 CMLT-104-6FFB CMLT-1 05-6EED CMLT-106-677D 1AF0 



CONTROL 
STORAGE 







8 



1A — 
IB — 



1RG0 CMLT-107-666D CMLT-108 

1B10 ECOL-043-7BC9 ECOL-044 

1B20 EC0L-051-2CAB ECOL-052 

1B3C EC0L-028-6F41 EC0L-029 

1B40 ECO t. -0^6-2 82 8 E COL -03 7 

1B50 EC0L-0C6-4EA6 ECOL-007 

1B60 EC0L-014-E824 ECOL-015 

1B70 ECOL-053-2DCD ECOL-054 

1B80 ECOL -061-5629 EC0L-Q62 

1B90 ECOL-069-52D9 ECOL-070 

1BA0 EC0L-1C1-FCAB ECOL-102 

1BB0 ECOL-1 09-5889 ECOL-110 

1BC0 EC01-113-2D2B ECDL-114 

18D0 EC0L-121-9B46 ECOL-122 

1BE0 CSFT-046-9D3A CSFT-047 

1BF0 CFLS-021-1E8D CFLS-022 



-6BBD 
-2DAB 


CMLT- 

ECOL- 


-109- 
-045- 


-6AAD 
-7FC0 


!-9B0C 
I-D3 36 


ECOL- 
ECOL- 


-022- 
-030- 


-5738 
-6941 


'-31 IB 

'-5B99 


ECOL- 
ECOL- 


-03 8- 
-008- 


-C48D 
-5B59 


-2618 

-2DFB 


ECOL- 
ECOL- 


-016- 
-055- 


-F4A4 
-5119 


-71A2 

!-95CA 


ECOL- 
ECOL- 


-063- 
-095- 


-5C99 
-5 089 


-21FF 

i-FOBE 


ECOL- 
ECQL- 


-103- 
-111- 


-D829 
-9B4A 


-5FC0 
I-5FE9 


ECOL- 
ECOL- 


-115- 
-123- 


-3D9B 
-5BA9 


-2D2B 
-2C25 


CSFT- 
CFLS- 


-048- 
-023- 


-9BE8 
-CE78 



CMLT-110-699D 
EC0L-046-1C1B 

ECOL-023-E72A 
EC0L-031-E33A 

ECOL-039-5879 
ECOL-009-01E3 

ECOL-01 7-2DA1 
EC0L-056-C4FD 

ECOL-064-8F64 
ECOL-096-51A2 

ECOL-104-212B 
ECOL-071-3485 

EC0L-116-58C0 
EC0L-124-5599 

CSFT-049-1D23 
CFLS-02 4-1C7D 



CMLT-111-688D CMLT- 1 1 2- 12 8E ECOL-041-7 5C0 EC0L-042-2DAB 1600 

EC0L-047-F871 ECOL-048- 5959 ECOL-049-5 AB9 EC0L-C50-5EF9 1B1C 

ECOL -024-6541 ECOL-025-F72E ECOL-026-6B41 EC0L-027-C332 1B20 

ECOL-032-6A41 EC0L-033-F33E ECOL-034-6E41 ECOL-035-5224 1B30 

ECOL-040-B3C9 ECOL -003- 2485 ECOL-004-2 AF7 ECOL-005-5AB9 1B40 

ECOL-010-F0E1 ECOL-011-211B ECOL-C 12-086 1 ECOL-01 3-31 IB 1850 

ECOL-018-5ECO ECOL-01 9-3E13 ECOL-020-7ECO ECOL-02 1-9B7C I860 

ECOL-057-08AD ECOL -058- EOCA EC0L-C59-1C2B ECOL-060-E814 1870 

EC0L-065-8A68 ECOL-066- 2E07 ECOL -067-C 536 EC0L-068-F837 1880 

ECOL-097-52E2 EC0L-098-D8 IE ECOL -099-5224 EC0L-100-01E3 1B90 

ECOL-105-1C4B ECOL - 106-58D5 ECOL-1 07-2DCB EC0L-108-2D3D 1BA0 

EC0L-082-5FA0 ECOL-083-7C A8 ECOL-D 85-9F01 ECOL-11 2-203D 1BB0 

EC0L-117-309B ECOL- 1 18-55C0 ECOL-1 19-1C1B ECOL-120-F852 1BC0 

EC0L-125-3D9B ECOL-126-9BC2 CCOM-071-2B73 CCOM-072-89FC 1BD0 

CSFT-050-8420 CSFT-051-B340 CSFT-052-9D3A CFLS-014-1E85 18E0 

CFLS-025-8170 CFLS-026-D5FF CFLS-027-2C07 CFLS-028-81A6 18F0 



CONTROL STORAGE 



8 



1A00-1BFE 



CONTROL STORAGE ADDRESS LIST 

2 

1COO EC0L-127-C822 ECOL-l 28-980C 
1C10 EC0L-135-2483 ECOL-136- 9C IE 



1COO-10FE 



8 



CL0AD=*E60, EC 
C 



ECOL-1 29-2445 
ECOL-1 37-2443 



EC0L-130-9C1E 
EC0L-138-9C1E 



ECOL-131-2425 ECOL-132- 
ECOL-139-242 3 EC0L-140- 



LEVEL=128266 ,PAGE 293 
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9C1E ECOL-133-2415 EC0L-134-9C1E 1COO 
9C1E ECOL-141-2413 EC0L-142-C824 1C10 



1C20 ECOL-1 43-9B56 ECOL- 144- 9C9C 

1C3C DCLT-010-ECA6 DCLT-Ol 1-F026 

1C40 OCLT-018-3485 OCLT-Ol 9-70F2 

1C50 DCLT-026-CD40 0CLT-027- 021E 



EC0L-145-9CD2 
DCLT-C12-2400 

OCLT-020-5419 
DCLT-028-2400 



DCLT-0O8-AECA 
DCLT-013-5202 

DCLT-021-5209 
DCLT-029-4652 



DCLT-003-C62F DCLT-004-2007 

DCLT-014-6311 DCLT-Ol 5-C4A6 

DCLT-022-4452 DCLT-023-7432 

DCLT-031-2B87 DCLT-C32-52 AC 



DCLT-005-A262 DCLT-009-24F6 1C20 

DCLT-016-2 4F6 DCLT-017-C142 1C30 

DCLT-C24-OD04 DCLT-025-70E2 1C40 

DCLT-033-526F DCLT-034-566B 1C50 



1C60 DCLT-036-5212 OCLT-037-50F2 

1C70 DCLT-044-2400 DCLT-045- A43E 

1C80 EPXF-055-C504 FPXF-056-6141 

1C90 EPXF-063-C114 E PXF-064-6E41 



DCLT-038-5EE2 
EPXF-C49-2DID 

EPXF-057-D508 
EPXF-065-282B 



DCLT-039-1F13 

EPXF-050-2DEB 

EPXF-058-6741 

EPXF-066-2CFF 



DCLT-040-A024 DCLT-041 -8C 7A 

EPXF-051-5BC0 EPXF-052-6841 

EPXF-059-E50C EPXF-060-6941 

EPXF-067-C49D EPXF-G68-9CF6 



DCLT-C42-5A22 DCLT-043-2A13 1C60 

EPXF-053-7BC0 EPXF-054-58D5 1C70 

EPXF-061-F510 EPXF-062-6F41 1C80 

EPXF-C69-71C0 EPXF-070-2OAB 1C90 



1CAC FPXF-C71-77C0 FPX.F-C72- 2DAB 
1CBO EPXF-079-58D5 EPXF-080- 5019 



EPXF-073-79C0 
EPXF-081-C4C6 



EPXF-074-2D5D 
EPXF-082-9B8G 



EPXF-075-7FC0 EPXF-076- 2DAB 
EPXF-020-5B38 EPXF-02 1-55A0 



EPXF-077-5EF9 EPXF-078-7FC0 1CA0 

EPXF-C22-157B EPXF-023-9103 1CB0 



1CC0 EPXF-003-5109 EPXF-007-2A 65 
1CD0 EPXF-015-2485 EPXI=-0i6- 261B 



EPXF-009-CD5B 
EPXF-017-F4B8 



EPXF-010-21F7 
EPXF-018-5019 



EPXF-011-5179 EPXF-012-51F9 
EPXF-019-9B66 EPXF-024-58D5 



EPXF-013-51E9 EPXF-014-5199 1CC0 
EPXF-C25-5889 EPXF-026-F0C7 1C00 



ICED FPXF-C28-51C0 EPXF -029- 2DA8 
1CF0 FPXF-036-55C? F D XF-037- 55E9 



EPXF-030-57C0 
EPXF-038-58D5 



EPXF-031-2DAB 
EPXF-039-5859 



EPXF-032-59C0 FPXF-C33- 2D5D 
EPXF-040-B109 CSFT-014- 10CE 



EPXF-034-5FC0 EPXF-035-2DAB 1CE0 
CSFT-C15-7CC2 CSFT-016-51D9 1CF0 



CONTROL 
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1D0Q CSFT-017-55BB C SF T-018- 5EA8 
1D10 CSFT-025-52A3 C SFT-026- 50AA 



CSFT-019-56AA 

CSFT-027-E01C 



CSFT-020-DO>14 
CSFT-028-CE1C 



CSFT-021-F50E CSFT-Q22-5CC2 
CSFT-029-2AF7 CSFT-030-204C 



CSFT-023-AE94 CSFT-024-3B15 1D00 
CSFT-C31-5DC9 C SFT-03 2-6CC3 IDIO 



1D20 CSFT-033-1C85 C SFT-034-E0AB 
1030 CSFT-041-1DC3 C SFT-042- 8977 



CSFT-035-B29A 
CSFT-054-1D83 



CSFT-03 6-2CFD 

CSFT-05 5-F038 



CSFT-037-E0A4 CSFT-038- FO 35 
CSFT-056-8420 CSFT-057-2A07 



CSFT-C39-D930 CSFT-04G-B340 1D20 
CSFT-058-5CC2 CSFT-059-D046 1D30 



1040 CSFT-060-72A8 C SFT-06 1-70 AA 
1D50 CSFT-068-C5DE C SFT-069-56 AO 



CSFT-062-1B15 
CSFT -070-1685 



CSFT-063-7EA8 
CSFT-071-D1DA 



CSFT-064-76AA CSFT-065-E04F 
CSFT-072-3685 CSFT-073- 76A0 



CSFT-C66-AA76 CSFT-067-F05E 1D40 

CSFT-C74-AC40 CSFT-075-CE64 1D50 



1060 CSFT-076-A820 C SF T-085-A824 
1070 CSFT-083-D5E3 C SFT-084- AA74 



CSFT-077-0008 
BWRP-124-E1F9 



CSFT-078-4EE6 
BWRP-125-8174 



CSFT-079-4666 CSFT-080-D0 70 
BWRP-126-2A07 BWRP- 127-2B43 



CSFT-G81-4226 CSFT-082-4006 1060 
BWRP-128-2F07 BWRP-129-89FE 1070 



1080 ERCX-049-B3E8 ERC X-053-998C 
1D90 ERCX-008-5FF9 ERC X-009- E096 



ERCX-002-5E88 
ERCX-010-9A71 



ERCX-003-6FF3 
ERCX-011-0E83 



ERCX-004-6FF.3 ERCX-005- 5F B3 
ERCX-012-F0A4 ERCX-01 3-3B43 



ERCX-GG6-6BE5 ERCX-007-1B73 1080 
ERCX-0 14-CF21 ERCX-01 5-9F 71 1090 



1DA0 ERCX-016-0F85 ERC X-01 7-E0CD 
1DB0 FRCX-036-C536 ERC X-C3 7-F83D 



ERCX-018-98EE 
ERCX-038-9B90 



ERCX-031-3C13 
ERCX-039-221B 



ERCX-032-5629 ERCX-033-2607 
ERCX-040-F4BD ERCX-04 1- 3C 13 



ERCX-034-54E9 ERCX-035-5460 10A0 

ERCX-C42-71A2 ERCX-044-F701 1DB0 



10CO ERCX-045-CBC4 ERCX-046-3D83 
1DD0 ERCX-023-21FF ERC X-024-C4A9 



ERCX-047-0D80 
ERCX-025-261B 



ERCX-048-9212 
ERCX-02 6-F4A7 



EPCX-C19-3B23 ERCX-020-3B 13 
ERCX-027-E404 ERCX-028-5F88 



ERCX-021-5FAO ERCX-022-7F38 1DC0 
ERCX-029-7F38 ERCX-030-9DD0 1000 



1DE0 CFHA-044-6DDD C FHA-045- 655B 
1DF0 CFHA-0 52-688D C FH A-053-6FFD 



CFHA-046-F46F 
CFHA-054-C1FB 



CFHA-047-611D 
CFHA-055-6AA0 



CFHA-048-6000 CFHA-049-633D 
CFHA-056-128E CFHA-057-6EED 



CFHA-C 50-6220 CFHA-05 1-699D 1DE0 
CFHA-D58-128E CFMD-009-3082 iOFO 
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CONTROL STORAGE ADDRESS LIST 

2 

1EOO CFMD-010-B170 CFMD-Oll- 
1E10 CFMD-019-5CC2 CFMD-020- 



D595 CFMD-012-D180 
B1A0 CFMD-021-D19C 



1E20 CFMD-027-2E40 CFMD-028-OFF3 
1E30 CFMD-035-5ED9 C FMD-036- 2E07 



CFMD-029-C4AC 
CFMD-037-896A 



1EOO-1FFE 



CFMD-013-F00C 
CFM0-022-5E69 

CFMD-030-B2F8 
CFMD-038-5AE2 



8 



CFMD-014-27F3 
CFMD-023-3E85 

CFMD-031-2EFF 
CFMD-039-B42E 



CFMD-015-B1A8 
CFMD-024-9E22 
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CFMD-016-FOU 
CFMD-0 25-5E79 



CFMD-017-1415 1EOO 
CFMD-026-1E85 IE 10 



CFMD-032-9E22 CFMD-033-D1BF CFMD-034-3B35 1E20 
CFMD-040-2040 CFMD-C41-9E00 CFMD-042-5EC9 1E30 



1E40 CFMD-043-2E0 7 C FMD-044- 

1E50 CFMD-051-896A CFMD-052- 

1F60 CFMD-059-4C86 C.FMD-060- 

1E70 CFMD-067-4606 CFMD-068- 

1E80 CFMD-075-8992 DCLC-165- 

1F90 DCLC-090-FC85 DCLC-091- 

1EA0 DCLC-0 Q 8-8E4C PCLC-099- 

1EB0 DCLC-106-2D0? DCLC-107- 

1EC0 DCLC-131-D148 DCLC-132- 

IEDO DCLC-139-C55F DCLC-140- 

1EEC DCLC-147-0D10 PCLC-148- 

1FF0 0CLC-16C-2645 DCLC-161- 



6761 

3B35 

B42E 
B42E 

95 DA 
E123 

C4B6 
1543 

F247 
D560 

A782 
3613 



CONTROL 
STORAGE 



n 



1F00 DCLC-152-1573 DCLC-153- 

1F10 FRR0-013-C46B ERPQ-014- 

1F2C ERR0-061-DA5F FRRQ-062- 

1F3C ERRQ-O10-DO94 ERPQ-Oli- 

1F40 ERR0-C35-QB10 ERRQ-036- 

1F5C FRR0-043-C30F ERRQ-044- 

1F60 ERRC-050-2A0 7 ERRQ-051- 

1F70 ERR0-021-FFC4 ERRQ-022- 

1^80 ERRQ-029-9F44 CFDV-006- 

1^90 CFDV-013-76F2 CFDV-014- 

1FA0 CFDV-021-7CA2 CFDV-022- 

1FB0 CFDV-029-300 2 CFDV-030- 

1FC0 CFDV-C40-F443 CFDV-041- 

1FD0 CFDV-043-8170 CFDV-049- 

1FE0 CFDV-056-3585 CFDV-057- 

1FFD CFOV-035-1002 CFDV-036- 

CONTROL STORAGE 2 



AF72 

•CFB5 

•A820 
•D995 

•3485 
•D45D 

•8FCE 
•9816 

■3082 
•F5A2 

•90E0 
•D1BB 

•07CB 
■D5D7 

■75A0 
■9FB2 



CFMD-045-17F3 
CFMD-0 53-F058 

CFMD-061-2B07 
CFMD-C69-4A86 

DCLC-124-A154 
DCLC-092-F123 

DCLC-1Q0-F233 
DCL0-108-8442 

DCLC-133-2D02 
DCLC-141-04C7 

DCLC-154-2D10 
DCLC-162-5212 



ERRQ-0 54-8CA4 
ERRQ-015-8CD4 

ERRQ-004-8F7C 
ERRQ-C 12-8 IOC 

ERRQ-C37-8FCE 

ERRQ-C45-EA5D 

ERRQ-052-D104 
ERRQ-023-2D15 

CFDV-007-B04A 
CFDV-015-2C13 

CFDV-023-3002 
CFDV-031-CD2A 

CFDV-042-F0A6 
CFDV-050-B1A0 

CFDV-058-F375 
CFDV-G63-27D3 



CFMD-Q46-7CDD 
CFMD-054-9F82 

CFM0-062-46E6 
CFMD-070-48E6 

DCLC-085-E605 
DCLC-093-2B38 

DCLC-101-2D04 
DCLC-126-CQ4E 

DCLC-134-1543 
DCLC-142-C4E0 

DCLC-155-2B88 
DCLC-163-D402 



ERRQ-064-2406 
ERRQ-055-E261 

ERRQ-005-3623 
ERRQ-03Q-3F6C 

ERR0-038-D54A 
ERR0-046-4452 

ERR0-053-8CDE 
ERRQ-024-5CCD 

CFOV-008-5AE2 
CFDV-016-A656 

CFDV-024-00 40 
CFDV-03 2-2040 

CFDV-043-9FCC 
CFDV-051-56A2 

CF0V-C59-C66B 
CFDV-064-55E9 



CFMD-G47-57D9 
CFMD-055-10CE 

CFMD-063-4E86 
CFMD-C71-4E06 

DCLC-086-FD8F 
DCLC-094-E605 

DCLC-102-3685 
DCLC-127-D03C 

DCLC-135-2285 
DCLC-143-C461 

DCLC-156-E6C5 
DCLC-164-95D6 

8 



ERRQ-065-0B30 
ERR0-056-C3C5 

ERRQ-006-CEAD 
ERRQ-031-2466 

ERR0-039-8D64 
ERRQ-047-B406 

ERR0-017-8F64 
ERR0-025-B3E8 

CFDV-009-B42E 
CFDV-017-5CA2 

CFDV-G25-2D13 
CFDV-033-9FAA 

CFDV-0 44-5779 
CFDV-052-5659 

CFDV-060-0080 
CFDV-065-B19E 

8 



CFMD- 
CFMD- 


-048- 
-056- 


-F5CF 
-2080 


CFMD- 
CFMD- 


-049- 
-057- 


-3D13 
-F46E 


CFMD- 
CFMD- 


-05 0-7CA2 
-058-42E6 


1E40 
1E50 


CFMD- 
CFMD- 


-064- 
-072- 


-48A6 
-4066 


CFMD- 

CFMD- 


-0 65- 
-073- 


-8992 
-4626 


CFMD- 
CFMD- 


-066-4C26 
-074-42C6 


1E60 
1E70 


DCLC- 
OCLC- 


-087- 
-095- 


-2623 
-C9A0 


DCLC- 
DCLC- 


-088- 
-0 96- 


-FD86 
-262B 


DCLC- 
DCLC- 


-089-5F4F 
-097-C999 


1E80 
1E90 


DCLC- 
DCLC- 


-10 3- 
-128- 


-7632 

-0040 


DCLC- 
DCLC- 


-104- 
-129- 


-1685 
-F44F 


DCLC- 
DCLC- 


-105-D134 
-130-2D04 


1EA0 
1EB0 


DCLC- 
DCLC- 


-136- 
-144- 


-2307 
-0065 


DCLC- 
DCLC- 


-137- 
-145- 


-7232 

-C07B 


DCLC- 
DCLC- 


-138-2307 
-146-15C5 


1EC0 
1ED0 


DCLC- 
DCLC- 


-157- 
-149- 

A 


-C9F0 
-2010 


DCLC- 
DCLC- 


-158- 
-150- 

C 


-262B 
-2B48 


DCLC- 
DCLC- 


-159-C9E9 
-151-2405 

E 


1EE0 
1EF0 

IE — 
IF — 


ERRQ- 
ERRQ- 


-066- 

-058- 


•9816 
-C422 


ERRQ- 
ERRQ- 


-067- 
-059- 


-8A68 
-D15F 


ERRQ- 
ERRO- 


-068-999E 
-060-CA23 


1F00 
IF 10 


ERRO- 
ERRQ- 


-007- 
-032- 


-99 36 

-E607 


ERRQ- 
ERRQ- 


-008- 
-0 33- 


-F710 
-2406 


ERRO- 
ERRO- 


-009-C439 
-03 4-D996 


1F20 
1F30 


ERRQ- 
ERRQ- 


-040- 
-048- 


-3E43 
-A7F2 


ERRO- 
ERRO- 


-041- 
-0 49- 


-E261 
-A7D8 


ERRQ- 
ERRQ- 


-042-F75E 
-063-8D68 


1F40 
1F50 


ERRQ- 
ERRQ- 


-018- 
-026- 


-DB96 
-7CA0 


ERRQ- 
ERRQ- 


-019- 
-0 27- 


-0F1O 
-1545 


ERRQ- 
ERRQ- 


-020-C442 
-028-3E23 


1F60 
1F70 


CFDV- 
CFDV- 


-010- 
-018- 


-46A6 
-2C13 


CFDV- 
CFDV- 


-011- 
-019- 


-3B35 
-C4A0 


CFDV- 
CFDV- 


-012-3713 
-020-1D13 


1F80 
1F9C 


CFDV- 
CFDV- 


-026- 
-037- 


-804A 
-56F2 


CFDV- 
CFDV- 


-0 27- 
-038- 


-F5EE 
-7D68 


CFDV- 
CFDV- 


-028-9DE0 
-039-76F2 


1FA0 
1FBG 


CFDV- 
CFDV- 


-045- 

-053- 


-F0A6 
-5CC2 


CFDV- 
CFDV- 


-0 46- 
-054- 


-5AE2 
-1585 


CFDV- 
CFOV- 


-04 7-B42E 
-055-C762 


1FC0 
1F00 


CFDV- 


-061- 

A 


-27C3 

5007 


CFDV- 
BDIA- 


-062- 

-0 87- 

C 


-31A8 
-2810 


CFDV- 
BDIA- 


-034-9DE0 
-088-D57F 

E 1E00 


1FE0 
1FF0 

-1FFE 



CONTROL STORAGE ADDRESS LIST 

2 

2000 B0IA-091-28n BQIA-092- 

2010 CCQM-114-5778 CCOM-115- 

2020 CCQM-125-4626 CCOM-126- 

2030 CCQM-135-2B47 CCOM-137- 

2040 BOIA-106-2810 BDIA-111- 

2050 FILE-350-4EDF FILE-351- 

2060 BDIA-119-D57F CMLT-006- 

2070 CMLT-0C9-F563 CMLT-010- 

2080 ROIA-131-3E09 BDIA-132- 

2090 8D1A-142-ACDA BDIA-143- 

20A0 BOIA-153-0E5F BDIA-154- 

20B0 B0IA-161-2EF7 B0IA-162- 

20C0 BDIA-172-3E15 BDIA-176- 

2000 R0IA-189-1FF5 BDIA-190- 

2CE0 8DIA-198-12SF. PDIA-201- 

20P0 8DIA-211-E0FO BD1A-212- 



CONTRQL 
STORAGE 







2100 BDTA-222-2FF7 BDIA-223- 

2110 BDIA-23C-1EFF BOIA-231- 

2120 8DIA-238-048P BDIA-239- 

2130 BDIA-246-2E45 BOIA-247- 

2140 R0IA-256-FB34 BHIA-257- 

2150 CFLS-007-1E85 CFLS-008- 

2160 OCLR-165-2B10 DCLR-166- 

2170 DCLR-173-33C5 DCLR-175- 

2180 DCLR-188-E690 OCLR-189- 

2190 DCLR-191-24P6 DCLR-192- 

21A0 0CLR-199-C9B3 0CLR-2Q0- 

2180 OCLR-207-221B DCLR-208- 

21C0 OCLR-219-7222 DCLR-220- 

21D0 DCLR-227-BC46 DYPE-090- 

21E0 OYPE-097-957A DYPE-098- 

21F0 OYPE-1O3-0F5B DYPE-104- 

CONTROL STORAGE 2 















2000-21FE 










CLOAD^ 


=*E60, EC 


LEVEL* 


= 128266 ,PAGE 29 






4 






6 






8 






A 






C 




E 


20 — 


25F5 
3763 


BDIA- 

CCOM- 


-096- 
-116- 


-E504 
-5 860 


BDIA- 
CCOM- 


•097- 
117- 


-2810 
■5B6B 


BDIA- 
CCOM- 


-101- 
-118- 


-F50 8 
-2707 


BDIA- 
CCOM- 


-102- 
-120- 


•2810 
•F0A5 


BDIA- 
CCOM- 


-103-A040 
-121-4E52 


CCOM- 
CCOM- 


-110-2607 
-123-4252 


2000 
2010 


4026 
42AF 


CCOM- 
CCOM- 


-127- 
-139- 


-2B45 

-7EB0 


CCOM- 
CCOM- 


-129- 
-141- 


-42AF 
-5282 


CCOM- 
CCOM- 


-131- 
-142- 


-76B8 
-423F 


CCOM- 
CCOM- 


-132- 
-145- 


■72B8 
■C5BE 


CCOM- 
CCOM- 


-133-6AA4 
-146-128E 


CCOM- 
CCOM- 


-134-70B0 
-147-AEDO 


2020 
2030 


C55F 

2D07 


FILE- 
FILE- 


-344- 
-352- 


-2C07 
-4B0F 


FILE- 
FILE- 


-345- 
■35 3- 


-4BCF 
■4EDF 


FILE- 
FILE- 


-346- 
-354- 


-4ECF 
-4F0F 


FILE- 
FILE- 


-347- 
-355- 


-2015 
■490F 


FILE- 
FILE- 


-348-4BDF 
-356-128E 


FILE-349-2D45 
BDIA-114-2810 


2040 
2050 


AE94' 
3515 


CMLT- 
CMLT- 


-002- 
-011- 


-F563 

-8270 


CMLT- 
CMLT- 


-003- 
■012- 


-3515 

-897A 


CMLT- 
CBIN- 


-004- 
-0 72- 


-B3F6 
-8270 


CMLT- 
CBIN- 


-005- 
-073- 


■897A 
■8E7C 


CMLT- 


-007-E1F1 
5007 


CMLT- 
BOIA- 


-00 8-34 85 
-125-2800 


2060 
2070 


C483 

7EE1 


BDIA- 
BDIA- 


-133- 
-147- 


-F085 
-F494 


BDIA- 
BDIA- 


■134- 
-148- 


-E087 
-7EE1 


BDIA- 
BDIA- 


-135- 
-149- 


-F489 
-6EE3 


BDIA- 
BDIA- 


-136- 
-150- 


■6EE5 
-2E5F 


8DIA- 
BDIA- 


-137-AOOA 
-151-6EE3 


BDIA- 
BDIA- 


-138-2E0O 
-152-6EE9 


2080 
2090 


C4A2 
OEll 


BDIA- 

BOIA- 


-155- 
-163- 


-2E87 
-F0B4 


BOIA- 
BOIA- 


-156- 
■164- 


-3E27 
-E0B6 


BOIA- 
BOIA- 


-157- 
-165- 


-2EEF 
-1EFB 


BDIA- 
BDIA- 


-158- 
-166- 


■2E77 

■A0E2 


BDIA- 
BOIA- 


-159-1E87 
-167-1EF3 


BDIA- 
BOIA- 


-160-1EB7 
-171-A0E2 


20A0 
20B0 


A0E2 
C4D2 


BOIA- 

BDIA- 


-177- 
-191- 


-3E0D 
-2EF5 


BOIA- 
BDIA- 


-181- 
-192- 


-2E1D 

-A0E2 


BOIA- 
BDIA- 


-182- 
-193- 


-2FF5 
-A0E8 


BDIA- 
8DIA- 


-183- 
-195- 


-AODA 
-OEFF 


BDIA- 
BDIA- 


-184-OFFD 
-196-C4E1 


BOI A- 
BDIA- 


-188-C4CE 
-197-2810 


20C0 
20D0 


OEFD 
F0F2 


BDIA- 
BDIA- 


-2 02- 
-213- 

4 


-C4DE 
-2400 


BDIA- 
BOI A- 


-203- 
-214- 

6 


-128E 
-574F 


BOIA- 
BDIA- 


-207- 
-215- 

8 


-24F6 
-0487 


BDIA- 
BDIA- 


-208- 
-216- 

A 


-578F 

-EOFA 


BDIA- 
BDIA- 


-209-1887 
-217-FOFC 

C 


BOIA- 
8DIA- 


-21 0-08 7F 
-221-2EF7 

E 


20E0 
20F0 

20— 
21 — 


6E02 
C492 


BDIA- 
8DIA- 


-224- 
-232- 


-2E05 
-2E33 


BDIA- 

BDI A- 


-225- 
■23 3- 


-2F05 
-2F87 


BDIA- 
BDIA- 


-2 26- 
-234- 


-4E0 2 
-6FE8 


BDIA- 
BDIA- 


-227- 
-235- 


-OFFF 
-6FEA 


BDIA- 
BDIA- 


-228-E08C 
-2 36-44E8 


BDIA- 
BDIA- 


-229-F08E 
-237-2F13 


2100 
2110 


E0A2 
3FE9 


BDIA- 
BDIA- 


-240- 
-248- 


-F0A4 
-2 5F7 


BDI A- 
BDIA- 


-241- 
-249- 


-2.57F 

-75E0 


BOIA- 
BOIA- 


-242- 
-251- 


-C4A8 
-2505 


BDIA- 
BOIA- 


-24 3- 
-252- 


■2E05 
-55EA 


BDIA- 
BDIA- 


-244-55EA 
-254-05FF 


BDIA- 
BDIA- 


-245-C4AE 
-255-C4BE 


2120 
2130 


44E6 
9BF2 


BOIA- 

DCLR- 


-258- 
-155- 


-0440 
-562P 


BDI A- 
DCLR- 


-25 9- 
■156- 


-C4C6 
-221E 


BOIA- 
DCLR- 


-2 60- 
-157- 


-75F1 
-5C3F 


BOIA- 
OCLR- 


-261- 
-159- 


■C4CA 
■7222 


BDIA- 
DCLR- 


-262-0C6C 
-163-5D2F 


BDIA- 
DCLR- 


-263-88EC 
-164-5E3F 


2140 
2150 


2407 
5622 


OCLR- 
DCLR- 


-167- 
-179- 


-2585 
-5 72 9 


OCLR- 
OCLR- 


•168- 
-180- 


-3573 
-725A 


OCLR- 

OCLR- 


-169- 
-181- 


-765A 
-577F 


DCLR- 
DCLR- 


-170- 
-182- 


-725A 
■7650 


DCLR- 
DCLR- 


-171-5 350 
-183-3573 


DCLR- 
DCLR- 


-172-231B 
-184-5650 


2160 
2170 


2800 
2B80 


DCLR- 
DCLR- 


-190- 
-193- 


-A 194 
-2507 


DCLR- 

OCLR- 


-229- 
•194- 


-53 49 
-021E 


DCLR- 
DCLR- 


-230- 
-195- 


-3613 
-2 32 3 


DCLR- 
DCLR- 


-231- 

-196- 


-1D00 
■0D02 


DCLR- 
DCLR- 


-232-B026 
-197-C38F 


DCLR- 
DCLR- 


-152-A706 
-19 8-2B80 


2180 
2190 


2B84 
C9B8 


DCLR- 
DCLR- 


-201- 
-209- 


-2207 
-F4B0 


DCLR- 
OCLR- 


■202- 
•210- 


-C9B8 
■OD10 


DCLR- 
DCLR- 


-203- 
-212- 


-22 IB 
-C687 


OCLR- 

OCLR- 


-204- 
-213- 


-F4A6 
-E6 87 


OCLR- 
DCLR- 


-205-2010 
-217-F207 


OCLR- 
OCLR- 


-206-3B80 
-218-221E 


21 AG 
21 BO 


08C6 
5AFF 


DCLR- 
DYPE- 


-221- 
-091- 


-3413 

-1FC5 


OCLR- 

DYPE- 


■222- 

■092- 


-2B00 
-0AF1 


DCLR- 
DYPE- 


-223- 

-093- 


-2400 
-CADC 


DCLR- 
DYPE- 


-224- 

-094- 


-5E22 
•2D 15 


DCLR- 
DYPE- 


-225-021E 
-095-C06D 


OCLR- 
OYPE- 


-226-1000 
-096-4806 


21C0 
21 DO 


4086 
C4F0 


OYPE- 
OYPE- 


-099- 
-105- 

4 


-42CF 
-OFAB 


DYPE- 
DYPE- 


-100- 
■106- 

6 


-F56B 
-C40A 


DYPE- 
DYPE- 


-101- 
-107- 

8 


-7F38 
-2E13 


DYPE- 
OYPE- 


-102- 
-108- 

A 


■87D2 
■1545 


DYPE- 
DYPE- 


-112-87DE 
-1G9-C06F 

C 


DYPE- 
DYPE- 


-111-B36E 
-110-87E0 

E 2000 


21E0 
21F0 

-21FE 



CONTROL STORAGE ADDRESS LIST 

2 

2200 CMLT-153-3D25 CMLT-159- 

2210 0MCS-U5-4C5D DMCS-115- 

2220 DCLT-052-E9A8 DCLT-053- 

2230 0CLT-064-C464 DCLT-065- 

2240 0CLH-015-8DF6 0CLH-C16- 

2250 DCLH-023-2B84 DCLH-024- 

2260 DCLH-005-2043 DCLH-006- 

2270 DCLH-013-D140 DCLH-014- 

2280 DCLT-078-7CF2 DCLT-079- 

2290 BSYS-C05-2607 8SYS-023- 

22A0 BSYS-042-2490 BSYS-043- 

22B0 BSYS-061-27C5 8SYS-063- 

22C0 BSYS-074-7AE0 8SYS-075- 

22D0 RSYS-096-7AE0 RSYS-115- 

22E0 BSYS-177-C3E4 8SVS-178- 

2?F0 BSYS-185-1212 PSYS-186- 



2200-23FE 



8 



A752 
6C4D 

A6FC 
2A07 

2C25 
0210 

7022 

8DFA 

2400 
24F6 

8F90 
2675 

2F1D 
7A32 

B3 90 
5C82 



CMLT- 
OMCS- 

DCLT- 
QCLT- 

DCLH- 
DCLH- 

DCLH- 
DCLT- 

DCLT- 
BSYS- 

BSYS- 
BSYS- 

BSYS- 
BSYS- 

BSYS- 
BSYS- 



160- 
115- 

055- 
066- 

017- 
025- 

007- 
072- 

080- 
024- 

044- 
067- 

076- 
117- 

179- 
•187- 



-1D25 
-7C7D 

-D9A3 
-2413 

-24F6 
-E55D 

-2 4F6 
-1583 

-5BA2 
-405 2 

-A044 
-5760 

-F4C0 
-7A52 

-E8EE 
-44CF 



CMLT-161-A754 CMLT-1 62-89C4 

DMCS-115-7B7E DCLT-047-3000 

DCLT-056-C9A3 DCLT-060-5AC2 

DCLT-067-24F6 DCLT-068-221 E 

DCLH-018-2210 0CLH-019-F04E 

DCLH-026-4006 DCLH-027-C4DD 



DCLH-008-2B80 
DCLT-073-FCFA 

DCLT-081-3B85 
BSYS-025-4206 

BSYS-045-49CF 
8SYS-068-497F 

BSYS-077-2F91 
BSYS-U8-7A62 

BSYS-180-062C 
BSYS-188-42DF 



CONTROL 
STORAGE 







2300 CFMU-062-C6C5 CFMU-063- 

2310 CPMU-028-5CF? CFMU-029- 

2320 CFMU-036-569O CFMU-037- 

2330 CFMIJ-044-0FF3 Cf : MU-045- 

2340 CFMU-052-D5C5 CFMI.J-C53- 

2350 CFMU-060-27D3 CFMU-061- 

2360 CFMU-015-5FC9 CFMU-016- 

2370 CFMU-0 23-A32C CMLT-163- 

2380 DMCS-004-E09C DMCS-005- 

2390 DMCS-016-CA15 DMCS-017- 

23A0 OMCS-027-76F2 0MCS-C28- 

23B0 DMCS-038-4826 DMCS-039- 

23C0 DMCS -046-5 2A? DMCS-047- 

23D0 DMCS-051-0CFD OHCS-052- 

23 EO OMCS -063-250 5 DMCS -064- 

23F0 CBIM-019-AD54 DCHN-041- 

CONTROL STORAGE 2 



00 80 
52C8 

5359 
C4BC 

B1A0 
B19E 

5 7F9 

3002 

E31C 
3385 

2F10 
691B 

6773 
C4B6 

52A2 
56D2 



CFMU-064-27C3 
CFMU-030-5EC0 

CFMU-038-5039 
CFMU-Q46-B2F8 

CFMU-054-56E9 
CFMU-009-5CB2 

CFMU-0 17-5 189 
CMLT-164-A752 

DMCS-006-EB09 
QMCS-018-73C0 

DMCS-032-2713 
DMCS-04G-68AD 

DHCS-048-D72C 
DMCS-053-497F 

DMCS-068-2BF7 
DCHN-053-1773 



CFMU-065-B1A6 
CFMU-031-2C13 

CFMU-03 9-5109 
CFMU-047-26PF 

CFMU-055-1E85 
CFMU-010-FC08 

CFMU-018-5299 
CMLT-165-10O2 

DMCS-007-F21D 
DMCS-019-8C58 

DMCS-03 3-72A2 
DHCS-041-5B38 

OMCS-049-21F5 
0MCS-055-2C75 

DMCS-06 9-7BC8 
DCHN-05 9-5785 



DCLH-009-5622 
DCLT-074-3483 

DCLT-082-7AE2 
BSYS-026-4406 

B.SYS-046-E5A3 
BSYS-069-2F00 

BSYS-078-7AEA 
BSYS-173-40A6 

BSYS-181-1212 
BSVS-189-4852 

8 



CFMU-Q24-5CA2 
CFMU-032-89D6 

CFMU-C40-5219 
CFMU-0 48 -F4BD 

CFMU-056-C74C 
CFMU-0 11-44C6 

CFMU-0 19-5329 
CMLT-166-3D25 

DMCS-009-2C75 

DMCS-020-EE4A 

DMCS-034-2427 

DMCS-042-5D98 

DMCS-050-A3D4 
DMCS-059-2D05 

DMCS-070-F866 
DCHN-060-1B83 

8 



DMCS-115-1028 
DCLT-049-2480 

DCLT-061-2A15 
DCLT-069-F074 

OCLH-020-0210 
OCLH-028-3445 

0CLH-C1C-5659 
DCLT-075-CD40 

DCLT-083-9C52 
BSYS-027-46 06 

BSYS-04 7-2E08 
BSYS-070-2400 

BSYS-093-2E15 
BSYS-174-3212 

BSYS-182-4052 
BSYS-190-5CC2 
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DMCS-115-303C 
OCLT-050-5432 

DCLT-062-7A22 
DCLT-0 70-141 3 

DCLH-021-810C 
DCLH-029-B02E 

DCLH-0 11-2 645 
DCLT-C 76-2470 

BSYS-002-4E42 
8SYS-C28-4A06 

BSYS-048-1E00 
BSYS-071-6EE4 

BSYS-0 94-7AEA 
BSYS-175-1210 

BSYS-183-8A26 
BSYS-191-2F07 



CFMU-025-C91B 
CFMU-033-54B2 

CFMU-041-5729 
CFMU-C49-3713 

CFMU-057-3E85 
CFMU-012-1415 

CFMU-020-5E39 
CMLT-167-A754 

DMCS-013-2D05 
DMCS-021-EB1F 

OMCS-035-25A3 
DMCS-043-2C18 

0MCS-023-F21D 
DMCS-C60-55C0 

DMCS-071-2B05 
DCHN-061-3BB5 



CFMU-026-3083 
CFMU-0 34-5 AF 9 

CFMU-0 42- 46C6 
CFMU-0 50-5 AE 2 

CFMU-058-2O8O 
CFMU-C13-5CA2 

CFMU -021-2107 
CMLT-168-89C4 

DMCS-014-5 3CO 
DMCS-C22-8C5C 

DMCS-036-4148 
DMCS-044-6B01 

DMCS-C24-3F23 
DMCS-C61-C560 

OMCS-072-B248 
DCHN-063-5BA0 



DMCS- 
DCLT- 


-115- 
-05 1- 


-50 78 
-C425 


2200 
2210 


DCLT- 
DCLT- 


-063- 
-071- 


-2A13 
-9C3E 


2220 
2230 


DCLH- 
DCLH- 


-022- 
-004- 


-1D00 
-C643 


2240 
2250 


DCLH- 
DCLT- 


-012- 
-077- 


-2407 
-74A2 


2260 
2270 


BSYS- 
BSYS- 


-004- 
-032- 


-2460 
-2008 


2280 
2290 


BSYS- 
8SYS- 


-060- 
-072- 


-2482 
-7AEA 


22A0 
22B0 


BSYS- 
BSYS- 


-095- 
-176- 


-7AEA 
-20A0 


22C0 
22 DO 


BSYS- 
BSYS- 


-184- 
-192- 


-162C 
-8A40 


22E0 
22FC 




E 




22 — 
23 — 


CFMU- 
CFMU- 


-02 7- 
-035- 


-7CA2 
-5B89 


2300 
2310 


CFMU- 
CFMU- 


-043- 
-051- 


-5CC2 
-B170 


2320 
2330 


CFMU- 
CFMU- 


-05 9- 
-014- 


-F300 
-5079 


2340 
2350 


CFMU- 
OMCS- 


-022- 
-003- 


-2507 
-1E7D 


2360 
23 70 


DMCS- 
DMCS- 


-015- 
-026- 


-1385 
-74E2 


2380 
2390 


DMCS- 
DMCS- 


-03 7- 
-045- 


-51C9 
-C401 


23A0 
23B0 


DMCS- 
DMCS- 


-025- 
-062- 


-8C58 
-3785 


2 3 CO 
2300 


CBIN- 
DCHN- 


-018- 
-073- 


-AE06 
-5468 


23E0 
23 FO 




E 


2200 


-23FE 
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2400 DCHN-074-C251 DCHN-075- 
2410 DCHN-082-556A DCHN-083- 



2400-25FE 



8 
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844A DCHN-076-4052 
D119 DCHN-084-C118 



DCHN-077-4206 
DCHN-08 5-3C85 



DCHN-078-D146 DCHN- 
0CHN-086-5666 DCHN- 



079-C110 DCHN- 
087-7068 DCHN- 



080-3485 
088-7160 



DCHN- 
DCHN- 



081-1583 
089- 176 B 



24 — 

2400 
2410 



2420 DCHN-090-5C6 8 DCHN-091-5260 
2430 DCHN-098-D23 5 DCHN-099- 3000 



DCHN-092-021E 
DCHN-100-2400 



DCHN-093-0080 
DCHN-101-C1C3 



DCHN-094-55E9 DCHN-095-5F59 DCHN-096-54F9 DCHN-097-5B49 2420 
DCHN-102-A00E DCHN- 1C3-54B9 DCHN-1 04-55F9 DCHN-105-2135 2430 



2440 OCHN-IO6-8A00 0CHN-120- A01E 
2450 DCHN-1 12-5666 DCHN-1 13-0010 



0CHN-121-A43A 
DCHN-114-1583 



DCHN-10 7-5560 
DCHN-115-1413 



DCHN-108-716A DCHN- 109-7060 DCHN-1 10-2080 DCHN-1 1 1-A428 2440 
DCHN-1 16-7468 DCHN- 1 1 7-2485 DCHN-1 18-2505 DCHN-1 19-A41E 2450 



2460 DYPF-227-8A9F DYPE-232-D56A 
2470 DYPE-223-C46 3 0YPE-224- Dl 79 



DYPE-233-3E83 
DYPE-225-EEE0 



DYPE-234-6664 
DYPE-226-ADF6 



DYPE-235-7E6A DYPE-236-8AC0 DYPE-221-8F7A DYPE-222-2404 2460 
DYPE-228-1F00 DYPE-229-2F08 DYPE-230-3483 DYPE-231-8AC2 2470 



2480 ETRP-079-23B1 E TR P-C80-2D07 
2490 ETRP-027-F245 F TR P-029-D216 



ETRP-081-7D20 
ETRP-030-DFAB 



ETRP-08 2-A4D8 
ETRP-031-236D 



ETRP-023-FADA ETRP-024-5ACF ETRP-025-5BFF ETRP-026-5F2C 2480 
ETRP-032-23CB ETRP-033-5D20 ETRP-0 34-7F20 ETRP-035-33 7F 2490 



24A0 ETRP-036-5F20 ETR P-037- 1FFF 
24B0 ETRP-047-C4C3 FTRP-C48-CAC2 



ETRP-C38-60F1 
ETRP-049-3F40 



ETRP-039-7D20 
ETRP-050-2E55 



ETRP-040-23CB ETRP-041-2230 ETRP-0 45-5F20 ETRP-046-6CF1 24A0 

ETRP-051-54FD ETRP-052-3FF5 ETRP-053-5DE0 ETRP-054-6DC5 24B0 



24C0 ETRP-055-7DE0 F TRP-056- 221 5 
24D0 ETRP-063-C20* ETRP-065-OF80 



ETRP-057-241B 
ETRP-069-CFD8 



ETRP-05 8-F0O0 
ETRP-070-2D10 



ETRP-059-F24C ETRP-060-1613 ETRP-061-246B ETRP-062-E0D3 24C0 
ETRP-071-0D80 ETRP-072- 22 15 ETRP-0 73-230 7 ETRP-074-5F2C 2400 



24E0 ETRP-075-3613 F TRP-076-2435 
24F0 BCHK-131-F06C RCHK- 175-F679 



ETRP-C77-A4CC 
8CHK-192-26D5 



BCHK-107-26C5 
BCHK-210-A4EA 



BCHK-127-2705 BCHK- 
BCHK-1C3-4A52 BCHK- 



128-4452 SCHK- 
■104-A23C CBIN- 



129-4248 
022-8 270 



BCHK- 
CBIN- 



130-7268 
•023-AClA 



24E0 
24F0 



CONTROL 
STORAGE 



8 



24 — 
25 — 



2500 CDMD-077-7D30 C DMD-078-7E A3 
2510 CDMD-085-5D7B C DMD-086- 7D9F 



CDMD-079-C4CF 
CDMD-0 87-4 7DB 



CDM0-080-83C8 
CDMD-088-7D30 



CDMD-081-0D9D CDMD-082-E0 8E CDMD-C 83-2040 CDMD-084-5D3C 2500 
CDMD-089-D186 CDMO-090- A5 3C CDMD-052-B3C8 CDMD-053-C1A4 2510 



2520 CDMD-054-8174 CDMD-055- 9BDC 
2530 CDMD-062-56A2 CDMD-063-5D70 



CDMD-056-F5B0 
CDMD-C 64-5DDB 



CDMD-057-1002 
CDMD-065-7D70 



CDMD-058-B3CA CDMD-059-8174 CDMD-060-2BB3 CDMD-061-89FC 2520 
CDMD-066-2993 CDMD-067-5981 CDMD-C68-5004 CDMD-069-1042 2530 



2540 CDMD-070-56E2 C DMD-071-B3CC 
2550 CDMD-092-5CC? CDMD-093-2FC3 



CDMD-072-5D30 
CDMD-094-C958 



CDMD-073-7D8F 
CDMD-095-1F6B 



CDMD-074-F081 CDMD-075-7D3Q CDMD-0 76-A53E COMD-09 1-C1A1 2540 

CDMD-096-E45D CDMD-097- 3F 1 3 CDM0-098-5 730 CDMD-099-67F5 2550 



2560 CDMD-100-7730 CDMD-101-6443 
2570 DYPE-1 84-5463 DYPE-185-5268 



CDMD-102-8DC2 
DYPE-186-5 068 



DYPE-179-2791 
DYPE-187-52E9 



DYPE-180-566D DYPE-181- 16E3 DYPE-1 82-2404 DYPE-183-5C68 2560 
DYPE-188-2771 0YPE-189- 128E CLOG-1 14-8270 CLOG-1 I 5-8CE6 2570 



2580 DYPF-151-1547 DYPE-1 52- 83 78 
2590 DYPE-164-2F08 0YPE-165-87DA 



DYPE-153-8C70 
DYPE-159-2EC3 



DYPE-170-3F20 
DYPE-161-D558 



DYPE-171-E88C DYPE-172-4FFF OYPE-l 73-87DA DYPE-163-3523 2580 
DYPE-162-8D62 DYPE-1 14-98 16 DYPE-1 15-54F9 DYPE-11 6-6664 2590 



25A0 DYPF-117-8380 D YPE-1 1 8- A566 
25B0 DYPE-125-AB20 DYPE-126- 1D45 



DYPE-119-1485 
DYPE-127-1F28 



DYPE-12Q-1C33 
DYPE-128-EEBA 



DYPE-121-837A DYPE- 122-2E07 DYPE-1 23-5FF9 DYPE-124-C4B2 25A0 
DYPE-129-3D45 DYPE- 130-CF4B DYPE-1 31-C4DD DYPE-132-EED5 25B0 



25C0 DYPE-133-0F3B DYPE-134- C495 
25D0 DYPE-141-C487 DYPE-146- 3D85 



DYPE-135-2D07 
DVPE-147-2E23 



DYPE-136-0F1B 
DYPE-148-15C5 



DYPE-137-C491 DYPE-13 8-0F9B DYPE-1 39-C48F DYPE-140-0FAB 25C0 
DYPE-149-F200 DYPE- 150-87F4 DYPE-1 74-3C83 DYPE-175-83 7A 25D0 



25E0 DYPE-176-5DF9 D YPE-177-8C3E 
25F0 FILE-278-7A52 F IL E-279-2A07 



FILE-272-2C15 
FILE-280-2E23 



FILE-273-2D07 
FILE-281-49BF 



FILE-274-7C62 
EILE-282-128E 



FILE-275-2A15 FI LE-2 76-3 A25 FILE-277-2B07 25E0 
5007 DUMP-049-3BF5 DUMP-050-0B61 25F0 
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8 
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2600 DUMP-051-F486 DUMP-052- 

2610 DUMP-D59-2EAD DUMP-060- 

2620 DUMP-067-2845 DUMP-068- 

2630 DUMP-075-2F93 DUMP-C76- 

2640 DUMP-083-1D00 DtJMP-084- 

2650 DUMP-099-B18E DUMP-100- 

2660 CFCO-0 12-401 3 CFCO-013- 

2670 CFCO-020-4893 CFCO-021- 

2680 ALDP-307-D648 ALDP-308- 

2690 ALDP-315-2F98 ALDP-316- 

26A0 ALDP-295-DAB2 ALDP-296- 

26B0 ALDP-303-9A0C ALDP-304- 

26C0 ALDP-2 79-42AF ALDP-280- 

26D0 ALDP-287-2B20 ALDP-288- 

26E0 CICY-C96-56A0 CICY-C97- 

26F0 ClCY-104-617'3 CICY-105- 



2600-27FE 



8 
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26— 



2B7B 
F497 


DUMP- 
DUMP- 


-053- 
-061- 


-2 BCD 
-6EF3 


DUMP- 
DUMP- 


-054- 
■062- 


-5DAC 
-2E2B 


2C2B 
3D02 


DUMP- 

DUMP- 


-069- 
-077- 


-OCBD 
-FEB8 


DUMP- 
DUMP- 


-07 0- 
-078- 


-C486 
■3F85 


ODOA 
8174 


DUMP- 
DUMP- 


-0 85- 
-101- 


-51E9 
-AB20 


DUMP- 
CFCO- 


-086- 
-007- 


-6E21 
-F45C 


5005 
5885 


CFCO- 
CFCO- 


-014- 
-022- 


-4303 
-4F83 


CFCO- 
CFCO- 


-015- 
-023- 


-5335 
-5FF5 


OFFD 
E0B6 


AL OP- 
AL DP- 


-309- 
-317- 


-E095 
-5F40 


ALDP- 
ALOP- 


■310- 
-318- 


-1FCD 
-A6C8 


04 A8 
95 7A 


ALDP- 
ALDP- 


-297- 
-305- 


-C4AF 
-E201 


ALDP- 

ALDP- 


-298- 
-30 6- 


•1623 
-9A1A 


C218 

5EA0 


ALDP- 
ALDP- 


-281- 
-289- 


-D349 
-1F28 


ALDP- 
ALDP- 


-282- 
-290- 


-4F3F 
-128E 


617B 
6060 


CICY- 
CICY- 


-098- 
-106- 


-606F 
-6F3D 


CICY- 

CICY- 


-099- 
-107- 


-6FAD 
-128E 



DUMP-055-4FEF DUMP-056-2D04 DUMP-0 57-2E7B DUMP-058-4BDF 2600 

DUMP-063-251B DUMP-064-55C9 DUMP-C65-CC21 DUMP-066-12 8E 2610 

DUMP-071-C031 DUMP-072-241B DUMP-C73-C030 DUMP-074-5029 2620 

DUMP-079-1D00 DUMP-080-4DFF DUMP-081-F ABC DUMP-082-0B42 2630 

DUMP-087-C4D3 DUMP-088-DEBC DUMP-C90-0 2C0 0UMP-098-C4D3 2640 

CFCO-008-4953 CFC0-009-F46F CFCO-0 10-4153 CFCO-Ol 1-51 15 2650 

CFCO-0 16-4233 CFCO-Ol 7-5225 CFCO-C 18-4923 CFCO-Ol 9-5995 2660 

CFC0-024-4AF3 CFC0-02 5-2CFF CFCO-0 26-C4D6 CFCO-027- 128E 2670 

ALDP-311-E08F ALDP-312- 1F4D ALDP-313-E0B6 ALDP-314-F0B7 2680 

ALDP-291-5A4F ALDP-292-3683 ALDP-293-C AAF ALDP-294-14C5 2690 

ALDP-299-045B ALDP-300-C4B2 ALDP-301-C632 ALDP-302-1F28 26A0 

ALDP-275-3BE9 ALDP-276-56AA ALDP-277-52AA ALDP-278-54AA 26B0 

ALDP-283-2440 ALDP-284- 5872 ALDP-2 85-2404 ALDP-286-50A0 26C0 

CICY-092-5098 C ICY-093-50BB CI CY-094-C4F9 C ICY-095-5EA8 2600 

CICY-1C0-55B3 CICY-101-C4F7 CI CY-1 C2-52A8 C IC Y-103-56A0 26E0 

CICY-108-2F07 C ICY- 109-C4E9 FI NT-002-7CC2 F INT-00 3-5F59 26F0 
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STORAGE 



8 



26 — 
27— 



2700 F INT -004-098 E F I NT-005- 5A32 
2710 FINT-012-2FOT c TNT-C 13-91 38 



FINT-006-2A13 
F I NT -014 -A 70 A 



FINT-007-7A32 F INT-008 -9130 F I NT-009-A024 
FINT-015-2B43 F INT-0 16-4FBF F I NT-01 7-5AA0 



FINT-010-A748 F INT-01 1-C996 2700 
FINT-C18-2A13 FINT-019-7A32 2710 



2720 FINT-020-F1A3 F IMT-021-0D02 
2730 PINT-028-4DBD F INT-029-7A32 



FINT-022-2E25 
FINT-030-FABB 



FINT-023-A740 F INT-024-E5AF FINT-C25-A5E4 
FINT-031-A044 F INT-032-A73E F INT-C33-A044 



FINT-C26-A740 F INT-027-8F90 2720 
FINT-034-A5EC F INT-035-3E43 2730 



2740 FINT-0 36-2F0 7 F INT-037- 2400 
2750 PINT-044-A43C CMLT-1 13- 1CF8 



FINT-038-2A07 
CMLT-114-3DE3 



FINT-039-A01E F I NT-040-5A32 F INT-041- 2A 13 
CMLT-115-58CA CMLT-1 16-7190 CMLT-1 1 7-708D 



FINT-C42-1000 F INT-04 3-5CC2 2740 
CMLT-1 18-58CA CMLT-1 1 9-779D 2750 



2760 CMLT-120-768D CMLT-121- 58CA 
2770 CMLT-128-0C02 CMLT-129-F87B 



CMLT-122-7B9D 
CMLT-130-C5D4 



CMLT-123-7A80 CMLT-124-58CA CMLT-125-759D 
CMLT-131-2002 CMLT-132-C505 CMLT-133- 12 8E 



CMLT-126-748D CMLT-127-1CFB 2760 
CBIN-038-8270 CBI N-039-88DC 2770 



2780 DCLC-208-99F6 DCLC-166-C3B2 
2790 0CLC-190-A7A2 DCLC- 192- 1635 



DCLC-167-A70C 
DC LC-1 93-7602 



DCLC-191-A154 DCLC-1 86-5429 DCLC-187-5349 
DCLC-194-3413 DCLC-195-2D40 OCLC- 196-EC A2 



0CLC-188-EC93 DCLC-189-D892 2780 
DCLC-197-2B08 DCLC-198-3413 2790 



27A0 DCLC-199-A7A6 DCLC-200- 2B02 
27B0 DCLC-207-0244 DCLC-168-F209 



DCLC-201-1635 
0CLC-169-2B88 



DCLC-202-E607 DCLC-2C3-C9AE DCLC-2C4-262B 
DCLC-170-5429 OCLC-1 71-C13C DCLC- 172-3385 



DCLC-205-C9A7 DCLC-206-E680 27A0 
DCLC-1 73-7222 DCLC-174-2007 27B0 



27C0 DCLC-175-7032 DCLC-176-CD04 

27D0 DCLC-183-2400 0CLC-184- 5E22 



DCLC-177-E607 
DCLC-185-A030 



DCLC-178-C9CC DCLC-179-262B DCLC-180-C9C5 
DCLL-025-0000 DCLL-026-5007 DCLL-C27-A7D8 



DCLC-1 81-0000 OCLC-182-2800 27C0 
DCLL-028-0313 DCLL-029-C406 2700 



27E0 DCLL-031-04C3 DCLL-O32-C406 
27F0 DCLL-039-0214 DCLL-040-2400 



0CLL-033-D557 
DCLL-041-8AOA 



DCLL-034-0D04 DCLL-035-2407 DCLL-036-7432 
DCLL-042-10F5 DCLL-043-2B23 DCLL-044-70B0 



DCLL-037-2B08 
DCLL-0 45-A2E6 



0CLL-038-C9EF 27E0 
5007 27F0 
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8 
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CONTROL STORAGE ADDRESS LIST 

2 

2800 CTRT-022-2B3 3 CTRT-023- 

2810 CTRT-030-F495 CTRT-031- 

2820 CLOG-061-2C55 CLOG-062- 

2830 CLOG-071-7F71 CLOG-072- 

2840 CLOG-085-6737 CLOG-086- 

2850 CL0G-095-6F57 CLOG-096- 

2860 CL0G-177-C407 CLOG-178- 

2870 CLOG-053-F5A5 CLOG-054- 

2880 CFCY-052-A15Q CFCY-053- 

2890 CFCY-060-B1A6 C<=CY-C61- 

23A0 CFCY-034-A6D3 C p CY-035- 

2880 CFCY-042-Fr,C? CFCY-043- 



2800-29FE 



8 



2B2D CTRT-024-7FA0 

A824 CTRT-032-A820 

8185 CLOG-063-2C25 

C49E CLOG-073-25FF 

6627 CLOG-087-76A8 

7F10 CLOG-097-AB21 

6F51 CL0G-179-AB21 

A820 CL0G-184-AB25 

9BEE CFCY-054-9BF2 

8AF2 CFCY-062-8AF2 

2B83 CFCY-036-9814 

C038 CFCY-044-B454 



CTRT-025-28FO 
CL0G-056-AB25 

CLOG-064-8185 
CL0G-074-F4AD 

CLOG-088-7EAA 
CL0G-098-2C07 

CL0G-180-2C75 
CL0G-185-55BB 

CFCY-055-9BFC 
CFCY-C63-8AF2 

CFCY-037-0565 
CFCY-04 5-A8 04 



CTRT-026-70AA 
CLOG-057-5F10 

CL0G-067-6F75 
CL0G-075-A856 

CLOG-089-E5A1 
CLOG-099-8185 

CLOG-181-8185 
CL0G-186-2B3B 

CFCY-056-B17E 
CFCY-064-9E00 

CFCY-C38-E0C2 
CFCY-046-04F5 



CTRT-027-2707 
CL0G-058-7F51 

CLOG-068-AB25 
CL0G-C82-B3F6 

CLOG-090-A856 
CL0G-174-A325 

CL0G-050-B3F6 
CLOG-187-5710 

CFCY-057-B484 
CFCY-065-9DFE 

CFCY-C39-AB25 
CFCY-047-F03A 



CLOAD= 


=*E60, EC 


LEVEL= 


= 12 8266 ,PAGE 29' 




C 




E 


28 — 


CTRT- 
CLOG- 


-028-77A0 
•059-C4D7 


CTRT- 
CLOG- 


•029-25FF 
-060-F4A5 


2800 
2810 


CLQG- 
CLOG- 


-069-5738 
-C83-6F17 


CLOG- 
CLOG- 


-070-5F18 
-084-6E07 


2820 
2830 


CLOG - 
CLOG- 


-C93-AB25 
-175-5F10 


CLOG- 
CLOG- 


-094-5F10 
-176-6F57 


2840 
2850 


CLOG- 
CLOG- 


-051-8460 
-138-77A0 


CLOG- 
CLOG- 


-052-0506 
-189-8185 


2860 
2870 


CFCY- 
CFCY- 


-058-B484 
-C66-8AF2 


CFCY- 
CFCY- 


-G59-B484 
-067-8AF2 


2880 
2890 


CFCY- 
CFCY- 


-C40-F43F 
-048-8924 


CFCY- 
CFCY- 


-041-0183 
-049-01C3 


28A0 
28B0 



28C0 CFCY-050-F083 C FCY-051- AE94 
28D0 CFCY-018-3B33 C FC Y-019- B42E 



CFCY-012-E1C9 
CFCY-021-45B8 



CFCY-013-3485 
CFCY-022-2507 



CFCY-014-0567 
CFCY-023-7AE2 



CFCY-015-C4C2 
CFCY-C24-10CE 



CFCY-C16-9814 
CFCY-025-B011 



CFCY-01 7-5583 28C0 
5007 28D0 



28E0 CICY-201-AEBE C IC Y-202- 83B4 
2RF0 CICY-209-AE82 C IC Y-210- AD52 



CICY-203-8384 
CICY-211-AC18 



CICY-2C4-83B4 
CICY-212-880A 



CICY-205-A83A 
CICY-213-A064 



CICY-206-A86A 
CICY-214-B23C 



CICY-207-8CE4 CICY- 
CICY-215-A042 CICY- 



208-8114 28E0 
216-8E7A 28F0 



CONTROL 
STORAGE 



n 



2900 CBRC-012-C507 C 3RC-0 13- 81 85 

29in CBRC-020-8135 C3RC -023-0040 

2920 C3RC-033-3245 C 3RC-034-E 1B6 

2930 CBRC-041-78A0 C BRC-042-0187 

2940 CSRC-008-5CA0 CBRC-Q1 1-9C03 

2950 CLOG-108-7718 CL0G-109-25FF 

2960 CICY-013-B053 C IC Y-014- B073 

2970 CICY-021-9044 C IC Y-022- 8108 

2980 CMPU-016-8033 CHPU-017- A9B2 

2990 CLOG-136-5F10 CL0G-137-67F5 

29A0 CICY-012-8185 CMPU-020-81 B6 

29B0 CMPU-027-4B75 CMPU-02 8-771 A 

29C0 CICY-133-83B4 C IC Y-l 34- 83B4 

29DC CICY-1A1-AA34 C IC Y-142- AA34 

29E0 CICY-169-AC34 C IC Y-170- AC28 

29F0 CICY-177-AE98 C ICY-1 78-94C2 



CBRC-014-E502 
C3RC-0 24-5 5B3 



CBRC- 
C8RC- 

CLOG- 
CLOG- 

CICY- 
CICY- 

CMPU- 
CLOG- 

CMPU- 
CMPU- 

CICY- 
CICY- 

CICY- 
CICY- 



•035-0428 
•043-3185 

■102-6F75 

•11C-F4CB 

-015-A8C4 
•023-83B2 

■018-8185 
•138-7718 

-021-AAOE 
•029-577B 

■135-83B4 
■143-B364 

•171-AC0C 
■179-A4FC 



CBRC-015-4806 
CBRC-025-C49F 

CBRC-036-224D 
CBRC-044-5892 

CLOG-103-AB25 
CLOG-11 1-A848 

CICY-016-A8C4 
C.ICY-024-83B2 

CMPU-019-8185 
CL0G-139-25FF 

CMPU-022-5B3A 
CMPU-030-25FD 

CICY-136-83B4 
CICY-146-83B4 

CICY-172-AC00 

CICY-180-A77C 



8 



CBRC-016-8A48 
CBRC-026-5EA8 

CBRC-0 37-402 5 
C3RC-045-A926 

CL0G-104-10CE 
CL0G-156-AB25 

CICY-0 17-8100 
CICY-025-83B0 

CL0G-132-6F75 
CL0G-140-F48F 

CHPU-023-4B7D 
CMPU-031-8093 

CICY-137-AE32 
CICY-164-83B4 

CICY-173-B480 
C ICY-1 81-A06C 



CBRC -017-0507 

CBRC-027-50A0 

CBRC-038-2307 
C8RC-005-5533 

CLOG-105-5738 
CLOG-157-5F10 

CICY-018-AE8C 
CICY-026-8104 

CL0G-133-A325 
CL0G-141-A848 

CMPU-024-771A 
CLOG-004-AB25 

CICY-138-A912 
CICY-165-83B4 

CICY-174-B27A 
CICY-182-8390 



CBRC -018-8 185 
CBRC -031-2040 

CBRC-039-55BB 

CBRC-C06-C483 

CL0G-106-5F10 
CL0G-158-6F51 

CICY-0 19-A8A0 
CICY-029-83B0 

CL0G-134-10CE 
CICY-010-5892 

CMPU-0 25-3510 
CLOG -005-7510 

CICY-139-ADA8 
CICY-166-83B4 

CICY-175-A57C 
CICY-183-AE78 





E 




28 — 

29 — 


CBRC- 
C8RC- 


-019- 
-032- 


-F507 
-5C2B 


2900 
2910 


CBRC- 
CBRC- 


-040- 
-007- 


-72A8 
•5EA8 


2920 
2930 


CLOG- 
CLOG- 


-107- 
-159- 


-67F7 
-A852 


2940 
2950 


CICY- 
CICY- 


-020- 
-03 4- 


-A8A0 
•8EC8 


2960 
29 70 


CLOG- 
CICY- 


-135- 
-011- 


-5738 
-2020 


2980 
2990 


CHPU- 
CLOG- 


-026- 
-006- 


-E087 
-8185 


29A0 
29 BO 


CICY- 
CICY- 


-140- 
-167- 


-A93A 
-83B4 


29C0 
2900 


CICY- 
CICY- 


-176- 
-184- 


-B4 8C 
-A078 


29E0 
29F0 



CONTROL STORAGE 



8 



E 2800-29FE 



CONTROL STORAGE ADDRESS LIST 

2 

2A00 CICY-005-A99C C IC Y-006- A99C 

2A10 C«;PU-03S-25PP CMPU-039-F08B 

2A20 CICY-056-2B5 3 C ICY-057- 89FC 

2A30 CSTS-019-F95E C STS-021- ADFC 

2A40 CSTS-050-F0AE C STS-051- 55BB 

2A50 CSTS-058-Q243 C ST S-059-81 85 

2A60 CSTS-036-2440 C STS-C37-58E2 

2A70 CSTS-015-778 2 C STS-016-81 85 

2A80 CTRT-037-C904 C TR T-038-2555 

2A90 CTPT-045-F0B7 C TRT-046-0F2B 

2AAO CTRT-053-5F10 C. TR T-054- AA88 

2ABO CTRT-055-1427 C TR T-C56-3443 

2AC^ CTRT-069-FCE3 C TRT-070-0769 

2AD0 CTRT-C77-2B17 CTRT-078-7FA8 

2AE0 CTRT-Q85-9BDC CTRT-086-E05D 

2APQ CTRT-093-148B C TR T-094-AA9C 

CONTROL 2 
STORAGE 

2800 CTRT-101-AA9C B SW I -188-8A54 

2B10 BSWI-068-EB94 B SWI-G70-9F68 

2820 BSWI -107-2400 B SW I -108- 2A07 

2B30 BSWI-134-A218 BSW I-144-FBB7 

2840 BSWI-164-2P0 7 B SW I -165- 50 8F 

2B50 BSWI-1 .72-38E9 B SW I -173-56AA 

2B60 BSWI-116-8C7A B SW 1-1 17-01 BC 

2B70 BSWI-131-8A00 C LOG-126- AB25 

2B8C CNVR-061-571B C NVR-062-77E c 

2B90 CNVR-069-573B C NVR-070-8F2C 

2BA0 CNVR-0 77-1CCE CNVR-078-E426 

2BB0 CNVR-085-5DE0 C NVR-086-5DC5 

2BC0 CNVR-093-C4CA CNVR-094-4203 

2BD0 CNVP-111-8176 CNVR-1 12-C5DA 

2BE0 CNVR-119-C4E7 C NVR-120-2B93 

2BF0 CNVR-104-C4F8 C NVR-105-5AA4 

CONTROL STORAGE 2 













2A00-2BFE 










CLOAD= 


=*E60t EC 


LEVEL= 


= 128266 ,PAGE 30( 




4 






6 






8 






A 






C 






E 




2 A — 


CICY- 
CMPU- 


-007- 
-040- 


-8446 
-5B3A 


CICY- 
CMPU- 


-008- 
•041- 


•5498 
■4BF3 


CICY- 

CMPU- 


-009- 
-042- 


-B46 3 
-7F1A 


CMPU- 
CMPU- 


-045- 
-043- 


■5F7D 
•351D 


CMPU- 
CMPU- 


-0 46- 
-0 44- 


-A9B2 
-8093 


CMPU- 


-03 7- 


■5F3A 

5007 


2A00 
2A10 


CSTS- 
CSTS- 


-003- 
-044- 


-AB25 
-F93 3 


CSTS- 
CSTS- 


-004- 
-045- 


-F9 33 
•55B3 


CSTS- 
CSTS- 


-005- 
-046- 


-0183 
-5EA8 


CSTS- 
CSTS- 


-006- 
-047- 


-FOAE 
•A325 


CSTS- 
CSTS- 


-007- 
-048- 


-8A26 
-50AA 


CSTS- 
CSTS- 


-009- 
-049- 


-AE94 
-1100 


2A20 
2A30 


CSTS- 
C S TS- 


-052- 
-060- 


-3B33 
-5 21C 


CSTS- 
CSTS- 


-053- 
-061- 


■F055 
-52 7F 


CSTS- 
CSTS- 


-0 54- 
-062- 


-57A0 
-17F3 


CSTS- 
CSTS- 


-055- 
-063- 


■17F3 
•77A0 


CSTS- 
CSTS- 


-056- 
-064- 


-427F 
-AA50 


CSTS- 
CSTS- 


-05 7- 
-034- 


-531C 

-70E2 


2A40 
2A50 


CSTS- 
CICY- 


-038- 
-003- 


-2400 
-2C07 


CSTS- 
CICY- 


-039- 
-004- 


-128E 
■8185 


CSTS- 
CTRT- 


-011- 
-033- 


-AB25 
-AB2 5 


CSTS- 
CTRT- 


-012- 

-034- 


■F933 
-14A3 


CSTS- 
CTRT- 


-013- 

-035- 


-5710 
-5569 


CSTS- 
CTRT- 


-014- 
-036- 


-447F 
-25F5 


2A60 
2A70 


CTRT- 
CTRT- 


-039- 
-047- 


-5B10 
-F0B1 


CTRT- 
CTRT- 


-040- 
-048- 


•5BF9 
-E01B 


CTRT- 
CTRT- 


-041- 
-0 49- 


-0F2D 
-7B10 


CTRT- 

CTRT- 


-042- 
-050- 


•E096 
•5004 


CTRT- 
CTRT- 


-043- 
-051- 


-F0B9 
-26FF 


CTRT- 
CTRT- 


-044- 
-052- 


-0F1B 
-F4A4 


2A80 
2A90 


CTRT- 
CTPT- 


-058- 

-057- 


-E02D 
-AA98 


CTRT- 
CTRT- 


-05 9- 
-C64- 


-E42B 
-1443 


CTRT- 
CTRT- 


-0 60- 
-065- 


-AA74 
-C03F 


CTRT- 
CTRT- 


-063- 

-066- 


•A824 
-A325 


CTRT- 
CTRT- 


-061- 

-0 67- 


-E428 
-5738 


CTRT- 
CTRT- 


-062- 
-068- 


-A820 
-4755 


2AA0 
2AB0 


CTRT- 
CTRT- 


-071- 
-079- 


-F4E1 
-70A0 


CTRT- 
CTRT- 


-072- 

-080- 


-E05B 
-5E39 


CTRT- 
CTRT- 


-0 73- 
-081- 


-F05A 
-5EE2 


CTRT- 
CTRT- 


-074- 
-082- 


•7EE2 
•3427 


CTRT- 
CTRT- 


-075- 
-D83- 


-5BE9 
-7 518 


CTRT- 
CTRT- 


-076- 
-084- 


-2F07 
-AAEA 


2AC0 
2A00 


CTRT- 
CTRT- 


-087- 
-095- 

4 


-7B18 
-F77A 


CTRT- 
CTRT- 


-088- 
-096- 

6 


-D06B 
•07FD 


CTRT- 

CTRT- 


-089- 
-097- 

8 


-3463 

-C4FC 


CTRT- 

CTRT- 


-090- 
-09 8- 

A 


■5773 
•1423 


CTRT- 
CTRT- 


-091- 
-099- 

C 


-0 769 
-2707 


CTRT- 
CTRT- 


-09 2- 
-100- 

E 


-F4F5 
-3443 


2AE0 
2AF0 

2 A — 
2B — 


BSWI- 

BSWI- 


-0 54- 

-082- 


-DFE6 
-2404 


BSWI- 
BSWI- 


-058- 
-086- 


■20 40 
•EA9A 


BSWI- 
BSWI- 


-059- 
-088- 


-2080 
-8782 


BSWI- 
BSWI- 


-060- 

-100- 


•2406 
•24 82 


BSWI- 
BSWI- 


-0 62- 
-102- 


-E990 
-FAAO 


BSWI- 
BSWI- 


-064- 
-103- 


-9F36 
-B0C4 


2B00 
2B10 


BSWI- 
BSWI- 


-110- 
-148- 


-9248 

-5007 


BSWI- 
BSWI- 


-112- 
•150- 


-E1AB 

■EFBB 


BSWI- 
BSWI- 


-113- 
-151- 


-8178 
-A3F2 


BSWI- 
8SWI- 


-114- 
-152- 


-C1E1 
■DBC9 


BSWI- 
BSWI- 


-115- 
-153- 


-8185 
-DF89 


BSWI- 
8SWI- 


-132- 
-162- 


-EBB3 
-CBCA 


2B20 
2B30 


BSWI- 
B SWI- 


-166- 
-174- 


-519F 
-D258 


8SWI- 
BSWI- 


-16 7- 
-175- 


■0602 
-88 84 


BSWI- 
BSWI- 


-168- 
-176- 


-AED6 
-1F2A 


BSWI- 
BSWI- 


-169- 
-177- 


■CF3C 
-2400 


3SWI- 
BSWI- 


-170- 
-178- 


-2404 

-E903 


BSWI- 
BSWI- 


-171- 
-184- 


-FFOA 
-8A4C 


2B4C 
2B5G 


SS WI- 
CLOG- 


-118- 
-127- 


-0040 
-5F10 


BSWI- 
CLOG- 


-119- 
-128- 


-FFAF 
-6F55 


BSWI- 
CLOG- 


-123- 
-129- 


-59BF 
-A852 


BSWI- 

CNVR- 


-12 4- 

-058- 


-1BFF 
■2B83 


BSWI- 
CNVR- 


-129- 

-059- 


-0640 
-3B15 


BSWI- 
CNVR- 


-130- 
-060- 


-2115 
-4EA6 


2B6C 
2B7C 


CNVR- 
CNVR- 


-063- 
-071- 


-E589 
-73AF 


CNVR- 
CNVR- 


-064- 
-072- 


-5AE4 
-C19A 


CNVR- 
CNVR- 


-065- 
-073- 


-77E8 

-9BDC 


CNVR- 
CNVR- 


-066- 
-074- 


■OFFB 
-73E0 


CNVR- 
CNVR- 


-067- 
-0 75- 


-F080 
-555B 


CNVR- 
CNVR- 


-068- 
-076- 


-5710 
-3533 


2B80 
2B90 


CNVR- 
CNVR- 


-0 79- 
-0 87- 


-3002 
-B070 


CNVR- 
CNVR- 


-080- 
-088- 


-2407 
-527B 


CNVR- 
CNVR- 


-081- 

-089- 


-290 7 
-OFFB 


CNVR- 
CNVR- 


-082- 
-090- 


-0040 
■F0E8 


CNVR- 
CNVR- 


-D83- 
-091- 


-4EA6 
-77E0 


CNVR- 
CNVR- 


-084- 
-09 2- 


-2207 
-14FF 


2BA0 
2BB0 


CNVR- 
CNVR- 


-095- 
-113- 


-7 90D 

-E5DC 


CNVR- 
CNVR- 


-096- 
-114- 


-794A 
-CF62 


CNVR- 
CNVR- 


-0 97- 
-1 15- 


-C14F 

-ABDC 


CNVR- 
CNVR- 


-098- 
-116- 


■520D 
-CF63 


CNVR- 
CNVR- 


-099- 
-117- 


-ABA8 
-478B 


CNVR- 
CNVR- 


-110- 
-118- 


-59F9 

-OBFB 


2BC0 
2B00 


CNVR- 
CNVR- 


-121- 
-106- 

4 


-89FC 
-77E8 


CNVR- 
CNVR- 


-122- 
-107- 

6 


-8185 
-ABBO 


CNVR- 
CNVR- 


-100- 
-108- 

8 


-5DCD 
-2040 


CNVR- 
CNVR- 


-101- 
-109- 

A 


-B070 
•A8F4 


CNVR- 

covo- 


-102- 
-098- 

C 


-4275 
-8176 


CNVR- 
CDVD- 


-103- 
-099- 

E 


-01F5 
-ABE2 

2A00 


2BE0 
2BF0 

-2BFE 



CONTROL STORAGE ADDRESS LIST 

2 

2CO0 CLST-C40-8AC8 CLST-041- 
2C10 CLST-02C-4EE6 CLST-021- 



2C00-2DFE 



C639 CLST-042-B3DA 
4666 CLST-022-D5C7 



CLST-043-AC0E 
CLST-02 3-AC30 



8 



CLST-014-2B83 
C8IN-026-B3F6 



CL0AD=*E60t EC LEVEL= 

A C 

CLST-015-89FC CLST-0 18-8AC8 CLST- 
CBIN-027-B462 CB IN-028-E4BD C8IN- 



128266 ,PAGE 301 

E 2C — 

■019-C625 2C00 
029-E5B0 2C10 



2C20 CBIN-03C-C625 CBI N-03 1- AC46 
2C30 CLST-034-2C0 7 CLST-035-AC48 



CLST-036-2C55 
CLST-005-8AC8 



CLST-037-AC48 
CLST-006-C61C 



CLST-030-8AC8 
CLST-007-B3DA 



CLST-031-C625 CLST-0 32-B3DA CLST- 
CLST-008-C610 CLST-009-76A8 CLST- 



•033-C625 2C20 
010-7EAA 2C30 



2C40 CLST-011-2C75 CLST-012-CD09 
2C5C CNVR-006-0183 CNVR-O07-F0D7 



CLST-013-8185 
CNVR-008-AE94 



CLST-024-2C25 
CNVR-009-9814 



CLST-025-76A8 
CNVR-010-10CE 



CLST-026-7EAA CLST-027-8 185 CNVR- 
CNVR-011-F05E CNVR-0 12-AB7A CNVR- 



005-AB25 2C40 
013-AE16 2C50 



2C60 CNVR-014-2B0 7 CNVR-01 5-7A18 
2C7C CNVR-022-2D13 C NVR-C23-C679 



CNVR-016-C66A 
CNVR-024-AD1C 



CNVR-017-B3DA 
CNVR-02 5-C674 



CNVR-C18-2C40 
CNVR-026-ACFE 



CNVR-019-42A6 CNVR-0 20-44A6 CNVR- 
CNVR-027-C6 79 CNVR-028-AD00 CNVR 



■021-48A6 2C60 
-029-AC7A 2C70 



2C80 C8RC-119-1680 C BRC- 120-C63D 
2C90 CBRC-095-5583 CBRC-096-56A8 



CBRC-121-F03F 
C8RC-097-5CAA 



CBRC-122-A906 
CBRC-098-6D3B 



CBRC-091-9816 
CBRC-099-6C2D 



CBRC-092-55BB CBRC -093-5 8A8 C8RC- 
CBRC-100-679D CBRC-1 01-6680 C3RC- 



094-52 AA 2C80 
102-3B15 2C90 



2CA0 CBRC-1 03-58A3 C3RC-104-52AA 
2C80 CBRC-U1-7C2D C 3RC-1 1 2-779D 



CBRC-105-55BB 
CBRC-1 13-7680 



C3RC-106-76AR 
CBRC- 11 4- 81 78 



C8RC-107-7CAA 
C8RC-115-E481 



C8RC-108-0004 CBRC-1 09-3002 C8RC- 
C8RC-116-E583 CBRC-1 17-F007 CBRC- 



110-7030 2CA0 
118-8185 2CB0 



2CC0 CLST-066-A825 C LST-067-01 E3 
2CO0 CLST-074-5769 CLST-075- AC48 



CLST-068-F0E4 
CLST-055-AB25 



CLST-069-55BB 

CLST-056-01E3 



CLST-070-5E10 
CLST-057-F0E4 



CLST-071-2707 CL ST-C72-CE50 CLST- 
CLST-058-558B CLST-059-2B2B CLST- 



C73-27F7 2CC0 
060-52A0 2C00 



2CE0 CLST-061-7210 CLST-062- 81 85 
2CP^ CLST-H5-5531 CLST-1 16-6351 



CLST-063-AE94 
CLST-1 17-C4E3 



CLST-110-AB25 
CLST-H3-251D 



CLST-111-01C3 
CLST-119-55B3 



CLST-112-F0E4 
CLST-120-128E 



CLST-1 13-558B CLST- 
5007 CNVR- 



114-128E 2CE0 
030-3915 2CF0 



CONTROL 
STORAGE 



8 



2C-- 
20 — 



2D00 CNVP-Q31-ED1F CNVR-032-0002 
201^ CNVR-039-6FF^ C NVR-Q40-6EED 



CNVR-033-7 99F 
CNVR-041-6770 



CNVR-034-788F CNVR-C35-755F 
CNVR-042-666D CNVR-043-E01 F 



CNVR-036-744F CNVR-0 37-733F CNVR- 
CNVR-044-2D1B CNVR -045-1 28E CNVR- 



G3 8-722F 2000 
046-4686 2010 



2D20 CNVR-047-8178 CNVR-048-27CB 
2D30 CNVR-055-761 8 CNVR-056-81 85 



CNVR-049-C928 
CBIN-068-2C25 



CNVR-050-176B CNVR-051-D1 AC 
CBIN-069-8185 CBI N-C63-F58F 



CNVR-052-3713 CNVR-C 53-721 8 CNVR- 
CBIN-C64-2C55 CBIN-C 65-8 185 CBIN- 



054-7418 2D20 
•066-2C75 2D30 



2D40 C8IN-067-8 18 5 C 31 N-055-B3F6 
2050 C3IN-C62-8185 C 81 N-008-B3F6 



C3IN-056-B462 
C8IN-009-B460 



CBIN-057-76A8 C8IN-058-7EAA 
CBIN-010-E4DA CBIN-01 1-1680 



CBIN-059-E539 CB IN-060-F 5B5 CBIN- 
CBIN-012-E5CE CB IN-C13-C63B CBIN- 



•061-2C07 2040 
014-2C25 2D50 



2060 CBIN-015-8185 CL0G-162-6F 75 
2070 CL0G-169-25FF C LOG-1 70-F4E9 



CL0G-163-AB25 
CL0G-171-A848 



CL0G-164-1GCE CLOG-1 65-5738 
CL0G-200-55BB CLOG-201-2E07 



CLOG-166-5F10 CLOG-1 67-67F1 CLOG- 
CLOG-202-7EA8 CL0G-203-70A0 CLOG- 



168-7718 2060 
204-8185 2070 



2D80 C8RC-C66-AA0 6 C BRC-063- 2B33 
2D90 C8RC-051-7CC? C3RC-052-7892 



C8RC-064-89FE 
CBRC-053-74B2 



CBRC-065-AE94 CBRC-047-AB2 5 
CBRC-054-4306 C 8RC-055-C020 



CBRC-048-G1E3 CBRC-049-FC86 C8RC- 
CBRC-056-553B CBRC-057-C48 1 CBRC- 



050-E182 2D80 
058-5498 2090 



20AC CBRC-059-2B33 CBRC-060-53 AO 
2DB0 CBRC-072-50A0 CBRC-074-2040 



CBRC-061-6535 
CBRC-075-55BB 



CBRC-062-3463 CBRC-068-0040 
CBRC-076-56A8 C3RC-077-52A A 



CBRC-069-5583 CBRC-070-C4B5 CBRC- 
CBRC-078-000A CBRC-D79-73A9 C8RC- 



071-5EA8 20A0 
080-72A9 2DB0 



2DC0 CBRC-081-77A9 C BRC-082- 76A9 
2D00 CTRT-003-AB25 C TRT-004-2607 



CBRC-083-76A8 
CTRT-005-2E07 



CBRC-084-72AA CBRC-085-D5C0 
CTRT-006-5F10 C TRT-007-6F3B 



CBRC-086-8185 CBRC-C 87-D1CA CBRC- 
CTRT-008-6E2D CTRT-C09-667D CTRT- 



088-A906 20C0 
010-A225 2000 



2DE0 CTRT-011-5FF0 CTR T-012-F06D 
2DF0 CTRT-019-25FF C TR T-020-F4D5 



CTRT-013-7F18 
CTRT-021-AA74 



CTRT-014-25FF CTRT-0 15-F4D5 
CCOM-166-2400 CCOM-167-2C75 



CTRT-016-8185 CTRT-0 17-A801 CTRT- 
CCOM-168-8185 CICY-0 79-2B23 CICY- 



018-5004 2DE0 
080-89FC 2DF0 



CONTROL STORAGE 



8 



E 2C00-2DFE 



CONTROL STORAGE ADDRESS LIST 2E00-2FFE CL0AD=*E60, EC LEVEL=128266 ,PAGE 302 

2 4 6 8 A C E 2E — 

2EC0 CCOM-025-23F7 CC0M-026-C492 CC0M-027-AE94 CC0M-G1 2-AB25 CCOM-013-01E3 CC0M-014-F084 CCOM-0 15-5E10 CCOM-01 6-CE01 2E00 

2P10 CCOM-017-2305 CCOM-018-5329 CCOM-019-40E6 CCOM-020-55 BB CCOM-021 -56A8 CC0M-022-5E AA CCOM-023-1 OOE CC0M-024-128E 2E10 

2E20 CLOG-026-6F75 CLOG-027- AB25 CL OG-028-5738 CL0G-029-5F 10 CLOG-0 30 -4F7D CLOG-03 1-77 18 CL0G-C32-25FF CLOG-033-F4A5 2E20 

2E30 CLOG-034-8185 C STS-087- 55BB CSTS-088-5 EAO CSTS-089-4ED3 C STS-090-5ECB CSTS-09 1- 1CC5 CSTS-092-FC40 CSTS-093-3C45 2E30 

2E40 CSTS-094-7CC2 CSTS-095-8185 C STS-076-AB25 CSTS-077-2FF7 CSTS-078-571 CSTS-079-7F10 CSTS-C80-C 752 CSTS-081-2C55 2E40 

2E5G CSTS-082-8185 C STS-083-2C05 CS TS-084-8 185 C L0G-016-6F 75 CL0G-017-AB25 CLOG-018- 5738 CLOG-019-5F10 CL0G-020-4F7B 2E50 

2E60 CLOG-021-7713 CL0G-022-25FF CL0G-023-F4DB CLOG-024-81 85 CMPU-0C8-27F5 CMPIJ-009-C96E CMPU-0 10-2755 CMPU-01 1-5B3A 2E60 

2E70 CMPU-012-5BP1 CMPU-013-7F 1A CMPU-0 14-5559 C MPU-015-8093 C8IN-051 -8270 CB IN-052- AD44 CLOG-008-6F75 CL0G-009-AB25 2E70 

2E8Q CLOG-010-5733 CLOG-01 1-7718 CLOG-012-25FF CL0G-013-F481 CLOG-014-8185 C ICY-072-B071 C ICY-066-A6D8 C ICY-067-AB25 2E80 

2E90 CICY-063-01C3 C IC Y-069-F08B C I CY-070-2B63 C IC Y-07 1-89FC CLST-046-55B3 CLST-047-56A3 CLST-048-5EAA CLST-049-55BB 2E90 

2EA0 CLST-050-76A8 CLST-051-7E AA CL ST-052-8 185 CL0G-19 2-A8 ?5 CL0G-193-55B8 CLOG- 194-2B3B CLOG-1 95-5 7A0 CLOG-196-7710 2EA0 

2EB0 CLOG-197-8185 CLST-G86-55BB CL ST-087-561 8 CLST-088-5E 10 CLST-089-76A8 CLST-090-7EA0 CL ST-091-8 185 CLST-078-55BB 2EB0 

2EC0 CLST-079-56A8 CLST-080-5E AA CL ST-0 81-7618 CLST-08 2-7E 10 CLST-083-8185 CCOM- 162- 2400 CCOM-1 63-2C25 CCOM-1 64-81 85 2EC0 

2ED0 CCDM-158-2400 CC0M-159-2C55 CCOM-160-8185 BSTP-002-2404 BSTP-003-CFDF BSTP-0G4-0FDF BSTP-005-CEE0 BSTP-006-AB20 2ED0 

2EE0 3STP-Q07-81AA BSTP-008-4E86 8STP-021 -26C3 BSTP-02 3-2707 B STP-024-221 3 BSTP-025-9ACA F ILE-362-4C52 F ILE-36 3-7C62 2EE0 

2EFC PILE-364-5CC4 F ILE-365-7C52 P I LE-366-1 28E CDVD-046-2C IB CDVD-047-611 D CDVD-048-600D CDVD-C49-633D C0V0-050-622D 2EFC 

CONTROL 02468ACE 2E — 



STORAGE 



2F — 



2F00 CDVD-051-EC0D CDVD-052-699D CD VD-053-688D CDVD-054-655D CDVD-055-644D CDVD-056- 128E CDVD-0 57-C418 CDVD-058-1002 2F00 

2F1C CDVO-059-79FD CDVD-C60-78ED CD VD-061 -757D CDVD-062-746D CDVD-063-5BC9 CDVD-064-52D9 CDVD-065-E827 CDVD-066-C436 2F10 

2F20 CDVD-067-968A C0VD-068-C436 CDVD-069-ABFC CDVD-070-C42B CDVD-071 -968 A CDVD-072-F3 39 CDVD-D73-968E CDVD-074-52D9 2F20 

2^30 CDVD-075-D5BA C DVD-076-CD3B CD V0-077-ABFC CDVD-078-F82D CDVD-G79-CD25 CDVD-C80- 53BB CDVD-081-72A8 CDVD-082-70AA 2F30 

2F40 CDVD-083-1B15 C DVD-084-74A8 CD VD-0 85-78AA CDVD-086-81 76 CDVD-087-AA76 CMLT-0S5-5EF9 CMLT-086-5 3E9 CMLT-087-5239 2F40 

2F50 CMLT-088-5129 CML T-089-50 19 CMLT-090-5 709 CML T-09 1-5679 CMLT-092-5B69 CMLT-093-5A B9 CMLT-094-5 5A9 CMLT-095-5459 2F50 

2F6C CMLT-096-240 7 CMLT-097-C56E CMLT-098-0 58F C MLT-099-E0 EC CMLT-100-C 16E CMLT-101-C5EE CMLT-1 02-24F7 CMLT-103-L2 8E 2F60 

2F70 DCLC-121-1635 DCLC-122-C3F7 DCLC-123-A7AE DCLC-12 5-B488 DPTC-059-2 18 5 DPTC-060-21 38 DPTC-061-5404 DPTC-062-2413 2F70 

2P80 DPTC-063-88BC 0DTC-064-2482 DP TC-065-4F4F DPTC-066- 1D00 DPTC-067-2D04 DPTC-068-2F 10 DPTC-069-5B2F DPTC-070-5F0F 2F80 

2F90 0PTC-Q71-10F3 DPTC-C72-EA96 DPTC-0 73-3013 DPT C-074- 2404 DPTC-075-2F43 DPTC-076- 50 35 DPTC-0 77-23FD DPTC-078-0361 2F90 

2FA0 DPTC-C79-FAA4 DPTC-080-73B1 DP TC-0 81 -88CE DPTC-G82-5G3D DPTC-083-2FFF DPTC-084-FB ID DPTC-0 85-5209 DPTC-G86-EB1B 2FA0 

2FB0 DPTC-087-88CC DPTC-088-247B DPTC-089-24AD DPT C-090-F4BB OPTC-091-641 3 DPTC-092-242B DPTC -093-2 5FF DPTC-094-C4C2 2F80 

2FC0 DPTC-095-A6AF DPTC-096-054B DP TC-097-F08 2 DPTC-098- AF 80 DCL B-006-2045 DCLB-007-7022 DCLB-C 10-2 625 DCLB-014-2787 2FC0 

2FD0 DCLB-015-81F8 DCLB-01 7-2486 DCLB-0 18-2B80 DCL B-019-72 12 DCLB-020-24F6 DCLB-02 1-5622 DCLB-022-2407 DCLB-023-2585 2FO0 

2FE0 DCLR-024-3543 DCLB-02 5- 5148 DCLB-026-6171 DCLB-027-C4F7 DCLB-028-C162 DCLB-029-25CB DCLB-030-F563 DCLB-031-2507 2FE0 

2FF0 DCLB-032-AFF8 DCLB-004-C648 DCLB-005-AECA DCLB-033-5651 DCLB-034-5212 DCLB-035-95F4 CMLT-1 79-3002 CMLT-180-B472 2FF0 

CONTROL STORAGE 2 4 6 8 A C E 2E0G-2FFE 



CONTROL STORAGE ADDRESS LIST 

2 

3000 DCLR-076-0240 DCLR-002- 

3010 OCLR-033-15C5 DCLR-034- 

3020 DCLR-053-8D68 OCLR-061- 

3030 DCLR-068-3413 DCLR-069- 

3040 DCLR-004-F207 DCLR-008- 

3050 CFC0-123-F45F CFCO-124- 

3060 CFC0-131-797D CFCO-132- 

3070 CNVP-123-5220 CNVR-124- 

3080 DCLF -073-031 3 OCLE-074- 

3090 0CLE-C53-E61S DCLE-054- 

30A0 DCLE-062-348 3 DCLE-063- 

30B0 DCLE-0 70-FC81 DCLE-C71- 

30C0 DCLF-045-2B0O DCLE-046- 

3000 0PT0-C09-DEC3 DPTQ-010- 

3HE0 OPTO-017-15C5 QPTQ-018- 

30F0 OVLY-004-465 2 OVLY-006- 



30C0-31FE 



8 



C3C0 
34A5 


OCLR- 
DCLR- 


-003- 
-036- 


-A7D6 
-C398 


2425 
2205 


DCLR- 

DCLR- 


-062- 
-070- 


-54E9 
-7602 


2400 
56AA 


DCLR- 
CFCO- 


-009- 
-125- 


-2F25 
-717D 


786D 
6223 


CFCO- 
CNVR- 


-133- 
-125- 


-56A0 
-5239 


C4B4 
FD99 


DCLE- 

DCLE- 


-0 75- 
-055- 


-9ED2 
-2 62B 


5439 
3345 


DCLE- 

DCLE- 


-064- 
-0 72- 


-C528 
-A782 


0244 

FOEO 


DPTQ- 
DPTQ- 


-003- 
-011- 


-4642 
-D562 


8D68 
24C5 


DPTQ- 
OVLY- 


-019- 
-022- 


-CECF 
-5759 



DCLR-013-D623 
DCLR-038-9F5C 

DCLR-06 3-15C5 
DCLR-071-2D4C 

DCLR-010-2E05 
CFCO-12 6-706D 

CFC0-134-7F7D 
CNVR-126-6223 

DCLE-04 8-5F7F 
DCLE-056-FD90 

DCLE-065-1565 

DCLE-040-CD87 

DPTQ-00 4-8F74 
0PTQ-012-8D64 

DPT0-020-DA63 
0VLY-024-2CD5 



CONTROL 
STORAGE 







DCLR-0 19-1773 
DCLR-043-E71E 

DCLR-064-1573 
DCLR-072-C681 

DCLR-011-A030 
CFC0-127-56AA 

CFCO-135-C1ED 
CNVR-127-6223 

DCLE-049-FC9B 
DCLE-057-A78E 

DCLE-066-5F4F 
DCLE-041-262B 

DPTQ-005-D15 3 
DPTQ-013-C465 

DPTQ-021-AB20 
0VLY-C42-57D9 

8 



DCLR- 
DCLR- 

DCLR- 

DCLR- 

CFCO- 

CFCO- 

CFCO- 
CNVP- 

DCLE- 
DCLE- 

DCLE- 
DCLE- 

OPTQ- 
DPTQ- 



•030- 
■047- 

■065- 
•073- 

120- 
•128- 

■136- 
•128- 

■050- 
■047- 

•067- 
•042- 

•006- 
•C14- 



8F7A 
F71E 



CL0AD=*E60, EC LEVEL= 

C 

DCLR-031-C510 DCLR- 

DCLR-048-B478 DCLR- 



0VLY-C43- 
A 



■CCAE DCLR-066-9660 OCLR- 

■E681 DCLR-074-2BOO DCLR- 

•3BE3 CFC0-121-F452 CFCO- 

•737D CFC0-129-726D CFCO- 

■128E CFC0-137-7E6D CFCO- 

•6233 CNVR-129-62C3 CNVR- 

•2007 DCLE-051-4F0F DCLE- 

■A154 DCLE-060-FCA2 DCLE- 

•FC9B 0CLE-C68-E501 DCLE- 

•CD87 DCLE-043-E636 DCLE- 

■C468 DPTQ-007-CED4 DPTQ- 

■CAE8 DPTO-0 15-3485 DPTQ- 

5007 OVLY-002-3212 OVLY- 

•4068 OVLY-045-5248 OVLY- 



= 128266 ,PAGE 303 

E 30 — 

■032-2EC3 3000 

■052-B43C 3010 

-067-0D10 3020 

-075-A7A4 3030 

-122-1B43 3040 

-130-56AA 3050 

-138-128E 3060 

-130-128E 3070 

-052-2B02 3080 

-061-0D02 3090 

-069-0583 30 AO 

-044-DD9B 30 BO 

-008-8F00 30C0 

-016-2E43 3000 

-003-3800 30E0 

-055-6021 30F0 

E 30 — 
31 — 



3100 0VLY-056-C43A OVL Y-057-61 31 
3110 0VLY-074-C49A VL Y-075-631 1 



0VLY-058-C48A 
DVLY-076-C49A 



OVLY-059-F229 
OVLY-077-6063 



OVLY-060-BOF8 OVLY-062-50C8 
OVLY-078-B106 VLY-079-4268 



OVLY-072-6666 OVLY- 
OVLY-0 80-6021 OVLY- 



073-6201 3100 
■081-C4A4 3110 



3120 OVLY-032-613 1 VLY-083-C487 

3130 CDMD-152-4826 C D^D-153- 57B9 



QVLY-084-2820 

CDMD-154-C5B8 



OVLY-086-2800 
CDMD-155-0B9F 



OVLY-087-1212 OVLY-088-5007 
CDMD-156-008E CDMD-157-D1CC 



0VLY-C89-812A CDMD- 
CDMD-158-E0E0 CDMD- 



151-2040 3120 
159-7B1A 3130 



3140 CDND-160-5836 CDMD-161- 5710 
3150 CDMD-176-2A93 COMQ-177- 56F2 



CDMD-162-0040 
CDMD-178-5 7C9 



CDM0-163-2EFF 
CDMD-179-1000 



CDMD-164-C4B2 CDMD-165-8DB8 
CDMD-180-0BB1 CDMD-18 1-EODF 



CDMD-174-F0BD CDMD- 
CDMD-1 82-3002 CDMO- 



■175-5BBD 3140 
■183-9456 3150 



3160 CDMD-166-2040 C0MD-167-2A95 

3170 CFCQ-056-0003 C FC0-057-6FF5 

3180 CFHA-007-90E4 C FHA-008-90E4 

3190 CFHA-0 15-C4A6 C FHA-016-B2F8 



CDMD-168-56E2 
CFCO-0 58-4886 

CFHA-009-9DE4 
CFHA-017-2507 



CDMD-169-57C9 
CFC0-059-F4 7D 

CFHA-010-A6 56 
CFHA-018-2EFF 



CDMD-170-1000 CDMD-171-0BB9 

CFCO-060-4226 CFCO-061-4006 

CFHA-011-5CC2 CFHA-012-D5 A4 

CFHA-019-E4B2 CFHA-020-F4B5 



CDMD-172-F4DD 
CFCO-062-128E 



CFHA-0 13- 
CFHA-021- 



2A07 
B18E 



CDMD- 173-9456 3160 

CFHA-006-2C13 3170 

CFHA-014-0FF3 3180 

CFHA-028-ED27 3190 



31 AO CFHA-029-0080 CFHA-030- 966C 
3180 CFHA-037-8<?PC C FH A-C22-F49D 



CFHA-031-2E07 
CFHA-023-E022 



CFHA-032-896A 
CFHA-024-1E8D 



CFHA-033-817A CFHA-034-C 1 AF CFHA-035-AA76 CFHA- 
CFHA-025-27D3 CFHA-026-2080 CFHA-Q27-B18E OUMP- 



036-57B9 31A0 
014-2A75 31 BC 



31C0 DUMP-0 19-2E13 DUMP-020-25B3 
31 DO DUMP-027-A606 OfJMP-028-4626 



OUMP-021-252D 
DUMP-029-C05B 



DUMP-022-2F35 
DUMP-030-B1E2 



DUMP-023-2F3B DUMP-C24-C053 DUMP-025-2B45 DUMP- 
DUMP-034-5638 DUMP-035-56B5 DUMP-036-A5FC DUMP- 



-026-A606 31C0 
-037-56B9 31D0 



31E0 OUMP-038-A5FC 0UMP-039- 57B5 
31F0 DUMP-0 46-C4P4 DUMP-047- A606 



DUMP-040-A5FC 
DUMP-048-B1F6 



DUMP-041-57B9 
DUMP-031-C059 



DUMP-042-A5FC DUMP-043-2B45 DUMP-044-A606 DUMP- 
DUMP-032-5628 DUMP-033-B1DA BWRP-1 33-2B95 BWRP- 



045-0530 31 EO 
134-904C 31F0 



CONTROL STORAGE 



8 



E 3000 -31 FE 



CONTROL STORAGE ADDRESS LIST 

2 

3200 ETTR-046-362 5 ETTR-047-B22E 

3210 ETTR-028-CDA1 ETTR-029- 3B00 

3220 ETTR -036-271 3 ETTR-037- FO A8 

3230 ETTR-C44-0D04 ETTR-045-B236 

3240 0MCS-077-3585 DMC S-078- 2B1B 

3250 DMCS-035-D767 DMC S-086-C566 

3260 OMCS-096-6446 DMC S-097-4D40 

3270 DMCS-10S-54E2 DMC S-109-56F2 

3280 CSFT-140-6EA1 C SFT-141-C48C 

3290 CSPT-148-56F9 C SFT-149- 5769 

32 AO CSFT-1 32-5309 C SFT- 133- 5239 

32R0 CSFT-153-5279 C SFT-154- 5329 

32C0 CDVD-008-55BB C DVD-009-F546 

32D0 CDV0-016-50AA CDVD-017-C658 



3200-33FE 



CL0AD=*E60t EC 
C 



LEVEL=128266 ,PAGE 304 



32 — 



ETTR-022-EAB4 
ETTR-030-2E15 

ETTR-038-276B 
ETTR-048-5BDF 

DMCS-079-7BC0 
DMCS-090-2515 

OMCS-098-B244 
DMCS-110-2105 

CSFT-142-D18A 
CSFT-150-D031 

CSFT-134-5729 
CSFT-155-5039 

CDVD-010-AE94 
CDVD-C18-B3DA 



ETTR-023-5BDF ETTR-024-5F00 ETTR-025-7D08 ETTR-026-6CF1 ETTR-02 7-C4A1 3200 

ETTR-031-57FD ETTR-0 32-2FFD ETTR-03 3- 5D EO ETTR-C 34-6DC5 ETTR-035-7DE0 3210 

ETTR-039-ECAB ETTR-040-0206 ETTR-041-CD81 ETTR-042-DOBO ETTR-04 3-2D20 3220 

ETTR-049-30B9 ETTR-C50-2 1A5 ETTR -05 1-2745 ETTR-0 52-B224 DMCS-076-5D38 3230 



DMCS-107-77C0 
5007 



DMCS-080-FE4F DMCS-081-2D4D DMCS-082- 264D DMCS-083-F4C4 DMCS-084-CBE7 

DMCS-091-C167 DMCS-092-4948 0MCS-093-69D1 DMCS-094-C4D6 DMCS-095-F163 

DMCS-100-5B59 DMCS-1 01-651 1 DMCS- 102-C4BE DMCS-1 06-2D05 

DMCS-111-2F43 DMCS-1 12-8D48 CLOG-047-82 70 CL0G-048-A86C 

CSFT-143-CF0F C SFT-144-3000 CSFT-145-CF0E CSFT-146-3000 CSFT-147-5FE9 

CSFT-151-2707 CSFT-152-128E CSFT- 129-F001 CSFT-13C-D026 CSFT-131-5019 

CSFT-135-5679 CSFT-1 36-5F69 CSFT- 137- 5EF9 CSFT-1 38-5 AE9 C SFT-139-12 8E 

CSFT-156-5109 C SFT-1 57-210 7 C SFT- 158- 12 BE CDVD-006-5618 CDVD-007-5E 10 

CDVD-011-98 14 CDVD-012-54A8 CDVD-0 13-58AA CDVD-D 14-3B15 CDVD-015-52A8 

CDV0-019-3B13 CDVD-020 -C45 E CDVD-02 1-96 76 CDVD-022-3B23 CDVD-023-4C86 



3240 
3250 

3260 
3270 

3280 
3290 

32A0 
32B0 

32C0 
3200 



32E0 CDVD-024-300 2 C DVD-025-7DFD 

32P0 CDVD-032-4C5? C DVD-033- 10CE 

CONTROL 2 

STORAGE 

3300 CFC3-G38-599* C PCO-039- F408 

3310 CFCO-046-4035 C FC0-C47- 5003 

3320 DYPE-204-5BBB DYPE-205-7B60 

3330 0YPE-212-FFB5 OYPE-21 3- 810C 

334^ CSFT-1C7-DC52 C SFT- 108- 51 1 5 

335H CSFT-115-4723 C SFT-1 1 6-5775 

3360 CSFT-123-4AE3 C SFT- 124- 128E 

3370 DYPE-073-3F15 DYPE-074- 1F00 

3380 DYPE-081-C487 D YPF-082- 3E23 

3390 DCLL-002-42A6 DCLL-Q03-44A6 



CDVD-026-7CED 

CDVD-034-AEF8 



CDVD-027-4C46 CDVD-028-7D70 CDVD-029-7C6D CDVD-C 30-F5F0 CDVD-03 1-ABFC 32E0 
CDVD-035-8DDC CFC0-C34-5FF3 CFC0-035-43F5 CFCO-0 36-5833 CFCO-037-4985 32F0 



33A0 OCLL-GlO-3133 DCLL-01 1-70B8 

33B0 DCLL-018-894E DUMP-002- 1F2A 

33C0 DUMP-009-2113 DUMP-010-4252 

33D0 CDMD-217-5F6A CDM0-218-7DFF 

33E0 CC0M-079-7778 CC0M-080-766B 

33F0 ERRQ-105-128E ERRQ-106-2BB1 



CFCO-040-4 595 
CFCO-048-4105 

DYPE-206-6664 
DYPE-214-8CD4 

CSFT- 109 -40 13 
CSFT-1 17-4673 

CSTS-098-55B9 
DYPE-0 75-2F08 

DYPE-083-15C5 
DCLL-004-2423 

DCLL-012-3B45 
DUHP-003-9812 

DUMP-011-4426 
CDMD-219-7D3A 

CCOM-081-100A 
ERRQ-107-C4EE 



CFCO-041-128E 
CFC 0-049-5113 

DYPE-207-2404 
DYPE-219-8CB8 

CSFT-110-5005 
CSFT-118-5665 

CSTS-104-2125 
DYPE-076-4FFF 

DYPE-084-D50D 
DCLL-005-74B8 

DCLL-01 3-46 A6 
DUMP-004-2482 

DUMP-012-A636 
CDMD-220-C34F 

CC0M-082-128E 
CCOM-045-5218 



8 



CFC0-042-4295 CFCO-043- 

CFCO-050-4515 CFCO-051- 

DYPE-208-8F7A DYPE-2C9- 

DYPE-215-8CDE DYPE-216- 

CSFT-111-4303 CSFT-112- 

CSFT-119-4F63 CSFT-120- 



5223 
128E 

0F04 
3623 

5335 
5FF5 



CFC0-C44-4325 CFCO-045-5333 

OYPE-202-2791 DYPE-203-5B60 

DYPE-210-D139 DYPE-2 11-C43B 

0YPE-217-CE37 DYPE-218-8CA4 

CSFT-1 13-4233 CSFT-11 4-5225 

CSFT-121-4EF3 CSFT-122-5EE5 



CSTS-106-2F07 CSTS- 107- 21 7B 

DYPE-077-0F20 DYPE-078-3485 

DYPE-085-3E83 DYPE-086-8FBE 

DCLL-006-70B8 DCLL-C07-2465 

DCLL-014-17FO DCLL-01 5-8ADA 

DUMP-005-3D02 DUMP-006-2F03 

CDMD-213-3002 CDMD-214-56F2 

CDMD-221-128E CCOM-076-2002 

ERR0-101-2A15 ERRQ-102-F772 

CCOM-046-5010 CC0M-047-55BB 



32 — 
33 — 

3300 
3310 

3320 
3330 

3340 
3350 



CSTS-108-8A02 DYPE-072-2F53 3360 

DYPE-079-1483 DYPE-080-5DD9 3370 

DYPE-087-8378 DYPE-088-AB20 3380 

DCLL-C08-74B8 OCLL-009-21 1 5 3390 

DCLL-C16-10F5 DCLL-017-24C3 33A0 

DUMP-007-0111 DUMP-00S-F4C3 33B0 

CDMD-2 15-4206 CDMO-216-5030 33C0 

CCOM-077-7FFB CC0M-078-7EEB 3300 

ERR0-103-2BF5 ERRQ-104-7CAA 33E0 

CCOM-048-56A8 CC0M-049-5EAA 33F0 



CONTROL STORAGE 



8 



3200-33FE 



CONTROL STORAGE ADDRESS LIST 







3400 CCOM-050-100E 
3410 DC0M-086-128E 



CCOM-051- 
CLST-094- 



128E DCOM-080-2E07 
ACE6 CLST-095-52A8 



3400-35FE 



DCOM-081-7468 
CLST-096-7218 



8 



DC0M-082-7E68 DCOM-08 3- 7060 
CLST-D97-52A0 CLST-098-72 18 



CLOAD=*E60, EC 
C 
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DCOM' 
CLST- 



■084-C511 
•C99-ACF0 



DCOM- 
CLST- 



085-2A07 
100-B414 



34 — 

3400 
3410 



3420 CLST-103-ACE6 CLST-1 04-5218 

3430 CFC0-091-58A8 CFC0-092-F439 



CLST-105-72A8 
CFCO-093-52A8 



CLST-106-5218 
CFCO-094-50A0 



CLST-107-72A0 CLST- 108-ACFO CLST-109-B422 CFC0-090-5EA8 3420 
CFCO-095-1B73 CFC0-096- 12 8E ERRQ-1 09-F 744 ERRQ-110-D243 3430 



3440 ERR0-111-0D04 ERRQ-1 1 2- 128E 
3450 DPTT -092-1485 DPTT-093- 128E 



ERRQ-1 13-0D80 
CFC0-143-5E18 



ERRQ-114-128E 
CFC 0-144-5818 



DPTT-088-F04E DPTT-089-1413 DPTT-090-0010 DPTT-09 1-4046 3440 
CFC0-145-F45F CFCO- 146-5218 CFCO-147-5010 CFCO-148- 128E 3450 



3460 CCOM-086-3C02 CCOM-087- 7F1D 
3470 CMLT-154-1002 CMLT-155-3D25 



CCOM-088-7E0D 
CMLT-156-A752 



CCOM-089-773D 
CMLT-157-89C4 



CCOM-090-762D CCOM-09 1- 128E CMLT-1 52-3002 CMLT-153-A752 3460 
DYPE-237-9816 DYPE-238-B406 DYPE -2 39-A566 DYPE-240-8792 3470 



3480 CLOG-078-8270 C L0G-079-A8 3C 
3490 DCLR-134-3425 DCLR- 135- 98D8 



CFCY-068-817A 
5007 



CFCY-06 9-83B4 

5007 



DCLL-0 19-0214 
5007 



DCLL-024-B48A 
5007 



CLOG-144-8270 
5007 



CLOG-145-8116 3480 
5007 3490 



AUX 



0000 
0010 



STORAGE ADDRESS LIST 
2 



0000-01FE 
6 8 



BSYS-218-0090 
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00 — 



0000 
0010 



0020 
0030 

0040 
0050 

0060 
0070 

00 80 
0090 

OOAO 

OOBO 

00 CO 
00 DO 

OOEO 
OOFO 

AUX 

STORAGE 



ALDP-320-D9C4 ALDP-320-C4C1 

ALDP-323-D9C1 ALDP-323-C8C3 

ALDP-326-40C4 AL0P-326-C9D3 

ALDP-329-C1E5 AL0P-329-D5C9 

DCLC-211-0B0C DCLC-211-0D0E 

DCLC-214-0F15 DCLC-214-18FF 



3SYS-196-0E0C B SY S-196-0D IF 



BSYS-2 09-0090 
4 



0020 
0030 

0040 
0050 

0060 
0070 

0080 
0090 

OOAO 
OOBO 

OOCO 
00 DO 

OOEO 
OOFO 

00 — 

01 — 



01 CO 
0110 

0120 
0130 

0140 
0150 

0160 
0170 

0180 
0190 

01A0 
01B0 



0100 
0110 

0120 
0130 

0140 
0150 

0160 
0170 

0180 
0190 

01A0 
01B0 



01 CO 
01D0 

01E0 
01F0 



01C0 
0100 

01E0 
01 FO 



AUX 



STORAGE 



0000-01FE 



AUX STORAGE ADDRESS LIST 

2 

3000 ERCX-073-40F1 ERC X-073-F2F3 

3010 ERCX-073-6C01 ERC X-073-D2D3 

3020 ERCX-074-5CC1 ERC X-C74-C2C3 

3030 ERCX-075-6A91 E RC X-075- 9293 

3040 ERCX-075-F931 ERC X-C76- 3233 

3050 ERCX-076-D911 F RC X-076- 12 13 

3060 ERCX-077-C901 ERC X-077-0203 

3070 ERCX-078-9951 ERC X-078-52 53 

30 80 ERCX-0 78-F87 9 ERCX-078- 7A7B 

3090 ERCX-079-D859 ERC X-079- 5A58 

3?>A0 ERCX-C80-C849 ERC X-C 80-4A4B 

30B0 ERCX-081-9890 ERC X-081-9A9B 

30C0 ERCX-081-3839 ERC X-081-3A3B 

3000 ERCX-082-1819 ERC X-082- 1A1B 

30E0 ERCX-083-C809 ERC X-083-0A0B 

30FO ERCX-083-5810 ERC X-C84-0ADB 



3000-31FE 



ERCX-073-F4F5 
ERCX-073-D4D5 

ERCX-074-C4C5 
ERCX-075-9495 

ERCX-076-3435 
ERCX-076-1415 

ERCX-077-0405 
ERCX-078-5455 

ERCX-079-7C7D 
ERCX-079-5C50 

ERCX-080-4C4D 
ERCX-081-9C9D 

ERCX-081-3C30 
ERCX-082-1C1D 

ERCX-O83-0COD 
ERCX-084-DCDD 



ERCX-Q73-F6F7 
ERCX-074-D6D7 

ERCX-074-C6C7 
ERCX-075-9697 

ERCX-076-3637 
ERCX-076-1617 

ERCX-077-0607 
ERCX-078-5657 

ERCX-079-7E7F 
ERCX-079-5E5F 

ERCX-080-4E4F 
ERCX-081-9E9F 

ERCX-082-3E3F 
ERCX-082-1E1F 

EPCX-083-0E0F 
ERCX-084-DEDF 



AUX 

STORAGE 

3100 
3110 

3120 
3130 

3140 
3150 

3160 
3170 

3180 
3190 

31A0 
31B0 

31C0 
3100 

31E0 
31F0 

AUX 







ERCX-073-F061 

ERCX-074-D0AI 

ERCX-074-C081 
ERCX-075-70B1 

ERCX-0 76-E921 
ERCX-077-A9E1 

ERCX-077-8941 
ERCX-078-B971 

ERCX-079-E869 
ERCX-079-A8A0 

ERCX-080-8880 
ERCX-081-B8B0 

ERCX-0 82-2829 
ERCX-082-6820 

ERCX-083-4800 
ERCX-0 84-7830 

8 



STORAGE 









CLOAO= 


=*E60 f EC 
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A 






C 


E 




30 — 


ERCX- 
ERCX- 


-073- 
•074- 


•E2E3 
•A2A3 


ERCX- 
ERCX- 


-073-E4E5 
-074-A4A5 


ERCX-073- 
ERCX-074- 


■E6E7 
-A6A7 


3000 
3010 


ERCX- 
ERCX- 


-074- 
-075- 


•8283 
■B2B3 


ERCX- 
ERCX- 


-075-8485 
-075-B4B5 


ERCX-075- 
ERCX-075- 


-8687 
-B6B7 


3020 
3030 


ERCX- 
ERCX- 


-076- 
-077- 


•2223 
•6263 


ERCX- 
ERCX- 


-076-2425 
-077-6465 


ERCX-076- 
ERCX-077- 


-2627 
-6667 


3040 
3050 


ERCX- 
ERCX- 


-077- 

-078- 


•4243 
•7273 


ERCX- 
ERCX- 


-0 77-4445 
-078-7475 


ERCX-078- 
ERCX-078- 


-4647 
-7677 


3060 
30 70 


ERCX- 
ERCX- 


-079- 
-080- 


•E06B 
-AAAB 


ERCX- 
ERCX- 


-079-6C6D 
-0 80-ACAD 


ERCX-079- 
ERCX-080- 


-6E6F 
-AEAF 


3080 
3090 


ERCX- 
ERCX- 


-080- 
-081- 


■8A8B 
-BABB 


ERCX- 
ERCX- 


-080-8C8D 

-081-BCBD 


ERCX-080- 
ERCX-081- 


-8E8F 

-BEBF 


30A0 
30 BO 


ERCX- 
ERCX- 


-082- 
-082- 


-2A2B 
-EAEB 


ERCX- 
ERCX- 


-082-2C2D 
-C83-ECED 


ERCX-082- 
ERCX-083- 


-2E2F 
-EEEF 


30C0 
3000 


ERCX- 
ERCX- 


-083- 
-084- 


-CACB 
-FAFB 


ERCX- 
ERCX- 


-0 83-CCCD 
-0 84-FCFD 


ERCX-083- 
ERCX-084- 


-CECF 
-FEFF 


30E0 
30F0 




A 






C 


E 




30 — 

31 — 

3100 
3110 

3120 
3130 

3140 
3150 

3160 
3170 

3180 
3190 

31 AO 
31 BO 

31C0 
31D0 

31E0 
31F0 




A 






C 


E 


3000 


-31FE 
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02468ACE 50 — 



5000 
5010 

5020 
50 30 

5040 
5050 

5060 
50 70 

5080 
5090 

50A0 



STORAGE 

5100 
5110 

5120 

5130 

51*0 

5150 

5160 
5170 

5180 
5190 

51A0 
51 BO 

51C0 

5100 

51E0 
51F0 

AUX STORAGE 



5000 
50 10 

5020 
5030 

5040 
5050 

5060 
5070 

5080 
5090 

50A0 



5CB0 DYPE-279-407E DYPE-279-4C 5E DYPE-2 79-7A6C DYPE-279-7D6E 50B0 

50C0 0YPE-279-5C4D DYPE-279- 5D7F DYPE-279-0000 DYPE-279-F07B DYPE-279-4A6F DYPE-279-E2E3 DYPE-279-E4E5 DYPE-280-E6E7 50C0 

5000 DYPF-280-E8E9 DYPE-280-6B4F DYPE-2 80-7C25 DYP E-280-0000 DYPE-28Q-6DD1 0YPE-280-02D3 DYPE-2 80-0405 DYPE-280-D6D7 5000 

5^E0 DYPF-280-D809 DYPF -?80- 5B5A DYPE-2 81-601 5 DYP E-281- 1600 DYPE-2 81-4EC 1 DYPE-28 1-C2C3 DYPE-281-C4C 5 DYPE-28 1-C6C7 50E0 

50F0 0YPE-2ai-C8C9 DYPE-281-4B5F DYPE-281-5005 50F0 

AUX 02468ACE 50 — 



51 — 

5100 
5110 

5120 
5130 

5140 
5150 

5160 
5170 

5180 
5190 

51A0 
51 BO 

51C0 
5100 

51E0 
51F0 

5000-51FE 



AUX STORAGE ADDRESS LIST 

2 



6000 EPXF-089-B9S9 
6010 EPXF-Q89-0949 



EPXF-089-8A88 
Et>XF-089-4A4B 



EPXF-089-8C8D 
EPXF-089-4C4D 



6000-61FE 



EPXF-089-8E8F 
EPXF-090-4E4F 



8 
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EPXF-089-9899 EPXF-089-9A9B EP XF-0 89-9C9D EPXF-089-9E9F 6000 
EPXF-090-5859 EPXF-090-5A5B EP XF-090-5C50 EPXF-090-5E5F 6010 



6020 EPXF-090-792 9 
6030 EPXF-091-F909 



EPXF-090-2A2B 
EPXF-O91-0A0B 



EPXF-090-2C2D 
EPXF-091-OCOD 



EPXF-090-2E2F 
EPXF-091-0E0F 



EPXF-090-3839 EPXF-Q90-3A3B EP XF-091-3C3D EPXF-09 1-3E 3F 6020 
EPXF-091-1819 EPXF-091-1A1B EP XF-091-1C1D EPXF-091-1E IF 6030 



6040 EPXF-091-0CA9 
6050 FPXF-092-80C9 



CPXP-092-AAAB 
EPXF-092-CACB 



EPXF-092-ACA0 
EPXF-092-CCCD 



EPXF-092-AEAF 
EPXF-092-CECF 



EPXF-092-B891 EP XF-092-92 93 EP XF-092-9495 EPXF-092-9697 6040 
EPXF-093-D851 EPXF-093-52 53 EPXF-093-5455 EPXF-093-5657 6050 



6060 EPXF-093-4021 
6070 EPXF-094-ECE9 



EPXF-093-6A6B 
FPXF-094-EAEB 



EPXF-093-6C6D 
EPXF-094-ECED 



EPXF-09 3-6E6F 
EPXF-094-EEEF 



EPXF-093-7831 EPXF-093-C033 EP XF-093-3435 EPXF-094-3637 6060 
EPXF-094-F811 EPXF-094- 12 13 EP XF-094-1 415 EPXF-094-1617 6070 



6080 EPXF-094-B1A1 EPXF-094- A2A3 
6090 EPXF-095-D1C1 EPXF-095-C2C3 



EPXF-095-A4A5 
EPXF-095-C4C5 



EPXF-095-A6A7 
EPXF-095-C6C7 



EPXF-095-B0A8 EPXF-095-8283 EPXF-095-B4B5 EPXF-095-B6B7 6080 
EPXF-095-D0C8 EPXF-096-D2D3 EPXF-0 96-D4D5 EPXF-096-D6D7 6090 



6CA0 EPXP-096-7161 
60B0 EPXF-097-F1E1 



EPXF-096-6263 

EPXF-097-E2E3 



EPXF-096-6465 
EPXF-097-E4E5 



EPXF-096-6667 
EPXF-097-E6E7 



EPXF-096-7068 EPXF-096-72 73 EPXF-096-7475 EPXF-096-76 77 60A0 
EPXF-097-F0E8 EPXF-097-F 2F3 EP XF-097-F4F5 EPXF-097-F6F7 60B0 



6OC0 EPXF-097-A081 
6000 EPXF-098-6041 



EPXF-097-8283 
EPXF-098-4243 



EPXF-097-8485 
EPXF-098-4445 



EPXF-098-86 87 
EPXF-098-4647 



EPXF-098-9088 EPXF-098-BABB EP XF-098-BCBD EPXF-098-BEBF 60CG 
EPXF-098-5048 EPXF-C98-DAD8 EPXF-099-DCDO EPXF-099-DEDF 6000 



60E0 EPXF-099-3269 
60F0 EPXP-099-20^1 



EPXF-099-2223 
EPXF-100-0203 



EPXF-099-2425 
EPXF-100-0405 



EPXF-099-2627 

EPXF-100-0607 



EPXF-099-3028 EPXF-099-7A 7B EP XF-0 99-7C70 EPXF-099-7E7F 60E0 
FPXF-100-1008 EPXF-100-FAF3 EP XF-1 00-FCFO EPXF- 100-FEFF 60F0 



THERE ARE NO DUPLICATE ASSIGNMENTS IN THIS RUN. 



* 



** 



